Selasa, 17 Februari 2009

Membuat jam klasik dengan VB

Pertama yang harus anda siapkan adalah 3 buah garis, satu lingkaran (dengan shape), dan 3 buah timer.
beri nama garis dengan JariJam,JariMenit, dan JariDetik.
atur properti garis JariJam
bordercolor=putih
borderwith=4
x2=2000
y2=2000

JariMenit
bordercolor=hitam
borderwith=2
x2=2000
y2=2000

dan JariDetik
bordercolor=merah
borderwith=1
x2=2000
y2=2000

shape1
shape=3-circle
height, width=4000
top,left=0

timer1
name=Detik
interval=1000
enabled=true

timer2
name=Menit
interval=1000
enabled=true

timer3
name=Jam
interval=1000
enabled=true


klik dua kali pada timer detik dan masukkan kode di bawah ini:

Private Sub Detik_Timer()
JariDetik.X1 = JariDetik.X2 + 2000 * Cos((Second(Now) - 15) * 6 / 180 * 3.14159)
JariDetik.Y1 = JariDetik.Y2 + 2000 * Sin((Second(Now) - 15) * 6 / 180 * 3.14159)
End Sub


klik dua kali pada timer menit dan masukkan kode di bawah ini:

Private Sub Menit_Timer()
JariMenit.X1 = JariMenit.X2 + 1500 * Cos((Minute(Now) - 15) * 6 / 180 * 3.14159)
JariMenit.Y1 = JariMenit.Y2 + 1500 * Sin((Minute(Now) - 15) * 6 / 180 * 3.14159)
End Sub


klik dua kali pada timer Jam dan masukkan kode di bawah ini:
Private Sub Jam_Timer()
Dim TotJam As Single
TotJam = Hour(Now) + Minute(Now) / 60

JariJam.X1 = JariJam.X2 + 1000 * Cos((TotJam - 15) * 30 / 180 * 3.14159)
JariJam.Y1 = JariJam.Y2 + 1000 * Sin((TotJam - 15) * 30 / 180 * 3.14159)
End Sub


Selamat Mencoba.
Silakan kirim komentar anda ke recobayu@yahoo.com