Visual Basic | Membuat Window Media Player dengan Visual Basic - Hallo sahabat Rumah Musafir Ilmu, Pada Artikel yang anda baca kali ini dengan judul Visual Basic | Membuat Window Media Player dengan Visual Basic, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Visual Basic | Membuat Window Media Player dengan Visual Basic
link : Visual Basic | Membuat Window Media Player dengan Visual Basic

Visual Basic | Membuat Window Media Player dengan Visual Basic

Materi ini Kang Duta dapet dari sobat Blogger, mudah2 an bisa memicu creatifitas para sahabat Musafir Ilmu skalian ya,.. :)

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.

Silahkan Download Hasil yang telah dibuat oleh sumber artikel DOWNLOAD DISINI

Demikianlah Artikel Visual Basic | Membuat Window Media Player dengan Visual Basic

Sekianlah artikel Visual Basic | Membuat Window Media Player dengan Visual Basic kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Visual Basic | Membuat Window Media Player dengan Visual Basic dengan alamat link http://bismillah-go.blogspot.com/2012/04/visual-basic-membuat-window-media.html