Analog Saat Saniye Duyarlı (v.B)

[ALpMontana]

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

 

[nosferatu3]

kardiiişşş bunu nasıl yapıcaz anlatırsan iii olur.....

 

[ALpMontana]

visual basıcde memo textlerın ıcne yerlestırılıor bunlar once gorsel olarak hazırla sonra bu kodu dırekt yaz

 

[yuysuf]

sAGOL ABİ DE NERDE BENDE O KAPSİTE AMA İLGİLENELER İÇİN İYİ BİR ÖGRENİM PROGRAMI SEN GENEDE SAGOL EMEGE SAYGI LÜTFEN

 

[ALpMontana]

tesekkur etmek ıstıorsan enalda sol basta butana bas bak ben basıom sımdı oqren dıe