Untuk membuat mp3 Player kita hanya membutuhkan beberapa Item yaitu:
1. Commandbutton (5)
2. Listbox (3)
3. CommonControlDialog (1)
4. MediaPlayer (1)
Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.
Berikut tampilan setelah semua item dimasukan:
Ubah tampilan semenarik mungkin menurut anda..!!!
Masukan source kodenya sebagai berikut:
'---------------------------
Private Sub Command1_Click()
On Error Resume Next
Dim buka As String
With CommonDialog1
.Filter = "All Support*.mp3;*.wav;*.mid;*.wma;*.dat;*.avi;*.wmv;*.mpeg;*.mpgmp3 files*.mp3all files*.*"
.DialogTitle = "ebenk - Open Music files"
.FileName = ""
.ShowOpen
buka = .FileName
If .FileName = "" Then
Exit Sub
Else
List1.AddItem buka
List2.AddItem .FileTitle
End If
End With
End Sub
Private Sub Command2_Click()
Dim main As String
main = List1.Text
If List1.Text = "" Then
MsgBox "Tentukan Lagu Yang Akan Di Mainkan", vbCritical + vbOKOnly, "Konfirmasi"
Else
player.Open main
End If
End Sub
Private Sub Command3_Click()
player.Stop
End Sub
Private Sub Command4_Click()
player.Pause
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_DblClick()
Dim main As String
main = List1.Text
player.Open main
End Sub
Private Sub Player_EndOfStream(ByVal Result As Long)
On Error Resume Next
player.Stop
With Form1
If List1.ListIndex = List1.ListCount - 1 Then
List1.ListIndex = 0
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
Else
.List1.ListIndex = .List1.ListIndex + 1
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
End If
End With
player.Open List1.Text
End Sub
'-------------------------
Bagaimana apakah masih terjadi bug..???? Untuk source kode diatas tidak perlu dijelaskan lebih terperinci karena semua source kode diatas masih sangat mendasar..!!! Dan program diatas akan menjadi lebih baik jika anda mengembangkan sendiri
Untuk mendownload contoh project diatas silahkan download disini
1. Commandbutton (5)
2. Listbox (3)
3. CommonControlDialog (1)
4. MediaPlayer (1)
Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.
Berikut tampilan setelah semua item dimasukan:
Ubah tampilan semenarik mungkin menurut anda..!!!
Masukan source kodenya sebagai berikut:
'---------------------------
Private Sub Command1_Click()
On Error Resume Next
Dim buka As String
With CommonDialog1
.Filter = "All Support*.mp3;*.wav;*.mid;*.wma;*.dat;*.avi;*.wmv;*.mpeg;*.mpgmp3 files*.mp3all files*.*"
.DialogTitle = "ebenk - Open Music files"
.FileName = ""
.ShowOpen
buka = .FileName
If .FileName = "" Then
Exit Sub
Else
List1.AddItem buka
List2.AddItem .FileTitle
End If
End With
End Sub
Private Sub Command2_Click()
Dim main As String
main = List1.Text
If List1.Text = "" Then
MsgBox "Tentukan Lagu Yang Akan Di Mainkan", vbCritical + vbOKOnly, "Konfirmasi"
Else
player.Open main
End If
End Sub
Private Sub Command3_Click()
player.Stop
End Sub
Private Sub Command4_Click()
player.Pause
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_DblClick()
Dim main As String
main = List1.Text
player.Open main
End Sub
Private Sub Player_EndOfStream(ByVal Result As Long)
On Error Resume Next
player.Stop
With Form1
If List1.ListIndex = List1.ListCount - 1 Then
List1.ListIndex = 0
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
Else
.List1.ListIndex = .List1.ListIndex + 1
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
End If
End With
player.Open List1.Text
End Sub
'-------------------------
Bagaimana apakah masih terjadi bug..???? Untuk source kode diatas tidak perlu dijelaskan lebih terperinci karena semua source kode diatas masih sangat mendasar..!!! Dan program diatas akan menjadi lebih baik jika anda mengembangkan sendiri
Untuk mendownload contoh project diatas silahkan download disini
