Membuat Music Player dengan Visual Basic

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang bersIfat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa BASIC dan
menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.
Oke kita masuk kebagian inti yaitu Projek  sederhana membuat musik player menggunakan VB 6.0
Langkah-langkah.
1. Buka Microsoft Visual Basic. Klik start All Program Microsoft Visual Studio Microsoft Visual Basic 6.0
2. Kemudian akan tampil Jendela New Project (Gambar 1) kemudian pilih Standart EXE. Klik Open
Kemudia akan tampil Area Kerja.

1. Form
2. Project Explorer
3. Properties
4. Toolbox4. Tambahkan 3 komponen pada Toolbox. Klik kanan di toolbox Components…
5. Ceklis pada Microsoft Common Control Dialog 6.0 (SP.6), Mirosoft Windows Common Controls 6.0
(SP.6). dan Windows Media Player Klik OK. (Gambar 3).

6. Tambahkan 2 komponen Label di dalam Form, dua buah Timer, 5 CommandButton, 1 buah PictureBox dan 1 buah ListView serta 1 buah CommonDialog.
7. PictureBoxTempatkan agar sesuai dengan Gambar 4.


8. Ubah propertiesnya seperti di bawah ini.

kemudian ketikkan code dibawah ini

Option ExplicitDim lokasi As StringDim tmpDurasi As StringDim i As IntegerPrivate Sub cmdNext_Click()If lvwLagu.selectedItem.Index = i Then
cmdStop_Click
lokasi = lvwLagu.ListItems(1)
lvwLagu.ListItems(1).Selected = True
cmdPlay_Click
Else
cmdStop_Click
lokasi = lvwLagu.ListItems(lvwLagu.selectedItem.Index + 1)
cmdPlay_Click
lvwLagu.ListItems(lvwLagu.selectedItem.Index + 1).Selected = True
cmdPlay_Click
End If
End Sub
Private Sub cmdPlay_Click()
On Error GoTo pesan
If cmdPlay.Caption = “> Play” Then
If cmdPlay.Caption = “> Play” Then
cmdPlay.Caption = ” Pause”
wmpPlayer.URL = lokasi
Timer1.Enabled = True
Timer2.Enabled = True
Else
wmpPlayer.Controls.play
cmdPlay.Caption = ” Pause”
End If
Else
wmpPlayer.Controls.pause
cmdPlay.Caption = “> Play”
End If
Exit Sub
pesan:
MsgBox “Pilih lagu dulu dong!”, vbOKOnly + vbInformation, “Lagu kosong”
cmdPlay.Caption = “> Play”
End Sub
Private Sub cmdPrev_Click()
If lvwLagu.selectedItem.Index = 1 Then
Exit Sub
Else
cmdStop_Click
lokasi = lvwLagu.ListItems(lvwLagu.selectedItem.Index - 1)
cmdPlay_Click
lvwLagu.ListItems(lvwLagu.selectedItem.Index - 1).Selected = True
cmdPlay_Click
End If
End Sub
Private Sub cmdStop_Click()
wmpPlayer.Controls.stop
End Sub
Private Sub cmdTambah_Click()
Dim lis As ListItem
With dlgMusic
.DialogTitle = “Cari Lagu”
.Filter = “File Musik ” & “(*.mp3;*.mid;*.wav)” &_
“*.mp3;*.mid;*.wav”
.ShowOpen
Set lis = lvwLagu.ListItems.Add(, , .FileTitle)
lis.SubItems(1) = .FileName
End With
i = lvwLagu.ListItems.Count
If lokasi <> “” Then
Exit Sub
Else
lokasi = dlgMusic.FileName
End If
End Sub
Private Sub Form_DblClick()
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
buatTable
i = 1
End Sub
Private Sub lvwLagu_DblClick()
cmdStop_Click
lokasi = lvwLagu.selectedItem.ListSubItems(1)
cmdPlay_Click
End Sub
Private Sub Timer1_Timer()
lblDUrasi.Caption = wmpPlayer.Controls.currentPositionString
tmpDurasi = wmpPlayer.currentMedia.durationString
lbljudul.Caption = wmpPlayer.currentMedia.Name
If lblDUrasi.Caption = “” Then
cmdNext_Click
End If
End Sub
Private Sub Timer2_Timer()
If lbljudul.Left < Picture1.Width - Picture1.Width - lbljudul.Width Then
lbljudul.Left = Picture1.Width - 1
lbljudul.Left = lbljudul.Left - 5
Else
lbljudul.Left = lbljudul.Left - 5
End If
End Sub
Sub buatTable()
With lvwLagu.ColumnHeaders
.Clear
.Add , , “Lagu”, 5000
.Add , , “”, 0
End With
End Sub

Semoga Bermanfaat