Rabu, 04 Juli 2012

Membuat Media Player dengan VB.NET (Pemrograman Visual Basic .NET)


Media Player

Untuk membuat aplikasi Media Player di Visual Basic .NET dapat digunakan komponen yang merupakan bawaan dari Windows, yaitu bawaan Windows Media Player. Langkah-langkah pembuatannya sebagai berikut :

1. Buka Visual Studio. Klik menu File-New-Project. Akan muncul dialog New Project. Pilih Project types : Visual Basic-Windows, Templates : Windows Application. Klik OK. Isikan nama project MediaPlayer kemudian pilih direktori tempat dimana project akan disimpan.




2. Akan ditampilkan Form1 yang masih kosong. Buka Toolbox Tab Components, kemudian klik kanan pilih Choose Items untuk menambahkan komponen Media Player yang belum secara default tersedia. 


3. Akan ditampilkan dialog Choose Toolbox Items. Pilih Tab COM Components, kemudian pilih Windows Media Player dengan cara check pada checkbox di depan nama komponen. Kemudian klik OK.


4. Kemudian komponen Windows Media Player akan secara otomatis ditambahkan pada Toolbox.


5. Dari Toolbox Tab Components tambahkan komponen Windows Media Player ke Form1. Kemudian tambahkan 6 buah komponen Button ke Form1, 1 buah komponen TextBox ke Form1, 1 buah komponen OpenDialog ke Form1 dan tambahkan 1 buah komponen CheckBox ke Form1. Ubah nama Form1 menjadi FPlayer, kemudian nama komponen Windows Media Player menjadi Mplayer, Button menjadi bPlay, bStop, bUp, bLow, bBrowse, dan bExit Browser. Ubah name dari TextBox menjadi tPath, OpenDialog menjadi oDg dan CheckBox menjadi cMute. Sehingga tampak seperti pada tampilan berikut ini :


6. Klik dua kali pada Button bBrowse, akan ditampilkan kode program FPlayer.vb milik FPlayer. Pada event procedure Private Sub bBrowse_Click tambahkan kode program berikut ini :

Private Sub bBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bBrowse.Click
If oDg.ShowDialog = Windows.Forms.DialogResult.OK Then
tPath.Text = oDg.FileName
Else
tPath.Text = ""
End If
End Sub

7. Kemudian klik dua kali pada bPlay dan berturut-turut selanjutnya bStop, bUp, bLow dan bExit. Tambahkan kode program berikut ini pada event-event-nya :

Private Sub bPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPlay.Click
MPlayer.URL = tPath.Text
End Sub

Private Sub bStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bStop.Click
MPlayer.close()
End Sub

Private Sub bUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bUp.Click
MPlayer.settings.volume = MPlayer.settings.volume + 1
End Sub

Private Sub bLow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLow.Click
MPlayer.settings.volume = MPlayer.settings.volume - 1
End Sub

Private Sub bExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bExit.Click
End
End Sub

8. Klik dua kali pada checkbox cMute, akan ditampilkan kode program FPlayer.vb milik FPlayer. Pada event procedure Private Sub cMute_CheckedChanged tambahkan kode program berikut ini :

Private Sub cMute_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMute.CheckedChanged
MPlayer.settings.mute = cMute.Checked
End Sub

9. Untuk menjalankan program klik menu Debug-Start Debugging (F5). Kemudian klik tombol ”Browse”, akan muncul kotak dialog Open File, coba pilih sebuah file video (*.dat atau *.mpg) atau file musik (*.mp3). Kemudian klik ”Play”, maka file tersebut akan diputer pada Media Player. Untuk menghentikan klik ”Stop”. Untuk mengecilkan volume klik dua buah tombol volume yang tersedia, untuk menghilangkan suara (”mute”) klik checkbox ”Mute”.