Cara menambahkan efek suara pada Visual Basic 6.0

samfxpowermanager.blogspot.com

Cara menambahkan efek suara pada Visual Basic 6.0

Halo gan!

Saya sedang developing CSNE, tapi bukan gamenya melainkan Launchernya

Launcher saya seperti gambar dibawah ini :

Baguskan? hehe... jika ingin lihat lebih bagus silahkan diklik :)

Langkah :

1. Buka visual basicnya lalu pilih Standart EXE

2. Buat 1 Command button, mudahkan :)

3. Klik 2 kali Command buttonnya lalu clear semua text yang ada kemudian isi dengan text di bawah ini :

############################# Listing #############################

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public SystemLoginSucceeded As Boolean
       
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 & "\Nama File .Wav yang anda punya", True)
End Sub

###################################################################

4. Sudahlah project kita :)

5. Bagai mana menjalankannya? tekan saja tombol F5 pada keyboard

Semoga bermanfaat!

Jika ingin CoPas alias Copy Paste harap cantumkan sumbernya :

( samfxpowermanager.blogspot.com/2014/03/cara-menambahkan-efek-suara-pada-visual-basic-6.0.html )

Selamat berkarya gan! :)
Terima kasih telah berkunjung.