membuat jam digital dengan vb
· Buka Vb 2008 yang anda
punya , FIle -> New -> Project, dan nanti akan muncul kotak project,
kemudian anda tentukan folder untuk menyimpan program tersebut.
· Dan nanti akan muncul
Form baru, langkah selanjutnya anda design form tersebut yaitu dengan memasukan
komponen toolbox seperti
Label
kemudian di properties atur
Name : Vwaktu
Text : Waktu
Timer
kemudian di properties atur
Name : Timer1
Text : Timer 1
Enabled : True ( aktif )
Interval : 1000
Kira-kira seperti berikut hasil designnya
Label
kemudian di properties atur
Name : Vwaktu
Text : Waktu
Timer
kemudian di properties atur
Name : Timer1
Text : Timer 1
Enabled : True ( aktif )
Interval : 1000
Kira-kira seperti berikut hasil designnya
·
setelah sudah siap mendesign, langkah selanjutnya yaitu masuk ke
halaman Code / Syntax.Doubel Click di Form, kemudian ketikkan syntax :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
VWAKTU.Text = Format(Now, "HH:mm:ss")
End Sub
keterangan :
Vwaktu menampilkan waktu sekarang yang ada pada sistem komputer
HH ==> waktu 24 jam ( 01:00 s/d 24:00)
mm ==> Minute (60)
ss ==> Secoond ( 60)
· setelah sudah siap
mendesign, langkah selanjutnya yaitu masuk ke halaman Code / Syntax.
Doubel Click di Timer1, kemudian ketikkan syntax :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
VWAKTU.Text = Format(Now, "HH:mm:ss")
End Sub
keterangan :
Vwaktu menampilkan waktu sekarang yang ada pada sistem komputer
HH ==> waktu 24 jam ( 01:00 s/d 24:00)
mm ==> Minute (60)
ss ==> Secoond ( 60)
Doubel Click di Timer1, kemudian ketikkan syntax :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
VWAKTU.Text = Format(Now, "HH:mm:ss")
End Sub
keterangan :
Vwaktu menampilkan waktu sekarang yang ada pada sistem komputer
HH ==> waktu 24 jam ( 01:00 s/d 24:00)
mm ==> Minute (60)
ss ==> Secoond ( 60)
· Setelah itu coba anda jalankan program
tersebut dengan cara tekan di keyboard F5
,hasilnya seperti berikut
,hasilnya seperti berikut
:
Komentar
Posting Komentar