Çok Kolay bir Analog Saat Yapalım
Tarih
28/11/2008 22:49
Konu Sahibi
chopper07
Yorumlar
0
Okunma
2634
Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 2 oy



chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
24/11/2016,13:02
formumuza sadece 2 tane timer koyalım ve kodları yapştıralım. işte bu kadar kolay

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
Private Sub Form_Load()

Dim aci, i, t

AutoRedraw = True

Timer1.Interval = 1000 ' 1 saniye

Timer2.Interval = 10 '1 saniye

'zemin desenini çiz

ScaleMode = 3 'pixel moduna geçir

For i = 0 To ScaleHeight

Line (0, i)-(ScaleWidth, i), i * 256

Next

ScaleMode = 1 'normal moda dön

'form yüksekli?ini ve genisligini ayni yap

Width = ScaleHeight

'matematiksel koordinatlara göre yeniden ölçekle

Scale (-20, 20)-(20, -20)

t = "ACCESSTR.NET"

CurrentX = -TextWidth(t) / 2 ' orta noktayy bul

CurrentY = -1

Print t

t = "    ERKAN   "

CurrentX = -TextWidth(t) / 2

CurrentY = -4

Print t



'saat yuvarlagini ciz

DrawWidth = 5

Circle (0, 0), 19, 65535



DrawWidth = 2

'saniye cizimlerini ciz

For aci = 0 To 360 Step 6

Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(5) 'saniyelerin arka rengi

Next

'saat cizgilierini ciz

DrawWidth = 4

For aci = 0 To 360 Step 6 * 5

Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(15) 'saatlerin arka rengi

Next

DrawMode = 7 'xor

End Sub



Private Sub Timer1_Timer()

Dim aci, saniye, dakika, saat, i

Static sx, sy, dx, dy, stx, sty

Caption = Time

DrawWidth = 2

Line (0, 0)-(sx, sy), QBColor(6) 'saniyeyi çiz

saniye = Second(Time) 'saniyeyi saatten al

aci = -saniye * 6 + 90 'her bir saniye +6 derecedir 360 derece 60 saniyedir

sx = 18 * Cos(aci * 3.1415 / 180)

sy = 18 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(sx, sy), QBColor(6) 'saniyeyi çiz



DrawWidth = 3

Line (0, 0)-(dx, dy), QBColor(11) 'yelkovany çiz

dakika = Minute(Time) 'dakikayi saatten al

aci = -dakika * 6 + 90 'her bir dakika 6 derecedir 360 derece / 60 dakikadir

dx = 18 * Cos(aci * 3.1415 / 180)

dy = 18 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(dx, dy), QBColor(11) 'yelkovani çiz

DrawWidth = 3

Line (0, 0)-(stx, sty), QBColor(12) 'akrebi ciz

saat = Hour(Time) 'saati saatten al

aci = -saat * 30 + 90 'her bir saat 30 derecedir 360 derece / 12 saat

stx = 12 * Cos(aci * 3.1415 / 180)

sty = 12 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(stx, sty), QBColor(12) 'akrebi ciz

'saat basi ise zil cal

If Minute(Time) = 0 Then Beep

End Sub



Private Sub Timer2_Timer()

Static sls

sls = (sls + 1) Mod 360

Dim aci

Dim sx, sy, dx, dy, stx, sty

DrawWidth = 1

aci = -sls * 3.6 + 90 'her bir saniye 3.6 derecedir. 360 derece/ 100

sx = 3 * Cos(aci * 3.1415 / 180)

sy = 3 * Sin(aci * 3.1415 / 180)

Line (5, 5)-(5 + sx, 5 + sy), QBColor(10) 'sagdaki kucuk ibre

Line (-5, 5)-(-5 - sx, 5 - sy), QBColor(10) 'soldaki kucuk ibre

End Sub

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Transparan Analog Saat chopper07 7 4.424 12/04/2012, 13:07 accessman
  küçük saat serg 6 3.297 02/03/2011, 22:14 slayermemo
  vb de analog saatin kodu emin_111 1 1.531 22/05/2009, 13:55 Bilgisayarcı
  Basit bir saat daha tarihli chopper07 0 2.137 28/11/2008, 23:11 chopper07
  Degisik Bir Saat chopper07 1 1.994 14/11/2008, 20:10 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya