4 Jan 2012

Memainkan file MIDI di Visual Basic

Penggunaan file MIDI di aplikasi dapat difungsikan sebagai sound effect (mungkin pada saat menutup aplikasi, ada notifikasi dan semacamnya). File MIDI sendiri berukuran cukup kecil biasanya dalam kisaran kilobyte, sehingga sangatlah sesuai sebagai pelengkap dan membuat pengguna nyaman dengan aplikasi anda.
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

Garudayasa

Garudayasa