Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: ÄänenSoittaja

Gary534 [07.05.2005 22:30:59]

#

ÄänenSoittaja on ohjelma joka soittaa numeroitten ja kirjainten ääniä.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Sub SoitaWAV(tiedosto As String) 'Soittaa Waw tiedoston
    Dim x As Long
    x = sndPlaySound(tiedosto, 1)
End Sub
Private Sub Command1_Click()  'Soittaa äänen
SoitaWAV "a.wav"
End Sub

Private Sub Command10_Click()
SoitaWAV "f.wav"
End Sub

Private Sub Command11_Click()
SoitaWAV "q.wav"
End Sub

Private Sub Command12_Click()
SoitaWAV "r.wav"
End Sub

Private Sub Command13_Click()
SoitaWAV "e.wav"
End Sub

Private Sub Command14_Click()
SoitaWAV "s.wav"
End Sub

Private Sub Command15_Click()
SoitaWAV "b.wav"
End Sub

Private Sub Command16_Click()
SoitaWAV "1.wav"
End Sub

Private Sub Command17_Click()
SoitaWAV "2.wav"
End Sub

Private Sub Command18_Click()
SoitaWAV "3.wav"
End Sub

Private Sub Command19_Click()
SoitaWAV "4.wav"
End Sub

Private Sub Command2_Click()
SoitaWAV "l.wav"
End Sub

Private Sub Command20_Click()
SoitaWAV "5.wav"
End Sub

Private Sub Command21_Click()
SoitaWAV "6.wav"
End Sub

Private Sub Command22_Click()
SoitaWAV "7.wav"
End Sub

Private Sub Command23_Click()
SoitaWAV "8.wav"
End Sub

Private Sub Command24_Click()
SoitaWAV "9.wav"
End Sub

Private Sub Command25_Click()
SoitaWAV "10.wav"
End Sub

Private Sub Command26_Click()
SoitaWAV "0.wav"
End Sub

Private Sub Command27_Click()
SoitaWAV "d.wav"
End Sub

Private Sub Command28_Click()
SoitaWAV "i.wav"
End Sub

Private Sub Command29_Click()
SoitaWAV "j.wav"
End Sub

Private Sub Command3_Click()
SoitaWAV "m.wav"
End Sub

Private Sub Command30_Click()
SoitaWAV "k.wav"
End Sub

Private Sub Command31_Click()
SoitaWAV "t.wav"
End Sub

Private Sub Command32_Click()
SoitaWAV "u.wav"
End Sub

Private Sub Command33_Click()
SoitaWAV "v.wav"
End Sub

Private Sub Command34_Click()
SoitaWAV "w.wav"
End Sub

Private Sub Command35_Click()
SoitaWAV "x.wav"
End Sub

Private Sub Command36_Click()
SoitaWAV "y.wav"
End Sub

Private Sub Command37_Click()
SoitaWAV "z.wav"
End Sub

Private Sub Command38_Click()
SoitaWAV "å.wav"
End Sub

Private Sub Command39_Click()
SoitaWAV "ä.wav"
End Sub

Private Sub Command4_Click()
SoitaWAV "g.wav"
End Sub

Private Sub Command40_Click()
SoitaWAV "ö.wav"
End Sub

Private Sub Command41_Click()
SoitaWAV "kiitos.wav"
MsgBox "kiitos kun olitte Äänensoittajassa"
End
End Sub

Private Sub Command5_Click()
SoitaWAV "c.wav"
End Sub

Private Sub Command6_Click()
SoitaWAV "h.wav"
End Sub

Private Sub Command7_Click()
SoitaWAV "n.wav"
End Sub

Private Sub Command8_Click()
SoitaWAV "o.wav"
End Sub

Private Sub Command9_Click()
SoitaWAV "p.wav"
End Sub

Private Sub Label1_Click()

End Sub

ZcMander [17.05.2005 13:10:15]

#

Turha

Puhveli [22.05.2005 15:54:52]

#

Haha, just hassu ;D

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta