Anasayfa > Kodlar > VB6 Analog saat saniye duyarlı

VB6 Analog saat saniye duyarlı


Evet analog saat ancak saniyeye duyarli :)

Private Sub Form_Load()
's saat icin line
'd dakika icin line
'sa saniye icin line
s.X1 = 2280

 

s.Y1 = 2280
d.X1 = 2280
d.Y1 = 2280
sa.X1 = 2280
sa.Y1 = 2280
End Sub
Private Sub Timer1_Timer()
If Minute(Time) = 0 And Second(Time) = 0 Then Beep
s.X1 = 2280 + 2000 * (Sin((Second(Now) * 3.141592654 / 30)))
s.Y1 = 2280 - 2000 * (Cos((Second(Now) * 3.141592654 / 30)))
s.X2 = 2280 + 2100 * (Sin((Second(Now) * 3.141592654 / 30)))
s.Y2 = 2280 - 2100 * (Cos((Second(Now) * 3.141592654 / 30)))
d.X2 = 2280 + 1750 * (Sin(Minute(Time) * 3.141592654 / 30 + (Second(Now) * 3.141592654 / (30 * 60))))
d.Y2 = 2280 - 1750 * (Cos(Minute(Time) * 3.141592654 / 30 + (Second(Now) * 3.141592654 / (30 * 60))))
H = Hour(Time)
If Hour(Time) > 12 Then H = Hour(Time) - 12
sa.X2 = 2280 + 1500 * (Sin(H * 3.141592654 / 6 + (Minute(Now) * 3.141592654 / (30 * 12))))
sa.Y2 = 2280 - 1500 * (Cos(H * 3.141592654 / 6 + (Minute(Now) * 3.141592654 / (30 * 12))))
Label4.Caption = s.X2
Label11.Caption = s.Y2
Label5.Caption = d.X2
Label12.Caption = d.Y2
Label6.Caption = sa.X2
Label13.Caption = sa.Y2
Label10.Caption = Format(Time, "long time")
End Sub

  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: