AccessTr.neT

Tam Versiyon: analog saat
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Formunuza basit bir analog saat eklemek için;
SaatKutu adında bir daire ( OvalShape )
SaatSaat, SaatDakika ve SaatSaniye adında 3 tane çizgi ( LineShape )
ve bir tane de Timer ekleyin. Timerin invertali:1000


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerSaat.Tick
CizgiLe(SaatKutu, saatsaniye, SaatKutu.Width / 2, Convert.ToInt32(Format(Now(), "ss")))
CizgiLe(SaatKutu, SaatDakika, SaatKutu.Width / 2 * 0.8, Convert.ToInt32(Format(Now(), "mm")))
CizgiLe(SaatKutu, SaatSaat, SaatKutu.Width / 2 * 0.7, Convert.ToInt32(Format(Now(), "hh") * 5))
End Sub
'SAAT OLAYI
Private Sub CizgiLe(ByVal Kutu As Microsoft.VisualBasic.PowerPacks.OvalShape, ByVal cizgi As Microsoft.VisualBasic.PowerPacks.LineShape, ByVal cizgiboyu As Integer, ByVal sayi As Integer)
Dim sns(15) As Double
sns = {0.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(15) As Double
css = {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.0}
Dim sy = sayi
cizgi.X1 = Kutu.Left + (Kutu.Width / 2)
cizgi.Y1 = Kutu.Top + (Kutu.Height / 2)
If sayi <= 15 Then
sayi = sayi
cizgi.X2 = cizgi.X1 + (cizgiboyu * sns(sayi))
cizgi.Y2 = cizgi.Y1 - (cizgiboyu * css(sayi))
ElseIf sayi <= 30 Then
sayi = sayi - 15
cizgi.X2 = cizgi.X1 + (cizgiboyu * css(sayi))
cizgi.Y2 = cizgi.Y1 + (cizgiboyu * sns(sayi))
ElseIf sayi <= 45 Then
sayi = sayi - 30
cizgi.X2 = cizgi.X1 - (cizgiboyu * sns(sayi))
cizgi.Y2 = cizgi.Y1 + (cizgiboyu * css(sayi))
ElseIf sayi <= 60 Then
sayi = sayi - 45
cizgi.X2 = cizgi.X1 - (cizgiboyu * css(sayi))
cizgi.Y2 = cizgi.Y1 - (cizgiboyu * sns(sayi))
End If
Me.Text = "AnalogSaat..... : " & Format(Now(), "dd.MM.yyyy / HH:mm:ss")
End Sub
Hocam paylaşımlar için teşekkürler
Paylaşım için teşekkürler.
Hocam teşekkürler.
Paylaşım için teşekkürler.
teşekkürler
bunun Access için olanı var mı
Sayfalar: 1 2