by Rami Mneimneh (3 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 19th January 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Letter Game. Type on your keyboard And Listen To The Sound.
VBcoders
Private Sub PlayWav(Filename As String)
sndPlaySound (Filename), &H80
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("a") Then
Label1.Caption = "A"
Call PlayWav("a.wav")
End If
If KeyAscii = Asc("b") Then
Label1.Caption = "B"
Call PlayWav("b.wav")
End If
If KeyAscii = Asc("c") Then
Label1.Caption = "C"
Call PlayWav("c.wav")
End If
If KeyAscii = Asc("d") Then
Label1.Caption = "D"
Call PlayWav("d.wav")
End If
If KeyAscii = Asc("e") Then
Label1.Caption = "E"
Call PlayWav("e.wav")
End If
If KeyAscii = Asc("f") Then
Label1.Caption = "F"
Call PlayWav("f.wav")
End If
If KeyAscii = Asc("g") Then
Label1.Caption = "G"
Call PlayWav("g.wav")
End If
If KeyAscii = Asc("h") Then
Label1.Caption = "H"
Call PlayWav("h.wav")
End If
If KeyAscii = Asc("i") Then
Label1.Caption = "I"
Call PlayWav("i.wav")
End If
If KeyAscii = Asc("j") Then
Label1.Caption = "J"
Call PlayWav("j.wav")
End If
If KeyAscii = Asc("k") Then
Label1.Caption = "K"
Call PlayWav("k.wav")
End If
If KeyAscii = Asc("l") Then
Label1.Caption = "L"
Call PlayWav("l.wav")
End If
If KeyAscii = Asc("m") Then
Label1.Caption = "M"
Call PlayWav("m.wav")
End If
If KeyAscii = Asc("n") Then
Label1.Caption = "N"
Call PlayWav("n.wav")
End If
If KeyAscii = Asc("o") Then
Label1.Caption = "O"
Call PlayWav("o.wav")
End If
If KeyAscii = Asc("p") Then
Label1.Caption = "P"
Call PlayWav("p.wav")
End If
If KeyAscii = Asc("q") Then
Label1.Caption = "Q"
Call PlayWav("q.wav")
End If
If KeyAscii = Asc("r") Then
Label1.Caption = "R"
Call PlayWav("r.wav")
End If
If KeyAscii = Asc("s") Then
Label1.Caption = "S"
Call PlayWav("s.wav")
End If
If KeyAscii = Asc("t") Then
Label1.Caption = "T"
Call PlayWav("t.wav")
End If
If KeyAscii = Asc("u") Then
Label1.Caption = "U"
Call PlayWav("u.wav")
End If
If KeyAscii = Asc("v") Then
Label1.Caption = "V"
Call PlayWav("v.wav")
End If
If KeyAscii = Asc("w") Then
Label1.Caption = "W"
Call PlayWav("w.wav")
End If
If KeyAscii = Asc("y") Then
Label1.Caption = "Y"
Call PlayWav("y.wav")
End If
If KeyAscii = Asc("z") Then
Label1.Caption = "Z"
Call PlayWav("z.wav")
End If
End Sub