Gast
#992895
Hallo!
Ich habe mich seit gestern Abend mit dem Befehl Sound in Bascom
beschäftigt, und dieser funktioniert auch wunderbar für einen Piepser.
Interessant wäre jedoch, ob dies für 2 oder mehr Piepser auch möglich
wäre, um kleine Melodien auf diesen abzuspielen.
Habe mir dies auch überlegt und habe einen kleinen Testcode dazu
geschrieben, jedoch geben die Piepser nur ein Pfeiffen bzw. kurzes
Knacken anstatt eines Tones wie mit der sound Funktion aus.
Hier ein Auszug des Codes:
Summer1 Alias Portd.7
Summer2 Alias Porta.2
Dim Freq1 As Integer
Dim Freq2 As Integer
Freq1 = 500
REM verschiedene Werte von 10 - 15000 getestet
Freq2 = 1500
REM verschiedene Werte von 10 - 15000 getestet
Dim I As Long
Dim Var1 As Integer
Dim Var2 As Integer
Var1 = 1
Var2 = 1
Do
For I = 1 To 2147483646 Step 1
If Var1 = Freq1 Then
If Summer1 = 1 Then
Summer1 = 0
End If
If Summer1 = 0 Then
Summer1 = 1
End If
Var1 = 1
End If
If Var2 = Freq2 Then
If Summer2 = 1 Then
Summer2 = 0
End If
If Summer2 = 0 Then
Summer2 = 1
End If
Var2 = 1
End If
Var1 = Var1 + 1
Var2 = Var2 + 1
Next I
Loop
Das ganze sollte ein Rechtecksignal auf zwei Augänge geben, jedoch mit
verschiedenen Frequenzen.
Wie oben gesagt funktioniert das alles aber nicht richtig.
Kann mir bitte jemand sagen wo der Fehler liegt?
Ich komme einfach nicht drauf.
mit freundlichen Grüßen
Fuchs Andreas