| |
Cemalizim | 19 Temmuz 2008 16:54 | Analog ve Dijital Saat ALINTIDIR PHP- Kodu: Public gme As Integer Public g As Single Public mm As Integer Public hh As Single Public chane As Boolean Public fr As Integer Public i As Integer Private Sub Command1_Click() Timer2.Enabled = True End Sub Private Sub Form_Load() tim = Time$ at = Right(tim, 2) g = 45 + at If g > 60 Then g = g - 60 am = Right(tim, 5) am = Left(am, 2) mm = 45 + am If mm > 60 Then mm = mm - 60 ah = Left(tim, 2) ah = ah - 12 hh = 45 + (ah * 5) If hh > 60 Then hh = hh - 60 Shape1.Height = 3600 Shape1.Width = 3600 Shape1.Top = 0 Shape1.Left = 0 Line4(0).X1 = 1800 Line4(0).Y1 = 1800 Line4(0).Y2 = 1800 Line4(0).X2 = 1800 Me.Width = 3725 End Sub Private Sub Timer1_Timer() f0 = (2 * 3.14) / 60 g = g + 1 If g = 61 Then g = 1 End If If mm = 61 Then mm = 1 End If If hh = 61 Then hh = 1 End If If g = 45 Then mm = mm + 1 If fr < 2 Then fr = fr + 1 End If chane = False End If If mm = 45 And chane = False Then hh = hh + 5 chane = True End If f = g * f0 x = 1500 * Cos(f) y = 1500 * Sin(f) Line1.X1 = 1800 Line1.Y1 = 1800 Line1.Y2 = y + 1800 Line1.X2 = x + 1800 If fr = 1 Then i = i + 1 Load Line4(i) Line4(i).Visible = True Line4(i).X1 = Line1.X2 Line4(i).X2 = Line1.X2 Line4(i).Y1 = Line1.Y2 Line4(i).Y2 = Line1.Y2 qw = (i - 1) \ 5 f = qw * 5 If f = i - 1 Then Line4(i).BorderColor = &HC0C000 Line4(i).BorderWidth = 5 End If End If fm = mm * f0 xm = 1250 * Cos(fm) ym = 1250 * Sin(fm) Line2.X1 = 1800 Line2.Y1 = 1800 Line2.X2 = xm + 1800 Line2.Y2 = ym + 1800 fh = hh * f0 xh = 900 * Cos(fh) yh = 900 * Sin(fh) Line3.X1 = 1800 Line3.Y1 = 1800 Line3.X2 = xh + 1800 Line3.Y2 = yh + 1800 Label1.Caption = Time$ End Sub
|
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:02. | |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net