السلام عليكم
لصنع ساعة عليك اضافة 3 lines من شريط الادوات و text , timer
م اضف الكود التالي
Dim pi As Double Private Sub Form_Load() Line3.BorderWidth = 3 Line3.BorderColor = vbBlue Line2.BorderColor = vbRed Timer1.Interval = 10 pi = 3.141592653 Line1.X1 = 2000 Line1.Y1 = 2000 Line2.X1 = 2000 Line2.Y1 = 2000 Line3.X1 = 2000 Line3.Y1 = 2000 End Sub Private Sub Timer1_Timer() Text1.Text = Time Dim h As Integer, m As Integer, s As Integer h = Val(Left(Text1.Text, 2)) m = Val(Mid(Text1.Text, 4, 2)) s = Val(Mid(Text1.Text, 7, 2)) Line1.X2 = 2000 + (1500 * Cos((s - 15) * pi / 30)) Line1.Y2 = 2000 + (1500 * Sin((s - 15) * pi / 30)) Line2.X2 = 2000 + (1500 * Cos((m - 15) * pi / 30)) Line2.Y2 = 2000 + (1500 * Sin((m - 15) * pi / 30)) Line3.X2 = 2000 + (1000 * Cos((h - 3) * pi / 6)) Line3.Y2 = 2000 + (1000 * Sin((h - 3) * pi / 6)) End Sub
