Cara Menambahkan Efek Suara (Sound) di Project Program VB6

Cara Menambahkan Efek Suara (Sound) pada Project di VB6 - Tip dan trik Visual Basic kali ini akan memberikan sebuah tip yaitu  cara memberikan efek suara pada project yang kita buat.
Adanya efek suara akan menambah nilai plus pada aplikasi-aplikasi yang Anda buat, apalagi  jika yang Anda buat adalah aplikasi Game, animasi maupun aplikasi lain yang dilengkapi dengan visual efect.

Aplikasi-aplikasi tersebut akan di anggap kurang memuaskan oleh pengguna jika tidak dilengkapi dengan efek suara. Oleh karena itu ada baiknya Anda mempelajari tip berikut ini jika meng-inginkan pembuatan aplikasi yang lebih sempurna.
Cara Menambahkan Efek Suara (Sound) pada Project di VB6
Visual basic sudah menyediakan suatu fungsi yang bernama SndPlaySound yang dapat digunakan untuk menambahkan efek-efek suara pada aplikasi yang Anda buat. Pada umunya file-file yang dapat digunakan untuk efek suara adalah file-file dengan format *.WAV.

Jika Anda memilik aplikasi Microsoft Office, Anda dapat memperoleh file-file *.WAV pada folder:\Windows\Media\Microsoft Office. Apabila Anda tidak menemukannya, silahkan Anda mencari lewat kotak dialog Find, kemudian ketik *.WAV.


Sebagai contoh misalnya Anda ingin memunculkan suara tepuk tangan pada saat form pertama kali dijalankan.Untuk itu Anda harus memiliki file yang menampilkan suara tepuk tangan, yaitu file Applause.wav yang juga kita bisa temukan di Microsoft Office.
Bagi Anda yang panasaran bagaimana cara membuatnya berikut adalah langkah-langkah dalam membuat programnya:

Cara Menambahkan Efek Suara (Sound) pada Project di VB6

1. Kopikan file Applause.wav ke folder tempat menyimpan project (file Applause.wav harus
    dijadikan satu folder dengan project)
2. Buka jendela kode denga F7, lalu ketikan kode yang ada dibawah ini:

Private Declare Function sndPlaySound Lib  "winmm.dll" Alias "sndPlaySoundA" (Byval lpszSoundName As String, Byval uFlags As Long) As Long
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8

Dim musik As String

Private Sub Form_Load()
musik= App.Path & "\Applause.wav"
sndPlaySound musik, SND_ASYNC Or SND_LOOP
End Sub

Private Sub Form_Unload(Cancel As Integer)
sndPlaySound vbNullString, SND_ASYNC
End Sub

3. Suara tepuk angan akan di munculkan terus menerus dan diulang-ulang.Untuk aplikasi-aplikasi 
    tertentu seperti Game, hal tersebut bukanlah suatu masalah. Akan tetapi, jika Anda ingin    
    menghentikan suara, tambahkan CommandButton1 (misal nama caption-nya "Stop"), kemudian 
    ketik kode dibawah ini di CommanbButton1:

   Private Sub Command1_Click()
   sndPlaySound vbNullString, SND_ASYNC
   End Sub

4. Jika Anda ingin memunculkan suara lagi tambahkan sebuah CommandButton2 (misalnya
   Caption-nya "Putar"), kemudian ketik kode dibawah ini di CommandButton2:

   Private Sub Command2_Click()
   sndPlaySound musik, SND_ASYNC Or SND_LOOP
   End Sub

5. Setelah itu Anda simpan dan jalankan program maka suara kan muncul pada saat program
    dijalankan.

Demikian tip Cara Menambahkan Efek Suara (Sound) pada Project.Semoga bermanfaat, Selamat mencoba semoga sukses.

Klik Nama Channel untuk Nonton Live Streaming

Silahkan komentar pada kolom dibawah ini jika ada yang ingin ditanyakan tentang Cara Menambahkan Efek Suara (Sound) di Project Program VB6.

0 Response to "Cara Menambahkan Efek Suara (Sound) di Project Program VB6"