Membuat Jam Digital Dengan Visual Basic

Langkah 1

Sebelumnya anda harus mempunyai program visual basic dulu…

Buka program VBnya, dimulai dengan start – all program – Microsoft visual Basic 6.0. dibawah ini adalah tampilan awal Microsoft Visual Basic 6.0.

Langkah 2

Pilih File – new project pada menubar, kemudian akan tampil New Project lalu pilih Standar EXE dan akan tampil Form1 seperti gambar dibawah ini.

Langkah 3

Pilih icon Image (garis merah) pada toolbox kemudian drag diform1 buat 6 kotak untuk jam : menit : detik dengan ukuran 672x1245. kemudian icon Label1 (garis kuning) Untuk titik dua pada pemisah jam. Lanjutkan dengan icon Timer (garis biru), teruskan dengan icon label2 (garis hijau) label ini untuk menunjukan AM/PM, lalu icon label3 (garis hitam) label ini untuk menampilkan hari, bulan, tanggal dan tahun.

Nah untuk icon Imagelist (lingkaran pink) ini didapat dari component, caranya klik kanan pada toolbox pilih component, akan muncul bagan component, ditab control pilih/beri tanda ceklis pada Microsoft Windows common control 6.0 (SP6) klik OK. Pilih icon ImageList lalu drag di lingkaran pink.

Langkah 4

Klik kanan pada imageList, kemudian pilih menu properties, aktifkan tab image kemudian masukan gambar 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 secara berurut, caranya klik insert picture.

Ini adalah gambar-gambar angka, anda bisa copy gambar ini.

Melalui Jendela Properties atur property setiap object sebagai berikut :

Object	Properties	Value
Image1	Name	Jam1
Image2	Name	Jam2
Image3	Name	Menit1
Image4	Name	Menit2
Image5	Name	Detik1
Image6	Name	Detik2
Label1	Name Caption	Kolom1 : (titik dua)
Label2	Name Caption	Kolom2 : (titik dua)
Label3	Name	LblAmPm
ImageList	Name Gambar	DigitAngka 0,1,2,3,4,5,6,7,8,9
Timer1	Name	Timer1

Langkah 4

Sekarang waktunya menuliskan kode-kodenya, caranya pilih menu View – Code atau klik 2x didalam form. Berikut ini adalah listing kodenya: copy dan paste di viewcode.

Private Sub Form_Load()

Me.BackColor = black

Kolom1.BackColor = black

Kolom2.BackColor = black

LblAmPm.BackColor = black

LblDate.BackColor = black

Kolom1.ForeColor = &HFF00&

Kolom2.ForeColor = &HFF00&

LblAmPm.ForeColor = &HFF00&

LblDate.ForeColor = &HFF00&

LblDate.Caption = Time & " - " _

& Format(Date, "Long Date")

Timer1.Interval = (1 - (Int(Timer) Mod 1)) * 1000

End Sub

Private Sub Menit1_Click()

End Sub

Private Sub Timer1_Timer()

On Error GoTo Eror

Dim t As String

Dim H1 As Integer, H2 As Integer

Dim M1 As Integer, M2 As Integer

Dim D1 As Integer, D2 As Integer

t = Time

If Len(Time) = 10 Then t = 0 & t

t = Replace(t, ":", "")

t = Replace(t, " ", "")

LblAmPm.Caption = Right(t, 2)

t = Replace(t, "PM", "")

t = Replace(t, "AM", "")

H1 = Mid(t, 1, 1)

H2 = Mid(t, 2, 1)

M1 = Mid(t, 3, 1)

M2 = Mid(t, 4, 1)

D1 = Mid(t, 5, 1)

D2 = Mid(t, 6, 1)

FormatJam Jam1, H1

FormatJam Jam2, H2

FormatJam Menit1, M1

FormatJam Menit2, M2

FormatJam Detik1, D1

FormatJam Detik2, D2

LblDate.Caption = Format(Date, "Long Date")

Exit Sub

Eror:

If Err = 13 Then MsgBox "Program ini hanya " _

& "berjalan apabila disetting 'Start, " _

& "Settings, Control Panel,Regional Settings," _

& "Time, Time separator:' to ':' " _

& "(colon).", 16, "Error"

Unload Me

End Sub

Sub FormatJam(Img As Image, Number As Integer)

If Number = 0 Then Number = 10

Img.Picture = DigitAngka.ListImages.Item(Number).Picture

End Sub

Langkah 5

Sekarang kita coba untuk menjalankannya. Pencet tombol F5/ untuk Run, hasilnya akan seperti ini.

Selamat Mencoba…..