Program Menampilkan Tanggal dan Jam Visual Basic

Posted by : Panji Maulana Putra Friday, December 22, 2017

Menampilkan Jam dan Tanggal pada Label.
pertama-tama buatlah form yang berisi 2 label dan 1 timer seperti dibawah

Kalau di gambar caption dari masing-masing label masih ada silahkan dikosongkan.

Lalu ketikkan listing berikut pada Timer1. Atau klik 2 kali tool Timer1.

Private Sub Timer1_Timer()

lbltgl.Caption = Date

lbljam.Caption = Time

End Sub

Kita juga bisa mengganti format di listingnya.

Seperti berikut,

Private Sub Timer1_Timer()

lbltgl.Caption = Format(Date, "dddd, d mmmm yyyy")

lbljam.Caption = Time

End Sub

Penulisan Format(Date, "dddd, d mmmm yyyy")

dddd untuk hari,

d untuk tanggal,

mmmm untuk bulan,

yyyy untuk tahun,

Berikut Hasilnya,

Menampilkan Jam dan Tanggal pada TextBox

Hampir sama, perbedaannya ada pada penulisan listingnya.

Saya berikan contoh penulisan tanggalnya

Perbedaan hanya ada pada tanggal yang saya ganti dengan TextBox

Berikut listingnya.

Private Sub Timer1_Timer()

txttgl.Text = Date

lbljam.Caption = Time

End Sub

Perbedaan hanya ada pada .Text dan .Caption

Panjiologi