صنع ساعة بعقاربها

Dim x, y, w, m

Private Sub Form_Load()

y = Picture1.Height / 2

x = Picture1.Width / 2

w = 850

Me.Top = 100

Me.Left = 12500

End Sub

Private Sub Timer1_Timer()

Picture1.Cls

DrawWidth = 4: Picture1.Circle (x, y), w

DrawWidth = 4: Picture1.Line (x, y)-(x + (700 * Sin(Hour(Now) * 3.1415 / 6)), y - (700 * Cos(Hour(Now) * 3.1415 / 6))), vbBlack

DrawWidth = 3: Picture1.Line (x, y)-(x + (750 * Sin(Minute(Now) * 3.1415 / 30)), y - (750 * Cos(Minute(Now) * 3.1415 / 30))), vbvbblack

DrawWidth = 1: Picture1.Line (x, y)-(x + (800 * Sin(Second(Now) * 3.1415 / 30)), y - (800 * Cos(Second(Now) * 3.1415 / 30))), vbBlack

Label1.Caption = Date

End Sub

لقد قمت بارفاق ملف يحتوي على تفصيلات لمن لم يفهم من الشرح

و ارجوا من الله تعالى أن يكون الدرس قد نال إعجابكم و اعذروني ان كان هناك اي اخطاء

كتاب الساعة بعقاربها.rar