✔ PC-Signalton auslösen...

[rat-cop]

Tach zusammen!

Weiß einer von euch wie man in vb die PC-Lautsprecher bzw. den Signalton auslösen kann

Danke schonmal im voraus!

mfg, rat-cop

 

[Shakie]

Das geht mit der API Beep:

Private Declare Sub Beep Lib "kernel32.dll" (Optional ByVal dwFreq As Long = 440, Optional ByVal dwDuration As Long = 240)

Als Parameter wird der Funktion die Frequenz des gewünschten Tons angegeben, optional kann auch die Dauer angegeben werden.

 

[rat-cop]

Yo danke Shakie!

genau das habe ich gesucht. Klappt alles einwandfrei!

 

[uzge77]

und hier mal was nettes alle meine entlein

Private Declare Sub Beep Lib "kernel32.dll" ( _
Optional ByVal dwFreq As Long = 440, _
Optional ByVal dwDuration As Long = 240 _
)

Private Sub Command1_Click()

' "Alle meine Entchen" abspielen.
Call Play("abcde e ffffe ffffe ddddc c bbbba")
End Sub

Private Sub Play(ByVal s As String)
Dim i As Integer
Dim t As String
For i = 1 To Len(s)
t = Mid$(s, i, 1)

' Leider geht das nicht über eine lineare Skalierung. Die
' Liste kann beliebig erweitert werden. Da ich aber kein
' Musikprofi bin, kenne ich mich nicht aus.
Select Case t
Case "a": Call Beep(444)
Case "b": Call Beep(488)
Case "c": Call Beep(550)
Case "d": Call Beep(580)
Case "e": Call Beep(640)
Case "f": Call Beep(720)
Case "g": Call Beep(810)
Case "h": Call Beep(860)
Case "i": Call Beep(920)
Case " ": Call Beep(32767)
End Select
Next i
End Sub