Menambahkan Efek Suara pada di Visual Basic 6.0

Pasti Anda pernah bermain game kan ???. Game yang Anda mainkan tentu tidak akan seru jika tidak adanya suara yang membuat efek game itu menjadi lebih nyata. Pada postingan kali ini saya akan memberikan cara bagaimana menyisipkan atau menambahkan suara di visual basic 6.0 sehingga jika Anda membuat game dari visual basic, maka Anda hanya tinggal menambahkan suaranya saja. Jadi game yang Anda buat menjadi lebih seru jika di tambah efek suara.


Ni adalah source kodenya

Private Declare Function PlaySound Lib "winmm.dll" Alias _
"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Public Function PlayWaveFile(strFileName As String, Optional blnAsync As Boolean) As Boolean
Dim lngFlags As Long
Const snd_sync = &H0
Const snd_Async = &H1
Const snd_Nodefault = &H2
Const snd_Filename = &H20000
lngFlags = snd_Nodefault Or snd_Filename Or snd_sync
If blnAsync Then lngFlags = lngFlags Or snd_Async
PlayWaveFile = PlaySound(strFileName, 0&, lngFlags)
End Function

Private Sub Command1_Click()
retval = PlayWaveFile(App.Path & "\suara.wav", True)
End Sub

Ne link ny.

DOWLOAD