Analog Saat

Timer ve Line nesnelerinin kullanımına örnek
' Form1 e 3 adet label (Label1, Label2, Label3) + 1 adet Timer (Timer1)
' 3 adet Line (Line1,Line2,Line3) yerleştiriniz.
' [Linkleri görebilmek için üye olun veya giriş yapın.]

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 '1000 milisaniye = 1 saniye
End Sub


Private Sub Timer1_Timer()
Dim saat, dakika, saniye As Integer
Dim l1x1, l1y1, l1x2, l1y2, l1r As Integer
Dim l2x1, l2y1, l2x2, l2y2, l2r As Integer
Dim l3x1, l3y1, l3x2, l3y2, l3r As Integer
Dim dersan, derdak, dersaat As Double 'dersan=saniye açısı
'************************************* derdak=dakika açısı, dersaat=saat açısı

saat = Mid(Time, 1, 2)
If saat > 12 Then saat = saat - 12
dakika = Mid(Time, 4, 2)
saniye = Mid(Time, 7, 2)
Label1.Caption = Str(saat) + " :"
Label2.Caption = dakika + " :"
Label3.Caption = saniye
dersan = (((saniye * 6) - 90) * 3.14) / 180 'Radyanlar dereceye çevriliyor
derdak = (((dakika * 6) - 90) * 3.14) / 180 'Radyanlar dereceye çevriliyor
dersaat = (((saat * 30) - 90) * 3.14) / 180 'Radyanlar dereceye çevriliyor
'********* r= Saniyenin yarıçapı ******************
l1r = 2000
l2r = 1500
l3r = 1000
l1x1 = (Form1.Width) / 2
l1y1 = (Form1.Height) / 2
l2x1 = (Form1.Width) / 2
l2y1 = (Form1.Height) / 2
l3x1 = (Form1.Width) / 2
l3y1 = (Form1.Height) / 2

l1x2 = l1r * Cos(dersan)
l1y2 = l1r * Sin(dersan)
l2x2 = l2r * Cos(derdak)
l2y2 = l2r * Sin(derdak)
l3x2 = l3r * Cos(dersaat)
l3y2 = l3r * Sin(dersaat)

Line1.x1 = l1x1
Line1.x2 = l1x2 + l1x1
Line1.y1 = l1y1
Line1.y2 = l1y2 + l1y1
'******* dakika çizgisi düzenliyor
Line2.x1 = l2x1
Line2.x2 = l2x2 + l2x1
Line2.y1 = l2y1
Line2.y2 = l2y2 + l2y1
'******* saat çizgisi duzenleniyor
Line3.x1 = l3x1
Line3.x2 = l3x2 + l3x1
Line3.y1 = l3y1
Line3.y2 = l3y2 + l3y1