|
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Text = Date.Now.ToString
Dim FmGraphics As System.Drawing.Graphics
FmGraphics = Me.CreateGraphics
Dim TmLong As Double = 75
Dim HourPoint(1), MinutePoint(1), SecondPoint(1), OriginPoint As System.Drawing.PointF
OriginPoint.X = 75
OriginPoint.Y = 75
Me.Refresh()
Dim angle As Double
angle = -0.5263 * (15 - (Hour(Now) + Minute(Now) / 60))
HourPoint(0).X = OriginPoint.X
HourPoint(0).Y = OriginPoint.Y
HourPoint(1).X = OriginPoint.X + 0.3 * TmLong * Cos(angle)
HourPoint(1).Y = OriginPoint.Y + 0.3 * TmLong * Sin(angle)
Dim FmPen As System.Drawing.Pen
FmPen = New System.Drawing.Pen(System.Drawing.Color.Gold, 3)
FmGraphics.DrawLine(FmPen, HourPoint(0), HourPoint(1))
angle = -0.1047 * (75 - (Minute(Now) + Second(Now) / 60))
MinutePoint(0).X = OriginPoint.X
MinutePoint(0).Y = OriginPoint.Y
MinutePoint(1).X = OriginPoint.X + 0.5 * TmLong * Cos(angle)
MinutePoint(1).Y = 75 + 0.5 * TmLong * Sin(angle)
FmPen = New System.Drawing.Pen(System.Drawing.Color.Red, 3)
FmGraphics.DrawLine(FmPen, MinutePoint(0), MinutePoint(1))
angle = -0.5263 * (75 - Second(Now))
SecondPoint(0).X = OriginPoint.X
SecondPoint(0).Y = OriginPoint.Y
SecondPoint(1).X = OriginPoint.X + 0.7 * TmLong * Cos(angle / 5)
SecondPoint(1).Y = OriginPoint.Y + 0.7 * TmLong * Sin(angle / 5)
FmPen = New System.Drawing.Pen(System.Drawing.Color.White, 2)
FmGraphics.DrawLine(FmPen, SecondPoint(0), SecondPoint(1))
FmGraphics.Dispose()
End Sub |
