analog saat

access için analog saat ;

Public Sub CizgiLe(Kutu As String, cizgi As String, cizgiboyu As Integer, sayi As Integer)

 Dim sns

 sns = Array(0, 0.104528, 0.207912, 0.309017, 0.406737, 0.5, 0.587785, 0.669131, 0.743145, 0.809017, 0.866025, 0.913545, 0.951057, 0.978148, 0.994522, 1)

 Dim css

 css = Array(1, 0.994522, 0.978148, 0.951057, 0.913545, 0.866025, 0.809017, 0.743145, 0.669131, 0.587785, 0.5, 0.406737, 0.309017, 0.207912, 0.104528, 0)

 

 If sayi <= 15 Then

 sayi = sayi

 Me(cizgi).LineSlant = True

 Me(cizgi).Width = cizgiboyu * sns(sayi)

 Me(cizgi).Height = cizgiboyu * css(sayi)

 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2)

 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2) - Me(cizgi).Height

 ElseIf sayi <= 30 Then

 sayi = sayi - 15

 Me(cizgi).LineSlant = False

 Me(cizgi).Width = cizgiboyu * css(sayi)

 Me(cizgi).Height = cizgiboyu * sns(sayi)

 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2)

 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2)

 ElseIf sayi <= 45 Then

 sayi = sayi - 30

 Me(cizgi).LineSlant = True

 Me(cizgi).Width = cizgiboyu * sns(sayi)

 Me(cizgi).Height = cizgiboyu * css(sayi)

 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2) - Me(cizgi).Width

 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2)

 ElseIf sayi <= 60 Then

 sayi = sayi - 45

 Me(cizgi).LineSlant = False

 Me(cizgi).Width = cizgiboyu * css(sayi)

 Me(cizgi).Height = cizgiboyu * sns(sayi)

 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2) - Me(cizgi).Width

 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2) - Me(cizgi).Height

 End If



End Sub



Private Sub Form_Load()

Çizgi1.BorderColor = vbRed

Çizgi2.BorderColor = vbBlue

Çizgi3.BorderColor = vbBlack

End Sub



Private Sub Form_Timer()

Etiket4.Caption = Format(Now(), "hh:mm:ss")

Call CizgiLe("Resim0", "Çizgi1", Resim0.Width * 0.3, CInt(Format(Now(), "ss")))

Call CizgiLe("Resim0", "Çizgi2", Resim0.Width * 0.26, CInt(Format(Now(), "nn")))

Call CizgiLe("Resim0", "Çizgi3", Resim0.Width * 0.2, (IIf(CInt(Format(Now(), "hh")) > 11, CInt(Format(Now(), "hh")) - 12, CInt(Format(Now(), "hh"))) * 5) + Fix(CInt(Format(Now(), "nn") / 10)))

End Sub