Media Player Visual Basic (LA4)

Postingan ini kita akan membuat sebuah pemutar musik. Kita akan membuatnya di visual basic 6. Sebelum membuatnya kalian harus terlebih dahulu komponen yang akan dierlukan yaitu adalah
1. Microsoft Commen Dialog Control 6.0 (MsCDC)
2. Windows Media PLayer

Sebelum kekodingan 2 komponen itu harus kita tambahkan terlebih dahulu jika di tool bar kalian belum ada. Caranya ialah klik kanan pada toolsbar visual basic kalian yang ada di sebelah kiri lalu cari kedua komponen tersebut.



Setelah ditambhakan langsung saja kekodingan sebagai berikut :
LISTING PROGRAM

Private Sub Command1_Click()
Dim buka As String
With CommonDialog1
.DialogTitle = "Buka Media"
.CancelError = False
.Filter = "Not Open"
.ShowOpen
buka = .FileName
With List1
.AddItem buka

End With
End With

End Sub

Private Sub Command2_Click()
Me.WindowState = 1

End Sub

Private Sub Command3_Click()
a = MsgBox("Dibuat oleh gw, bersama team sukses lainnya", vbInformation, "About")

End Sub

Private Sub Command4_Click()
e = MsgBox("Yakin ingin keluar", vbYesNo, "Peringatan")
If e = vbYes Then
End
End If

End Sub

Private Sub List1_Click()
WindowsMediaPlayer1.URL = List1

End Sub

OUTPUT PROGRAM

Untuk kalian yang sudah mecoba, jika belum mengerti dari logika kodingan ini bisa di download file ini. Downlaod disini.