Friday, December 14, 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.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” ..
4. jika sudah kita akan mengisi Code di bawah ini :
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
List1.AddItem Dir1.Path & “\” & File1.FileName
List2.AddItem File1.FileName
End Sub
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
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
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
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.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
Sumber : http://mengutipilmu.blogspot.com/ Tags: Coding , Hacking , Informasi , Tips And Trick
Subscribe to:
Post Comments (Atom)
2 Responses to “Membuat Window Media Player dengan Visual Basic”
February 20, 2013 at 8:02 PM
Artikel yang menarik...!
Ha ha...
Blog Walking....
February 20, 2013 at 10:41 PM
Gak isa bro!!
Cuma bisa buka c:\ doank!!
Post a Comment