Untuk memainkan file MIDI di Visual Basic dapat anda gunakan bantuan dari DirectX, yang bernama AudioVideoPlayback.
Pertama lakukan imports seperti dibawah ini:
Imports
Microsoft.DirectX.AudioVideoPlayback
Potongan kode pada event click btnPlay:
Private
Sub
btnPlay_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
btnPlay.Click
If
btnPlay.Text =
"Play"
Then
btnPlay.Text =
"Stop"
fileAudio =
New
Audio(txtLokasiFile.Text)
fileAudio.Play()
fileStartTime = Now
Else
btnPlay.Text =
"Play"
fileAudio.
Stop
()
fileAudio.Dispose()
fileAudio =
Nothing
End
If
End
Sub
Sebenarnya fungsi dari AudioVideoPlayback tidak hanya terbatas pada file MIDI, jadi dapat anda gunakan untuk beberapa tipe Audio lainnya dan tentu saja beberapa jenis Video juga bisa dimainkan.
No comments:
Post a Comment