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:
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..
TQ infonya bermanfaat skali...
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... ^_^
Terima Kasih Atas tutorialnya .. artikel yang sangat bagus ..
Post a Comment