• Home
 · 
• Graphics
 · 
• Small desktop clock

Small desktop clock

Small desktop clock

API Declarations


Dim tm As Date
Dim xOff1, yOff1, xOff2, yOff2, xOff3, yOff3 As Integer
Dim l1, l2, l3 As Double




Rate Small desktop clock

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    tmrLoad.Enabled = True
    l1 = Line1.Y1 - Line1.Y2
    l2 = Line2.Y1 - Line2.Y2
    l3 = Line3.Y1 - Line3.Y2
    
    allignneedle
    
    xOff1 = Line1.X2
    yOff1 = Line1.Y1
    
    xOff2 = Line2.X2
    yOff2 = Line2.Y1
    
    xOff3 = Line3.X2
    yOff3 = Line3.Y1
    settime
End Sub

Public Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'If Button = 2 Then
      ' tmrUnload.Enabled = True
    'End If
    
End Sub

Private Sub Timer1_Timer()

    settime
End Sub
Sub settime()
    Dim h, m, s As Double
    tm = Time
    h = Hour(tm)
    m = Minute(tm)
    s = Second(tm)
    i = s * 6
    'Beep
    Line1.X2 = xOff1 + l1 * Sin(3.1416 / 180 * i)
    Line1.Y2 = yOff1 - l1 * Cos(3.1416 / 180 * i)
    
    j = m * 6 + s / 10
    
    Line2.X2 = xOff2 + l2 * Sin(3.1416 / 180 * j)
    Line2.Y2 = yOff2 - l2 * Cos(3.1416 / 180 * j)
    
    
    k = h * 30 + m / 2
'    Dim val As Integer
'    If Hour(tm) = 0 Then
'    val = MsgBox("Time to Sleep", vbInformation, "Good Night")
'    End If
    Line3.X2 = xOff3 + l3 * Sin(3.1416 / 180 * k)
    Line3.Y2 = yOff3 - l3 * Cos(3.1416 / 180 * k)
    

    lblDate.Caption = Date
End Sub
Sub allignneedle()
    Line1.Y1 = Dial.Top + Dial.Height / 2
    Line1.X1 = Dial.Left + Dial.Width / 2
    Line1.X2 = Line1.X1
    Line1.Y2 = Line1.Y1 - l1
    
    Line2.Y1 = Dial.Top + Dial.Height / 2
    Line2.X1 = Dial.Left + Dial.Width / 2
    Line2.X2 = Line2.X1
    Line2.Y2 = Line2.Y1 - l2
    
    Line3.Y1 = Dial.Top + Dial.Height / 2
    Line3.X1 = Dial.Left + Dial.Width / 2
    Line3.X2 = Line3.X1
    Line3.Y2 = Line3.Y1 - l3
    
End Sub



Private Sub tmrLoad_Timer()
Form1.Left = Form1.Left - 65
Form1.Top = Form1.Top - 65
If (Form1.Left <= 4000) Or (Form1.Top <= 2000) Then
tmrLoad.Enabled = False

End If
End Sub