Cara Membuat Jam Digital Dengan VB.NET

Berikut tampilan/user interface akhir jam digital yang akan dibuat:

 Untuk membuatnya, pertama pastikan anda sudah membuka Microsoft Visual Studio. Disini penulis menggunakan Microsoft Visual Studio 2008.

Buatlah sebuah project baru dan tambahkan objek 2 buah label dan 1 buah timer kedalam form seperti pada gambar berikut:

 

Langkah selanjutnya, atur setiap property objek seperti pada tabel dibawah:

No

Control

Property

Value

1

Form(Form1)

Name

frm_jam_digital

 

 

Text

Jam Digital

 

 

FormBorderStyle

FixedSingle

 

 

MaximizeBox

False

 

 

TopMost

True

 

 

StartPosition

CenterScreen

2

Label(Label1)

Name

lbl_jam

 

 

BackColor

Silver

 

 

BorderStyle

Fixed3D

 

 

Font

Arial Narrow, 48pt, style=Bold

 

 

Text

0:00:00 PM

 

 

TextAlign

MiddleCenter

 

 

Dock

Fill

 

 

AutoSize

False

3

Label(Label2)

Name

lbl_tanggal

 

 

BackColor

224, 224, 224

 

 

Font

Arial Narrow, 11.25pt

 

 

Text

Tuesday, Desember 5, 2017

 

 

TextAlign

MiddleCenter

 

 

Dock

Bottom

 

 

AutoSize

False

4

Timer(Timer1)

Name

tmr_jam

 

 

Enabled

True

 

 

Interval

1000

 

Setelah selesai mengatur setiap objek, selanjutnya pemberian kode agar program bisa berjalan.

Private Sub frm_jam_digital_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

lbl_jam.Text = TimeOfDay

lbl_tanggal.Text = FormatDateTime(Now, DateFormat.LongDate)

End Sub

kode diatas akan mulai bekerja ketika program dibuka/dijalankan. Pada tahap ini text lbl_jam akan diganti dengan jam/waktu saat kode dieksekusi. Selanjutnya text lbl_tanggal juga akan diganti dengan tanggal pada saat kode dieksekusi.

Selanjutnya pemberian kode pada objek timer(tmr_jam) dengan method Tick.

Private Sub tmr_jam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_jam.Tick

lbl_jam.Text = TimeOfDay

lbl_tanggal.Text = FormatDateTime(Now, DateFormat.LongDate)

End Sub

Kode yang ada pada objek timer ini akan bekerja ketika property Enabled-nya bernilai True.Property Interval pada objek Timer tmr_jam diset menjadi 1000 yang berarti 1 detik, jadi kode yang ada pada objek timer ini akan dieksekusi/dijalankan setiap 1 detik.

Kode yang ada pada objek timer ini sama dengan kode yang ada pada objek form yang bertujuan untuk mengubah text lbl_jam menjadi jam/waktu dan text yang ada pada lbl_tanggal menjadi tanggal.

Proses pembuatan jam digital selesai, sekarang tinggal jalankan programnya.

 

(Average rating 0 on 0 rating)