SUARA
PADA TOMBOL
Tutorial kali ini kita
akan membuat program visual basic untuk memanggil file suara ber-ekstension
WAV. Pada tutorial ini dapat kita gunakan dalam embuat games sebagai efek file
suara.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Kemudian masukkan dua komponen CommandButton ke dalam form.
3.
Selanjutnya klik kanan di dalam area Toolbox dan klik Components untuk menampilkan kotak dialog Components.
4.
Didalam kotak dialog komponen beri tanda
cek pada pilihan Microsoft Common Dialog
Control 6.0. Klik OK
5.
Setelah itu masukkanlah sebuah komponen CommanDialog ke dalam area form sehingga
tampak seperti gambar dibawah ini:
6.
Klik ganda pada tombol Open pada gambar di atas atau komponen Command1. Ketiklah perintah di bawah ini
pada bagian General dan prosedur Command1_Click.
1
2
|
'general
Private
Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As
Long) As Long
|
3
4
5
6
|
Private
Sub Command1_Click()
CommonDialog1.Filter = "File WAV
(*.WAV)|*.wav"
CommonDialog1.ShowOpen
End
Sub
|
Keterangan
Kode
1
3-4
|
Membuat
fungsi API yang akan memanggil file suara.
Membuat
penyeleksian file yang akan ditampilkan, yaitu berupa file suara yang
ber-ekstensi WAV saja. Kemudian menampilkan kotak dialog Open.
|
7.
Kembali ke tampilan desain form dan klik
ganda komponen Command2, kemudian
ketiklah perintah di bawah ini :
1
2
3
4
|
Private
Sub Command2_Click()
On Error Resume Next
sndPlaySound CommonDialog1.FileName,
SND_ASYNC
End
Sub
|
Keterangan
Kode
2
3
|
Perintah
ini akan membaca baris berikutnya apabila terjadi kesalahan atau error.
Menampilkan
file suara berdasarkan alamat yang telah anda buka didalam kotak dialog Open.
|
8.
Untuk mencoba hasilnya tekan tombol F5 pada keyboard anda.
EmoticonEmoticon