Membuat Jam dan Tanggal Sekarang Di VB6

Selamat malam kawan , kali ini saya akan mencoba berbagi sedikit tentang Membuat Jam dan Tanggal Sekarang dengan VB6. Sebenarnya tujuan saya menulis di blog ini adalah untuk catatan pribadi. Setiap manusia pasti ada lupanya =D, dan syukur - syukur blog ini bisa memberikan manfaat bagi pembaca khususnya yang sedang belajar Pemograman VB6 ( Visual basic 6 ).

Untuk membuat jam dan tanggal di VB6 hal pertama yang harus di siapkan adalah
2 Label dan 1 Timer.

Oke langsung aja kita ke langkah - langkah :
Pertama buka Visual Basic 6 > New Project > Standar Exe

Selanjutnya masukan 2 Label ke Form, Sesuaikan tataletak sesuai selera masing - masing

Setelah memasukan label ke form, selanjutnya menambahkan 1 Timer ke Form, Letaknya bebas karena Timer pada saat program dijalankan tidak akan tampak.

Selesai urusan dengan layout, sekarang kita mulai Koding.

Pertama kita beri script pada Timer1, Klik 2X tepat pada Icon Timer
lalu ketik script seperti dibawah ini :

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Note : Untuk Private Sub Timer1_Timer() dan End Sub Sudah otomatis muncul, jadi kita hanya mengetik script Label1.Caption = Time
Script diatas berfungsi untuk membuat Jam

Selanjutnya untuk membuat tanggal ketik script berikut pada Form Load()
Private Sub Form_Load()
Label2.Caption = Format(Date, "dddd,d mmmm, yyyy")
End Sub

Sehingga jika digabungkan scriptnya seperti dibawah ini

Private Sub Form_Load()
Label2.Caption = Format(Date, "dddd,d mmmm, yyyy")
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Agar Jam dapat berfungsi dengan baik, maka harus kita setting interval pada Timer1, Caranya klik Timer1 lalu pada bagian property ( Sebelah kanan layar) Ubah Interval yang tadinya 0 menjadi 1000.
Kenapa 1000, Karena 1detik = 1000milisecond.

Selesai!!
Sekarang coba run Maka hasilnya akan seperti ini

Jika ingin lebih jelas silahkan lihat Video dibawah ini
Jangan lupa brelanganan ya ^_^

Selamat Mencoba . .
Semoga Bermanfaat