Media Player Sederhana

Kontrol Windows Media Player terdapat dalam file Windows Media Player (wmp.dll). Untuk menggunakan kontrol ini pada program, Anda harus menambah kontrol ke dalam toolbox dengan perintah Components (CTRL + T ) pad Menu Project, Lalu mengklik Kontrol dan membuat antarmuka baris perintahuntuk Tool pada Form anda. Ikuti cara berikut ini :

1. Jalankan Visual Basic lalu buka project Standard EXE baru.
2. Klik perintah Components (Ctrl+T) pada menu Project.
3. Tandai kontrol Microsoft Common Dialog Control 6.0 dan Windows Media Player seperti gambar di
bawah ini .
 

Selanjutnya buat Form seperti gambar berikut :


Setting Property Control seperti pada table dibawah ini :
No Objek Properti Nilai

1 Windows Media player = Name (WindowsMediaPlayer1)
2 Frame1 = Caption (Play List)
3 List1 = Name (List1)
4 Command1 = Caption (Add)
5 Command2 = Caption (Rem)
6 Command3 =Caption (Clear)
7 common (Dialog1)  Name (CommonDialog1)

Ketikkan Kode Program dibwah ini :

Private Sub Form_Load()
' Ubah setting media player
WindowsMediaPlayer1. _
settings.autoStart = False
End Sub

Private Sub Command1_Click()
Dim sFile As String
'Tampilkan kotak dialog Open
With CommonDialog1
.Filter = "All Files|*.*|Wave|" & _
"*.wav|MPx Files|*.mp3"
.FilterIndex = 3
.DefaultExt = "mp3"
.DialogTitle = _
"Menambah file multimedia"
.CancelError = False
.ShowOpen
sFile = .FileName
'Tambahkan file
If Len(sFile) <> 0 Then
List1.AddItem sFile
End If
End With
End Sub

Private Sub Command2_Click()
If List1.ListIndex <> -1 Then
'Hapus item dalam list
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command3_Click()
'Hapus semua list
List1.Clear
End Sub

Private Sub List1_Click()
If Len(WindowsMediaPlayer1.URL) = 0 Then
'Buka file multimedia
WindowsMediaPlayer1.URL = List1
End If
End Sub

Private Sub List1_DblClick()
Dim sFile As String
sFile = List1
If Len(sFile) <> 0 Then
'Jalankan file multimedia
With WindowsMediaPlayer1
.URL = sFile
.Controls.play
End With
Caption = Dir(sFile)
End If
End Sub

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.