by Rami Mneimneh (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 1st August 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Very Cool Letter Machine!!Type With Ur Keyboard Letters 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
No comments have been posted about Very Cool Letter Machine!!Type With Ur Keyboard Letters And Listen to the Sound!!!. Why not be the first to post a comment about Very Cool Letter Machine!!Type With Ur Keyboard Letters And Listen to the Sound!!!.
