Mendeteksi Jika Sound Card Dapat Memainkan File Sound

Tips ini berguna memeriksa apakah sound card dapat memainkan file sound atau tidak Dengan aplikasi VB

Persiapan :

1 buat 1 module

2 buat satu form

Ketikan coding berikut ini pada module

Declare function waveoutgetnumdevs lib ”winmm.dll” 0 as long

Ketikan coding berikut pada form :

private sub form_load()

Dim I as interger

I= waveoutgetnumdevs()

If I > 0 then

Msgbox “system dapat memainkan sound”

Else

Msgbox ”sistem tidak dapat memainkan file sound”

End if

End sub

Selamat mencoba!!!