oke guys kembali lagi bersama saya Mr.gagaltotal666 kali ini saya
akan share cara membuat media player sederhana di visual basic 6.0,
oke langsung saja ikuti step by step nya ya ^_^
pertama kalian buka Visual basic 6.0
kemudian kalian pilih Stardard.EXE lalu enter
maka akan ada tampilan Form 1
tahap ke dua kalian klik project pada atas menu bar VB 6.0 dan
pilih Component atau biar cepat nya Ctrl + T
kemudian kalian ceklis Microsoft Common dialog control dan Media Player
maka akan muncul disamping tools bar
tahap selanjutnya kalian Drag tools Media Player ke Form 1
lebar kan sesuka kalian ^_^
tahap selanjutnya kalian Drag tools Common Dialog Control ke Form 1

taruh di sebelah atas kiri saja
ok tahap selanjutnya kalian buat Button , Drag tools Button ke Form 1
dan kasih nama : Open File
jika kalian ingin mengubah nama nya kalian klik propertis di sebelah kanan
dan pilih Caption jika sudah kalian letakan di sebalah pojok kanan
kemudian kalian masukan Coding Button : Open File,
cara nya Klik 2x di Button nya dan masukan Coding Script ini :
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
oke tahap selanjutnya kalian buat Label dan Drag tools Label ke Form 1
dan hapus nama Label nya
pilih di Propertis klik Autosize nya menjadi : True
gunanya untuk mengetahui apa nama file yang sedang di mainkan
tahap selanjutnya kalian Klik 2x di Label
dan masukan Coding ini :
Label1.Caption = CommonDialog1.FileTitle
jika sudah kalian klik kembali Common Dialog Control
klik Propertis di sebelah kanan
cari Filter dan ketikan :
MP3 (.Mp3)|*.Mp3|Wav (.Wav)|*.Wav|Mpg (.Mpg)|*.Mpg|Flv (.Flv)|*.Flv|3gp (.3gp)|*.3gp|AVI (.Avi)|*.Avi|Mp4 (.Mp4)|*.Mp4|All Files (*.*)|*.*
nah jika semua sudah , kalian jalankan Program nya
klik pada Menu Bar dan klik tanda panah yang arah ke kanan
TARAAA iini dia Program nya ^_^
ini dia guys jika di play
dan pas tadi fungsi di kasih Fitler itu di Common Dialog Control dia
akan memilih jenis file Mp3 Mkv, MP4 dan lain nya/All Files
Sekian tutorial nya dari saya ^_^ Semoga Bermanfaat bagi kalian semua
0 Comments