Private Declare Function playsound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Private Declare Function sndPlaySound Lib “winmm.dll” Alias “sndPlaySoundA” (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1&
Private Const SND_LOOP = &H8&
Private Const SND_MEMORY = &H4&
Private Const SND_NODEFAULT = &H2&
Private Const SND_NOSTOP = &H10&
Private Const SND_SYNC = &H0&
Private Const SND_FILENAME = &H20000
Private Sub Command1_Click()
Dim k As Integer
Dim s As String
Dim i As Integer
k = Int(Text2.Text)
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case “-”
Sleep k
Case “1”
Call Label1_Click
Sleep k
Case “2”
Call Label2_Click
Sleep k
Case “3”
Call Label3_Click
Sleep k
Case “4”
Call Label4_Click
Sleep k
Case “5”
Call Label5_Click
Sleep k
Case “6”
Call Label6_Click
Sleep k
Case “7”
Call Label7_Click
Sleep k
End Select
Next
End Sub
Private Sub Label1_Click()
playsound “1.wav”, 0&, SND_ASYNC
End Sub
Private Sub Label2_Click()
playsound “2.wav”, 0&, SND_ASYNC
End Sub
Private Sub Label3_Click()
playsound “3.wav”, 0&, SND_ASYNC
End Sub
Private Sub Label4_Click()
playsound “4.wav”, 0&, SND_ASYNC
End Sub
Private Sub Label5_Click()
playsound “5.wav”, 0&, SND_ASYNC
End Sub
Private Sub Label6_Click()
playsound “6.wav”, 0&, SND_ASYNC
End Sub
Private Sub Label7_Click()
playsound “7.wav”, 0&, SND_ASYNC
End Sub