Private Sub Command1_Click()
Unload Form1
End Sub
Private Sub Form_Load()
Show
DrawWidth = 4
Circle (ScaleWidth / 2, ScaleHeight / 2), 3000
Timer1.Interval = 1000
Form1.Caption = "SAAT " & " " & Time
End Sub
Private Sub Timer1_Timer()
Cls
Form1.FontSize = 12
Form1.FontBold = True
CurrentX = 3200
CurrentY = 4000
Print "ßy_Haqan01"
CurrentX = 2750
CurrentY = 4500
Print "AdeLHard"
CurrentX = 3200
CurrentY = 1500
Print "AdeLHard"
CurrentX = 3300
CurrentY = 2000
Print "FOrumFokurtu"
Static K, Z, A, M, L, N, P, R, S, T, V, W
A = 90 - Second(Time) * 6 'SANİYE'
M = 90 - Minute(Time) * 6 'DAKİKA'
S = 90 - Hour(Time) * 30 'SAAT'
S = S - 1 + (M / 12)
P = ScaleWidth / 2 + Cos(M * 3.14 / 180) * 2500 'DAKİKA'
R = ScaleHeight / 2 - Sin(M * 3.14 / 180) * 2500
DrawWidth = 4
Line (ScaleWidth / 2, ScaleHeight / 2)-(P, R), QBColor(9)
K = ScaleWidth / 2 + Cos(A * 3.14 / 180) * 3000 'SANİYE'
Z = ScaleHeight / 2 - Sin(A * 3.14 / 180) * 3000
DrawWidth = 2
Line (ScaleWidth / 2, ScaleHeight / 2)-(K, Z), QBColor(9)
DrawWidth = 4 'DAİREYİ ÇİZDİRME'
Circle (ScaleWidth / 2, ScaleHeight / 2), 3000
Form1.Caption = "SAAT " & " " & Time & " " & "urtok33" & " "
For i = 1 To 60 'DAKİKA ÇİZGİLERİ'
ACI = 90 - i * 6
KX = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 2900
KY = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 2900
K = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 3000
Z = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 3000
Line (KX, KY)-(K, Z)
Next i
For F = 1 To 12 'SAAT BELİRLEME ÇİZGİLERİ'
ACI = 90 - F * 30
KX = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 2900
KY = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 2900
K = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 3000
Z = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 3000
Line (KX, KY)-(K, Z), QBColor(9)
Next F
V = ScaleWidth / 2 + Cos(S * 3.14 / 180) * 1500 'SAAT'
T = ScaleHeight / 2 - Sin(S * 3.14 / 180) * 1500
DrawWidth = 5
Line (ScaleWidth / 2, ScaleHeight / 2)-(V, T), QBColor(9)
For i = 1 To 12 'SAAT NUMARALARINI YAZDIRMA'
W = 90 - i * 30
K = ScaleWidth / 2 + Cos(W * 3.14 / 180) * 3050
Z = ScaleHeight / 2 - Sin(W * 3.14 / 180) * 3050
KX = ScaleWidth / 2 + Cos(W * 3.14 / 180) * 2700
KY = ScaleHeight / 2 - Sin(W * 3.14 / 180) * 2700
QBColor (9)
CurrentX = KX - 150
CurrentY = KY - 60
Print i
Next i
End Sub
Unload Form1
End Sub
Private Sub Form_Load()
Show
DrawWidth = 4
Circle (ScaleWidth / 2, ScaleHeight / 2), 3000
Timer1.Interval = 1000
Form1.Caption = "SAAT " & " " & Time
End Sub
Private Sub Timer1_Timer()
Cls
Form1.FontSize = 12
Form1.FontBold = True
CurrentX = 3200
CurrentY = 4000
Print "ßy_Haqan01"
CurrentX = 2750
CurrentY = 4500
Print "AdeLHard"
CurrentX = 3200
CurrentY = 1500
Print "AdeLHard"
CurrentX = 3300
CurrentY = 2000
Print "FOrumFokurtu"
Static K, Z, A, M, L, N, P, R, S, T, V, W
A = 90 - Second(Time) * 6 'SANİYE'
M = 90 - Minute(Time) * 6 'DAKİKA'
S = 90 - Hour(Time) * 30 'SAAT'
S = S - 1 + (M / 12)
P = ScaleWidth / 2 + Cos(M * 3.14 / 180) * 2500 'DAKİKA'
R = ScaleHeight / 2 - Sin(M * 3.14 / 180) * 2500
DrawWidth = 4
Line (ScaleWidth / 2, ScaleHeight / 2)-(P, R), QBColor(9)
K = ScaleWidth / 2 + Cos(A * 3.14 / 180) * 3000 'SANİYE'
Z = ScaleHeight / 2 - Sin(A * 3.14 / 180) * 3000
DrawWidth = 2
Line (ScaleWidth / 2, ScaleHeight / 2)-(K, Z), QBColor(9)
DrawWidth = 4 'DAİREYİ ÇİZDİRME'
Circle (ScaleWidth / 2, ScaleHeight / 2), 3000
Form1.Caption = "SAAT " & " " & Time & " " & "urtok33" & " "
For i = 1 To 60 'DAKİKA ÇİZGİLERİ'
ACI = 90 - i * 6
KX = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 2900
KY = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 2900
K = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 3000
Z = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 3000
Line (KX, KY)-(K, Z)
Next i
For F = 1 To 12 'SAAT BELİRLEME ÇİZGİLERİ'
ACI = 90 - F * 30
KX = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 2900
KY = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 2900
K = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 3000
Z = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 3000
Line (KX, KY)-(K, Z), QBColor(9)
Next F
V = ScaleWidth / 2 + Cos(S * 3.14 / 180) * 1500 'SAAT'
T = ScaleHeight / 2 - Sin(S * 3.14 / 180) * 1500
DrawWidth = 5
Line (ScaleWidth / 2, ScaleHeight / 2)-(V, T), QBColor(9)
For i = 1 To 12 'SAAT NUMARALARINI YAZDIRMA'
W = 90 - i * 30
K = ScaleWidth / 2 + Cos(W * 3.14 / 180) * 3050
Z = ScaleHeight / 2 - Sin(W * 3.14 / 180) * 3050
KX = ScaleWidth / 2 + Cos(W * 3.14 / 180) * 2700
KY = ScaleHeight / 2 - Sin(W * 3.14 / 180) * 2700
QBColor (9)
CurrentX = KX - 150
CurrentY = KY - 60
Print i
Next i
End Sub