ساعة توقيت!!!!!

Private Sub Form_Load()
 Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
 If Time = #12:00:00 AM# Then MsgBox "Hello"
End Sub

تفضل هذه ساعة توقيت بعقارب صنعتها أنا بزماني

;) ;) ;)

Option Explicit
Dim x0, y0 As Long
Dim sec, min, houre As Double
Const s = 3.141592654 / 30
Private Sub Command2_Click()
    Static a As Integer
    a = a + 1
    Select Case a
              Case 1
              Form2.Picture = LoadPicture("clockp.bmp")
              Case 2
              Form2.Picture = LoadPicture("earth.bmp")
              Case 3
              Form2.Picture = LoadPicture("romanc.bmp")
    End Select
    If a = 3 Then a = 0
End Sub
Private Sub Form_Load()
    Form2.Picture = LoadPicture("romanc.bmp")
    y0 = Form2.ScaleHeight / 2
    x0 = Form2.ScaleWidth / 2
    Line1.X1 = x0
    Line2.X1 = x0
    Line3.X1 = x0
    Line1.Y1 = y0
    Line2.Y1 = y0
    Line3.Y1 = y0
End Sub
Sub calc()
    sec = Second(Time)
    min = Minute(Time)
    houre = Hour(Time)
    correct (Second(Time))
    correct (Minute(Time))
    correcth (Hour(Time))
End Sub
Function correct(l As Integer)
    Do While l > 59
           l = l - 60
    Loop
End Function
Function correcth(l As Integer)
    Do While l > 12
           l = l - 12
    Loop
    If l = 0 Then l = 12
End Function
Private Sub Timer2_Timer()
    calc
    Line3.X2 = x0 + 600 * Cos(houre * s * 5 + s * 45)
    Line3.Y2 = y0 + 600 * Sin(houre * s * 5 + s * 45)
    Line2.X2 = x0 + 900 * Cos(min * s + s * 45)
    Line2.Y2 = y0 + 900 * Sin(min * s + s * 45)
    Line1.X2 = x0 + 1100 * Cos(sec * s + s * 45)
    Line1.Y2 = y0 + 1100 * Sin(sec * s + s * 45)
End Sub

هل "ساعة التوقيت" = "الساعة القياسية" ؟! أم المقصود مؤقت.

الأخ/أنس كردي..

كود جميل ولكن لماذا يتقافز عقربي الدقائق والساعات بهذا الشكل:) ..

ايضا اقترح رسم مواضع الدقائق والساعات من خلال الكود..