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 “-”
playsound “0.wav”, 0&, SND_ASYNC
Sleep k
Case “1”
playsound “1.wav”, 0&, SND_ASYNC
Sleep k
Case “2”
playsound “2.wav”, 0&, SND_ASYNC
Sleep k
Case “3”
playsound “3.wav”, 0&, SND_ASYNC
Sleep k
Case “4”
playsound “4.wav”, 0&, SND_ASYNC
Sleep k
Case “5”
playsound “5.wav”, 0&, SND_ASYNC
Sleep k
Case “6”
playsound “6.wav”, 0&, SND_ASYNC
Sleep k
Case “7”
playsound “7.wav”, 0&, SND_ASYNC
Sleep k
End Select
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim a()
a = Array(“1”, “2”, “3”, “4”, “5”, “6”, “7”)
Dim b(5) As String
b(0) = ""
b(1) = "-"
b(2) = "--"
b(3) = "---"
b(4) = "----"
Dim music As String
For i = 1 To 14
music = music & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & a(Int(Rnd() * 7)) & b(Int(Rnd() * 5)) & vbCrLf
Next i
Text1.Text = music
End Sub
Private Sub Command3_Click()
Text1.Text = “”
End Sub