visual basic

VISUAL BASIC

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
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.^[1]
Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.^[1]
Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.^[1] Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.^[1]

New project

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