Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 340,154 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 3,980 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Analog Clock

Nice, easy analog clock code.

Submitted By: tel0r

Actions:

Rating:

Views: 28,818

Language: Visual Basic

Last Modified: June 19, 2005

Instructions: c&p code, add timer control (Timer1) to the form with an Interval of 1000, and Enabled set to True

Snippet

Option Explicit
Const T As Double = 57.29577951
Private Sub Form_Load()
Me.Height = 2048
Me.Width = 2048
End Sub
Private Sub Form_Resize()
Me.ScaleHeight = 100
Me.ScaleWidth = 100
End Sub
Private Sub Timer1_Timer()
Dim H As Long, M As Long, S As Long 'time units
Dim Hd As Double, Md As Double, Sd As Double 'Degrees
Dim Hr As Double, Mr As Double, Sr As Double 'Radians
Me.Cls
H = Hour(Time): M = Minute(Time): S = Second(Time)
If H >= 12 Then H = H - 12
Hd = H * 30
Hd = Hd + M / 2
Md = M * 6
Sd = S * 6
Hd = Hd - 90: Md = Md - 90: Sd = Sd - 90
If Hd < 0 Then Hd = Hd + 360
If Md < 0 Then Md = Md + 360
If Sd < 0 Then Sd = Sd + 360
Hr = Hd / T: Mr = Md / T: Sr = Sd / T
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.5 * Cos(Hr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.5 * Sin(Hr))), vbBlack
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.6 * Cos(Mr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.6 * Sin(Mr))), vbBlue
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.7 * Cos(Sr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.7 * Sin(Sr))), vbRed
End Sub

Copy & Paste

Option Explicit
Const T As Double = 57.29577951

Private Sub Form_Load()
Me.Height = 2048
Me.Width = 2048
End Sub

Private Sub Form_Resize()
Me.ScaleHeight = 100
Me.ScaleWidth = 100
End Sub

Private Sub Timer1_Timer()
Dim H As Long, M As Long, S As Long                     'time units
Dim Hd As Double, Md As Double, Sd As Double            'Degrees
Dim Hr As Double, Mr As Double, Sr As Double            'Radians

Me.Cls
H = Hour(Time): M = Minute(Time): S = Second(Time)

If H >= 12 Then H = H - 12

Hd = H * 30
Hd = Hd + M / 2
Md = M * 6
Sd = S * 6

Hd = Hd - 90: Md = Md - 90: Sd = Sd - 90

If Hd < 0 Then Hd = Hd + 360
If Md < 0 Then Md = Md + 360
If Sd < 0 Then Sd = Sd + 360

Hr = Hd / T: Mr = Md / T: Sr = Sd / T

Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.5 * Cos(Hr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.5 * Sin(Hr))), vbBlack
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.6 * Cos(Mr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.6 * Sin(Mr))), vbBlue
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.7 * Cos(Sr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.7 * Sin(Sr))), vbRed

End Sub

Comments
bonzo0 2008-07-09 08:06:36
there are no digits to represent 1 to 12. only the hands are moving.
jakerman999 2008-08-08 15:15:50
disable the max button and min button, then add the following code. Dim strTime As String Dim strH As String, strM As String, strS As String strH = H strM = M strS = S If H < 10 Then strH = "0" & H If M < 10 Then strM = "0" & M If S < 10 Then strS = "0" & S strTime = strH & ":" & strM & ":" & strS Form1.Caption = strTime also, try placing your dim statements in the general section instead of the timer control, otherwise you use to much ram.
OMI 2008-10-10 17:56:43
Thank u for lending me this code
arjay_cabingas 2008-11-25 05:31:51
ohhh...this site are so very helpful because you can get more of codes as you like...... thank......guysss.....dont worry friends i would help you if i knew.......
Vineeth k 2009-10-26 00:54:14
Thanks for the code really i am looking for this code.Thanks for sharing this..