11/02/2012, 21:46
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