Rabu, 18 Maret 2009

Membuat Musik Player dg VB 6.0




Wih, dah lama buanget ae ga nulis lagi, ah ane nyoba lagi nulis di blog kesayangan ane ini dg yang ane bisa. sebelum mulai masih ingetkan yang harus di persiapin, hayoo apa an tuh.

jangan lupa napas. hee...


kali ni ane mau nulis cara MP3 player, walau biasa tapi lumayan dah buat pemula.


sebelumnye ane kasih pendahuluan dulu.



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.
Di pertemuan ii kita akan membuat Aplikasi sederhana dengan mengunakan Visual Basic 6.0, yaitu membuat Program Pemutar Musik (Music Player).
Langkah-langkah.
1. Buka Microsoft Visual Basic. Klik start All Program Microsoft Visual Studio Microsoft Visual Basic 6.0
2. Kemudia akan tampil Jendela New Project (Gambar 1) kemudian pilih Standart EXE. Klik Open.



3. Kemudia akan tampil Area Kerja.

1. Form
2. Project Explorer
3. Properties
4. Toolbox


4. 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 Properties masing-masing komponen seperti di bawah ini.




kemudian ketikan syntak seperti di bawah ini!



Option Explicit
Dim lokasi As String
Dim tmpDurasi As String
Dim i As Integer

Private 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

Nah, beres kan...

kalau mau nyoba source yang dah jadi, klik disini