Başlangıç > Kodlar > VB6’da Analog saat

VB6’da 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.
' seyitkaraozan@hotmail.com

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

End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: