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
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.7. PictureBoxTempatkan agar sesuai dengan Gambar 4.
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
Tidak ada komentar:
Posting Komentar