Sunday, October 7, 2012

Membuat Window Media Player dengan Visual Basic


Iseng2 aja mau berbagi nech. mudahan bermanfaat buat teman – teman yang lagi belajar visual basic 6.0.
Penjelasan nya agak simple jadi harap di maklumi.
1. Silahkan anda buka dulu Microsoft Visual Basic 6.0, setelah itu pada Tab Project –> Component Atau Shortcut CTRL + T
2. Cari Component “Windows Media Player” kemudian dicentang Lalu Ok.
3. Mari Masukkan Component – Component berikut ini pada Form Project : “Windows Media Player”, “Timer”, “DriveListBox”, “FileListbox” , “ListBox”, “DirListBox” ..
Coba perhatikan pada Komponen ListBox, Komponen ListBoxnya kita masukkan 2 buah List Box, tapi usahakan ListBox1 di Tindih sama ListBox2. Seperti yang terlihat pada gambar di bawah ini.
4. jika sudah kita akan mengisi Code di bawah ini :
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
List1.AddItem Dir1.Path & “\” & File1.FileName
List2.AddItem File1.FileName
End Sub
Private Sub List2_DblClick()
List1.ListIndex = List2.ListIndex
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
End Sub
Private Sub WindowsMediaPlayer1_EndOfStream(ByVal Result As Long)
List1.ListIndex = List1.ListIndex + 1
List2.ListIndex = List2.ListIndex + 1
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
End Sub
Private Sub Timer1_Timer()
BackColor = RGB(Rnd() * 225, Rnd() * 225, Rnd() * 225)
End Sub
Seperti yg terlihat pada Gambar dibawah ini :
Jika Sudah selesai, cara memainkan sangat mudah :
1. pada DriveListBox cari dimana anda menyimpan lagu atau video tersebut.
2. pada DirListBox cari dimana Folder lagu atau Video anda.
3. Jika anda extensi .mp3 , .DAT , .flv, .dll Secara otomatis akan masuk ke FileListBox, Jika Sudah lakukan Doble Klik pada lagu atau video yang mau anda putar.
4. Secara otomatis akan masuk ke ListBox. Double Klik untuk Play. Nikmatilah
Kekurangannya pada aplikasi ini adalah lagu yang sudah berada pada ListBox tidak bisa next secara otomatis  harus melakukan Double Klik lagi pada lagu atau Videonya.

2 Komentar "Membuat Window Media Player dengan Visual Basic"

Unknown November 13, 2012 at 11:31 AM WIB Permalink

ijin sedot bang admin...thanks
toko online

Aries_Bro November 14, 2012 at 7:56 PM WIB Permalink

ok Bang Raja...
jangan lupa link sumber Bang...