membuat media player sendiri dengan vb 6

posted by: irv4n s@ndEr

    

          Membuat media player dengan menggunakan visual basic itu relative mudah karena vb sudah menyediakan komponen-komponen pendukung project. pada project ini saya hanya sekedar memberi teknik-teknik dasar untuk selanjutya anda bisa mengembangkannya sendiri.

Yoek langsung aja…….. oh ya sebelum kita ke TKP sedia’in dulu secangkir coffee !!!!!!!!!!!

Ok guys,,,, pertama buka dulu vb standard exe_nya dulu kemudian tekan tombol Ctrl+T kemudian beri tanda centang pada komponen” Microsoft common dialog control 6.0 (sp3) dan windowMediaPlayer” lalu Click Ok.

Gambar :

Item yang kita butuhkan yaitu :



a. Command button 4.
b. Listbox 1.
c. WindowMediaPlayer 1.
d. Common Dialog 1.

# kemudian desaign seperti gambar berikut:    



# kemudian atur beberapa control nilai propertinya seperti table dibawah:

# sekarang tinggal masukan kodenya kedalam form:
Code:
Private Sub cmdadd_Click()
Dim sFile As String
With dialog
.DialogTitle = "Ev@n-Open media file"
.CancelError = False
.Filter = "All Suported Files"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
With List1
.AddItem sFile
End With
End With
End Sub

Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdplay_Click()
Smarv4n.URL = List1
End Sub

Private Sub cmdstop_Click()
Smarv4n.URL = pause
End Sub

Private Sub List1_Click()
Smarv4n.URL = List1
End Sub

email: boyhells@ymail.com

================= Good luck =====================