Belajar vb 6.0 Kontrol Listbox dan Jam

berikut dibawah ini langkah-lankah sederhana membuat program dengan menggunakan kontrol listbox dengan menggunakan jam.

1. Klik dua kali "LISTBOX" yang berada di bagian sebelah kiri kotak Form atau biasa disebut berada di "TOOLBOX" aturlah posisi dan lebar sesuai keinginan sobat.

2. setelah itu klik dua kali lagi "TIMER" yang berlambangkan seperti jam yang berada disebelah kanan kotak Form aturlah posisi dan lebar sesuai keinginan sobat.

3. Lalu tuliskan program dibawah ini dengan mengklik dua kali kotak form jangan sampai terkena "LISTBOX" , dan "TIMER"

Private Sub Form_Load()
List1.AddItem "Cepy", 0
List1.AddItem "Asep", 1
List1.AddItem "Agus", 2
List1.AddItem "Dimas", 3
List1.AddItem "badul", 4
List1.AddItem "Dorman", 5
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

4. Tuliskan kembali program dibawah ini dengan mengklik dua kali "LISTBOX"

Private Sub List1_Click()
If List1.ListIndex = -1 Then
MsgBox "Nama"
Else
MsgBox "Nama Mahasiswa = " & List1.Text & ", NIM = " & List1.ListIndex
End If
End Sub


5. Terakhir tulis program dibawah ini dengan mengklik dua kali "TIMER" yang berada dalam kotak Form

Private Sub Timer1_Timer()
Cls
Form1.FontSize = 10
Form1.FontBold = 2
Form1.ForeColor = vbRed
Print Time$
End Sub

Selamat belajar vb 6.0 semoga bermanfaat apabila berhasil akan terlihat seperti gambar diatas programnya

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya