عمل ساعة بسيطة بعقارب - نسخة قابلة للطباعة

كود :

Dim x, y, w, m

Private Sub Form_Load()

y = Me.Height / 2 'تحديد نقطة منتصف الفورم

x = Me.Width / 2 'تحديد نقطة منتصف الفورم

w = 1700

End Sub

كود :

Private Sub Timer1_Timer()

Me.Cls 'مسح ما في الفورم

DrawWidth = 4: Me.Circle (x, y), w 'رسم دائرة طول قطرها يساوي 1700 وهي قيمة w

DrawWidth = 4: Me.Line (x, y)-(x + (900 * Sin(Hour(Now) * 3.1415 / 6)), y - (900 * Cos(Hour(Now) * 3.1415 / 6))), &HFFFF00 ' رسم عقرب الساعة

DrawWidth = 3: Me.Line (x, y)-(x + (1200 * Sin(Minute(Now) * 3.1415 / 30)), y - (1200 * Cos(Minute(Now) * 3.1415 / 30))), vbYellow 'رسم عقرب الدقائق

DrawWidth = 1: Me.Line (x, y)-(x + (1500 * Sin(Second(Now) * 3.1415 / 30)), y - (1500 * Cos(Second(Now) * 3.1415 / 30))), vbRed 'رسم عقرب الثواني

End Sub