Memasang Waktu & Tanggal Berjalan (VB6)

Halo sobat, menyambung pada artikel sebelumnya.

• Membuat Form Login Sederhana
• Tanggal pada Statusbar MDIForm

Kali ini saya akan membagikan tutorial cara memasang waktu dan tanggal berjalan pada statusbar. langsung saja kita buka program Visual Basic 6 nya.

Langkahnya sama dengan artikel sebelumnya di artikel 'Tanggal pada Statusbar MDIForm'.

• Tambahkan 1 MDIForm :MDIForm1 (Default)
• Tambahkan Microsoft Windows Common Controls 6 (SP6)
  Caranya : Klik menu Project => Component , lalu centang Microsoft Windows Common Controls 6 (SP6), lalu klik OK
• Tambahkan Statusbar
• Tambahkan Timer

Double Klik pada icon Timer yang telah di tambahkan ke MDIForm. dan isikan coding dibawah ini ke Timer, maka pada coding akan menjadi seperti ini.

Private Sub Timer1_Timer()
        StatusBar1.Panels(1) = Format(Time & Date, "dd/MM/yyyy hh:nn:ss AM/PM")
End Sub

Rubah nilai Interval menjadi 1 pada Timer. seperti pada gambar dibawah ini.

Selanjutnya panggil timernya ke MDIForm_Load agar waktu dan tanggal berjalan. Masukkan coding seperti dibawah ini:

Private Sub MDIForm_Load()
       Call Timer1_Timer
End Sub

Mudah kan? hehe ... 

Download Source Code

Semoga Bermanfaat ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 3:55:00 PM and have 0 comments