Visual Basic - Tanggal dan Jam

Kali ini saya akan membeberkan bagaimana caranya membuat atau menyisipkan tampilan Tanggal dan Jam.

Seperti berikut :

Ini adalah tampilan paling sederhana.

Caranya…

 

ToolBox	Properties
Label 1	Name`	LblTgl
	Caption	Kosongkan
	Font	Ubah sesuai kebutuhan
Label 2	Name	LblJam
	Caption	Kosongkan
	Font	Ubah sesuai kebutuhan
Timer1	Interval	1000

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, 

Tadi menampilkan Jam dan Tanggal dengan Label.

Bagaimana dengan 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

~.. Selamat Mencoba ..~

Sumber :

Materi ini dari catatan materi kuliah saya. 

Sebagai catatan pribadi sekaligus mencoba berbagi sedikit ilmu.

Posted in: Seputar Pemprograman, Visual Basic 6.0