Windows Media Player pada Vb


gambar dia atas merupakan listing code Windows Media Player pada Vb.

logika program :
Logika program Windows Media Player pada Vb.
Pertama buka VB dan tekan CTRL+T kemudian dan tambahkan Windows Media Player dan Microsoft Common Dialog Control 
Dan akan muncul icon Windows Media Player dengan Common Dialog Control
Dan buat design seperti :


Dalam design tersebut terdapat
Windows Media Player sebagai media untuk membuka audio, video dsb pada VB
Command button 1 (Open File) dimana jika telah di run, open file akan membuka file yang akan dimainkan.
Common Dialog sebagai
Listbox1 yaitu memunculkan playlist yang akan dimainkan
Commandbutton 2(clear) untuk menghapus playlist dalam list
Commandbutton3(play) untuk memutar file pada WMP
Commandbutton4(stop) untuk menghentikan file yang sedang berlangsung/berjalan
Commandbutton5(pause) untuk menjeda file yang sedang berjalan
Commandbutton6(resume) untuk melanjutkan kembali file yang sedang di pause
Commandbutton7(+) sebagai volume agar semakin meningkat tingkat suaranya
Commadbutton8(mute) untuk menghilangkan suara
Commandbutton9(-) untuk menurunkan volume
Kemudan setelah semua design telah terpenuhi maka dituliskan sebuah code pada setiap bagian agar mempunyai fungsi masing masing.
Pada common dialog tuliskan code :
Private Sub Command1_Click()
With CommonDialog1
.DialogTitle = "open video"
.Filter = "WMV File (*.wmv)| *.wmv"
.ShowOpen
afile = .FileName
WindowsMediaPlayer1.URL = CommonDialog1.FileName
With List1
.AddItem afile
End With
End With
End Sub

Source code tersebut berfungsi agar commandbutton open video juga dapat aktif, jadi mencari suatu file yang akan dibuka melalui vb dapat dilakukan dengan mengklik open video tersebut, dengan code WindowsMediaPlayer1.URL = CommonDialog1.FileName maka dapat dibuka suatu file pada open file . Yang kemudian file yang dipilih akan secara otomatis terdapat pada listbox, dalam sebuah listbox dapat ditambah suatu file lainnya yang dapat dibuka. File yang dibuka adalah file yang berformat WMF file (*.wmf)



Setelah itu untuk dapat menjalankan commandbutton clear maka dituliskan sebuah code:

Private Sub Command2_Click()
a = List1.ListIndex
List1.RemoveItem (List1.ListIndex)
End Sub

Code List1.RemoveItem (List1.ListIndex) berfungsi untuk menghapus salah satu list yang ada pada listbox. Sehingga jika ada 2 atau lebih list yang ada pada listbox maka hanya akan terhapus satu playlist saja.


Kemudian dalam pemutaran suatu file tersebut belum terdapat suara, dan belum terdapat perintah untuk play, resume, stop, pause maka dituliskan code :
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.stop
End Sub
Private Sub Command5_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub Command6_Click()
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Command7_Click()
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 10
End Sub
Private Sub Command8_Click()
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume = 0
End Sub

Private Sub Command9_Click()
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume – 10

Suatu windows media player mendapatkan suatu control play dengan menambahkan WindowsMediaPlayer1.Controls.play maka file yang dipilih dapat diplay dengan menekan commandbutton play, dan dapat menstop file yang sedang berjalan dengan WindowsMediaPlayer1.Controls.stop maka Windows media mendapat perintah untuk menstop file yang sedang berjalan, WindowsMediaPlayer1.Controls.pause sebuah control agar dapat menjeda file yang sedang berjalan, WindowsMediaPlayer1.Controls.resume adalah sebuah control untuk melanjutkan file yang dijeda pada windows media player. Dan untuk volume naik akan meningkat +10 semakin besar suara karna terdapat sebuah code WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 10, dan volume akan semakin mengecil -10 dikarenakan terdapat sebuah code WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume – 10, sedangkan mute yang berarti tidak terdengar suara sama sekali dari file yang diputar disebabkan code WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume = 0

output pada saat play:


output pada saat pause:

output pada saat stop:




Komentar