Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command3_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case 1
PlaySound "F:\Sound\32.wav", 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound "F:\Sound\34.wav", 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound "F:\Sound\36.wav", 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound "F:\Sound\38.wav", 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound "F:\Sound\40.wav", 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound "F:\Sound\42.wav", 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound "F:\Sound\45.wav", 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub