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
Posting Komentar