Analog Saat

Formunuza ismini değiştirmede 1 Timer ekleyin

Private Sub Form_DblClick()
Unload Me
'program çift tıklamada kapatılsın
End Sub
Private Sub Form_Load()
Width = Screen.Width
'formun genişiliği = eranın genişliği
Height = Screen.Height
'formun yüksekliği = ekranın yüksekliği
Top = 0
'sağa doğru 0. pixelde dur
Left = 0
'yukarda 0. pixelde dur
Scale (-20, 20)-(20, -20)
'skala belirleme
Timer1.Interval = 1000
'timer tekrar sıklığı = saniyede 1
End Sub
Private Sub Timer1_Timer()
Static san, dak, saa
'her seferinde tanımlama
FillStyle = 0
'daire stili içi dolu olsun
For i = 0 To 360 Step 6

FillColor = vbBlack

'daire çeperi rengi siyah olsun

Circle (Cos(i * 3.1415 / 180) * 15, Sin(i * 3.1415 / 180) * 19), 0.1, vbBlack

'döngü ile birlikte noktalar koy = dakika noktaları

If i / 5 = i \ 5 Then

FillColor = vbRed

'daire çeperi rengi kırmızı olsun

Circle (Cos(i * 3.1415 / 180) * 15, Sin(i * 3.1415 / 180) * 19), 0.3, vbRed

'döngü ve koşulla beraber nokta koy = saat noktaları

End If

Next i
FillColor = BackColor
'daire çeperi rengi arka plan rengi olsun
Circle (Cos(san * 3.1415 / 180) * 12.2359411764706, Sin(san * 3.1415 / 180) * 16), 0.4, BackColor
'sani üzerindeki daireyi arka pilan rengine benzet veya sil
DrawWidth = 2
'çizgi kalınlığı = 2
Line (0, 0)-(Cos(san * 3.1415 / 180) * 13, Sin(san * 3.1415 / 180) * 17), BackColor
'san çizgisini sil
san = -Second(Time) * 6 + 90
'saniye hesaplama (açı olaarak)
Line (0, 0)-(Cos(san * 3.1415 / 180) * 13, Sin(san * 3.1415 / 180) * 17), vbRed
'saniye çizgisi çiz
FillColor = vbRed
'daire çeperi rengi kırmızı olsun
Circle (Cos(san * 3.1415 / 180) * 12.2359411764706, Sin(san * 3.1415 / 180) * 16), 0.4, vbRed
'saniye çizgisi üstüne daire koy
FillColor = vbBlack
'daire çeperi rengi siyah olsun
Circle (0, 0), 0.5, vbBlack
'formun ortasına daire koy
DrawWidth = 4
'çizgi kalınlığı = 3
Line (0, 0)-(Cos(dak * 3.1415 / 180) * 11, Sin(dak * 3.1415 / 180) * 15), BackColor
'dakika çizgisini sil
dak = -Minute(Time) * 6 + -Second(Time) / 10 + 90
'dakika açısını hesapla + saniye hatası
Line (0, 0)-(Cos(dak * 3.1415 / 180) * 11, Sin(dak * 3.1415 / 180) * 15), vbBlack
'dakika çizgisi koy
FillColor = vbBlack
'daire çeperi rengi siyah olsun
DrawWidth = 9
'çizgi kalınlığı = 9
Line (0, 0)-(Cos(saa * 3.1415 / 180) * 10, Sin(saa * 3.1415 / 180) * 10), BackColor
'saat çizgisini sil
saa = -Hour(Time) * 30 + -Minute(Time) / 2 + -Second(Time) / 600 + 90
'saat açısı hesapla + dakika hatası + saniye hatası
Line (0, 0)-(Cos(saa * 3.1415 / 180) * 10, Sin(saa * 3.1415 / 180) * 10), vbBlack
'saat çizgisi koy
End Sub