Koperasi Digital Indonesia

Wednesday, February 28, 2007

Membuat jam digital bergerak pada VB

pada VB, sebenarnya ada perintah untuk menampilkan jam, tapi hasilnya selalu jam saat ini dan tidak bergerak kecuali program direstart. ada beberapa program untuk menampilkan jam bergerak sesuai kondisi saat ini tapi terlalu panjang listing programnya.

setelah otak-atik ternyata jam digital bergerak bisa dibuat dengan baris perintah yang singkat. caranya buat 1 buah Label kemudian beri Name-nya lbl_time. kemudian tambahkan object Timer, set interval time-nya menjadi 1000. kemudian ketik baris perintah berikut :

private sub timer1_timer()
if lbl_time.caption <> CStr(Time) then lbl_time.caption=now()
endif
End sub

good luck!!

4 comments:

AShine said...

ty banget gan!
kebetulan saya lagi butuh buat tugas tapi gan waktu saya masukin pake "end if" malah gak bisa..
tapi tanpa "end if" malah bisa..
sekali lagi ty berat gan..

Anonymous said...

TQ infonya bermanfaat skali...

Komputer Delanggu Klaten said...

OkSipJoss...
maturtengkyu bangets masbro...
btw stelah q utak-atik...
q bisane pke rumus ini nih :

Private Sub Timer1_Timer()
'If time.Caption <> CStr(time) Then
time.Caption = Now()
End Sub

but label q ganti pke nama time

tengkyu... ^_^

EghyR01 said...

Terima Kasih Atas tutorialnya .. artikel yang sangat bagus ..