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
Mas bro...
BalasHapuskoq kalo pake lagu suaranya gak berenti2? pdhal programnya udah dikluarin malahan...
gimana tuh stopnya? mesti nunggu lagunya ampe abis dong??
saran saya saya kalo mau d stop
Hapusbikin file suara yang ga ada bunnyinya
trus pas butonnya d clik lg jadi berenti
*ex
If Command1.Caption = "Play" Then
Command1.Caption = "Stop"
retval = PlayWaveFile(App.Path & "\suara.wav", True)
Else
Command1.Caption = "Play"
retval = PlayWaveFile(App.Path & "\stop.wav", True)
End If
gan kalo
Hapusretval = PlayWaveFile(App.Path & "\suara.wav", True)
bisa diganti
retval = stopWaveFile(App.Path & "\suara.wav", True)
bisa apa gk gan?
oh
BalasHapusGa mudeng..hahaha
BalasHapusBiar musiknya gk datar gimana ya.. misalkan di game mobil klo mobil.y nabrak jadi kaya suara nabrak gimana odingnya.. mohon bantuannya
BalasHapus