Abspielgeschindigkeit von Tönen
20.09.2021 11:19:50
Tönen
Mit folgemdem Code, der per Buttonklick aufgerufen wird, werden abwechselnd 2 Töne abgesspielt. Das funktioniert.
Leider wird lt. Code die Abspielgeschwindigkeit mit 240 der beiden Töne festgelegt.
Ich suche einen Lösungscode, der die Geschwindigkeitszahl aus einer markierten Zelle, der aktiven Tabelle, nimmt.
Somit könnten dann unterschiedliche Tempi abgespielt werde, je nachdem welche Zelle markiert wurde.
Mit der Bitte um Hilfe,
grüßt Dieter(Drummer)
Bisheriger Code:
Sub Beep Lib "kernel32.dll" ( _
Optional ByVal dwFreq As Long = 440, _
Optional ByVal dwDuration As Long = 240) 'Tonlänge = Geschwindigkeit. Zahl: > Länger,
Sub Bitch() 'Metronom
Beep (900)
Beep (580)
Beep (900)
Beep (580)
Beep (900)
Beep (580)
Beep (900)
Beep (580)
End Sub
Anzeige