Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Public WavePlay As Boolean

Public Function CanPlayWaves() As Boolean
  CanPlayWaves = waveOutGetNumDevs()
End Function

Public Function PlayWaveFile(FileName As String, Optional Async As Boolean) As Boolean
  Dim Flags As Long
  Const SND_SYNC = &H0 ' Play synchronously
  Const SND_ASYNC = &H1 ' Play asynchronously
  Const SND_NODEFAULT = &H2 ' No default sound event is used
  Const SND_FILENAME = &H20000 ' Name is a file name
  Flags = SND_NODEFAULT Or SND_FILENAME Or SND_SYNC
  If Async Then Flags = Flags Or SND_ASYNC
    PlayWaveFile = PlaySound(FileName, 0&, Flags)
End Function

Public Function StopPlayingWave() As Boolean
  Const SND_PURGE = &H40
  PlaySound vbNullString, 0&, SND_PURGE
End Function

Private Sub Command1_Click()
'Initialize boolean variable WavePlay
  WavePlay = CanPlayWaves
  If WavePlay Then 'If Boolean is true (system can play sound)
    PlayWaveFile "C:\longsnp.wav", True
  End If
End Sub

Kita lihat pada source code di atas dalam memainkan file WAV digunakan Windows API PlaySound. Selain itu juga terdapat penggunaan Windows API lain yaitu waveOutPlayWaves yang digunakan sebagai indikator apakah pada system terdapat waveform output devices.

Fungsi PlayWaveFile diatas digunakan untuk memainkan file WAV dan memiliki dua buah parameter yaitu FileName sebagai variabel penampung filename WAV nya dan satu lagi adalah Async yang digunakan sebagai flag yang menentukan bagaimana file WAV tersebut dimainkan. Flag Async disini bisa memainkan file WAV secara sinkronus atau asinkronus. Paca contoh di atas akan memainkan file longsnp.wav yang terletak di c:\.

Selain source di atas Anda juga bisa mendownload contoh source code Visual Basic 6.0 di atas lengkap dengan contoh file WAV pada file sc_sndplay.zip.

Demikianlah tips singkat mengenai memainkan file WAV pada Visual Basic, semoga bermanfaat bagi Anda semuanya. Jika ada saran atau komentar bisa dikirimkan melalui sony-ak@sony-ak.com. Untuk membaca tulisan menarik lainnya bisa meuju ke www.sony-ak.com.

Terimakasih.