23/03/07, 13:09
#1
Yarbay
Üyelik tarihi: Dec 2006
Yaş: 39
Mesajlar: 361
Tecrübe Puanı:
0
Visual Basic ile Kodlanan Güzel Bir Saat örneği(vb ile)
Private Sub Form_Load()
Dim aci, i, t
AutoRedraw = True
Timer1.Interval = 1000 ' 1 saniye
Timer2.Interval = 10 '1 saniye
'zemin desenini ciz
ScaleMode = 3 'pixel moduna gecir
For i = 0 To ScaleHeight
Line (0, i)-(ScaleWidth, i), i * 256
Next
ScaleMode = 1 'normal moda don
'form yuksekligini ve genisligini ayni yap
Width = ScaleHeight
'matematiksel koordinatlara gore yeniden olcekle
Scale (-20, 20)-(20, -20)
t = "forum.van.gen.tr"
CurrentX = -TextWidth(t) / 2 ' orta noktayy bul
CurrentY = -1
Print t
t = "Erham"
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 ciz
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 ciz
DrawWidth = 3
Line (0, 0)-(dx, dy), QBColor(11) 'yelkovany ciz
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 ciz
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
Çalışan Örneğini buradan indirebilirsiniz.
[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan.... ]
Konu erham tarafından (23/03/07 Saat 17:38 ) değiştirilmiştir..
Konu Sayısı: 25
23/03/07, 17:31
#2
Genç Adm!n
Üyelik tarihi: Jan 2007
Bulunduğu yer: BileciK
Mesajlar: 7.158
Tecrübe Puanı:
200
tşkler abii visual basic kullananlar için güzel paylaşım
...
__________________
TARAFTAR KLÜBÜ
Konu Sayısı: 325
Takımınız:
23/03/07, 17:59
#3
Site Sahibi
Üyelik tarihi: Dec 2006
Mesajlar: 1.709
bu konuda sabit konu açmıştım. lütfen programlama bölümlerine teşekkür yazmayın. kodlarla ilgili bir soru veya açıklama varsa yapın.
Konu Sayısı: 92
Takımınız:
24/03/07, 10:57
#4
Yarbay
Üyelik tarihi: Dec 2006
Yaş: 39
Mesajlar: 361
Tecrübe Puanı:
0
rica ederim çalışan halini indirebilirsin vb bilmeyenler onunla idare etsinn
Konu Sayısı: 25
10/04/07, 19:12
#5
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
Alıntı:
muhemar ´isimli üyeden Alıntı
bu konuda sabit konu açmıştım. lütfen programlama bölümlerine teşekkür yazmayın. kodlarla ilgili bir soru veya açıklama varsa yapın.
Ya abicim valla ben anlamıyorum ..değerli arkadaşları defalarca dedim ama yok yinede ağızlarından kaçırıyolar.
ya abee tşk yazmayın kurban olım..yaaa
Konu Sayısı: 187
16/06/07, 13:43
#6
Super Moderator
Üyelik tarihi: Jan 2007
Bulunduğu yer: ναη
Mesajlar: 8.060
emeğine sağlık kardeş... teşekkürler....
Konu Sayısı: 488
Takımınız:
31/07/08, 15:34
#7
Yasaklı kullanıcı
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.883
paylaşım için tşkrlr
Konu Sayısı: 316
Takımınız:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.
HTML-KodlarıKapalı
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 16:14 .
Sitemap
6 ,
5 ,
3 ,
7 ,
8 ,
9 ,
10 ,
11 ,
12 ,
13 ,
14 ,
15 ,
113 ,
16 ,
17 ,
18 ,
19 ,
81 ,
20 ,
27 ,
22 ,
23 ,
24 ,
25 ,
26 ,
48 ,
28 ,
29 ,
30 ,
31 ,
32 ,
33 ,
34 ,
35 ,
36 ,
37 ,
38 ,
39 ,
43 ,
136 ,
40 ,
58 ,
45 ,
42 ,
44 ,
46 ,
47 ,
53 ,
54 ,
55 ,
56 ,
57 ,
59 ,
60 ,
70 ,
61 ,
62 ,
63 ,
64 ,
65 ,
66 ,
68 ,
69 ,
71 ,
72 ,
74 ,
75 ,
76 ,
77 ,
78 ,
79 ,
80 ,
82 ,
83 ,
96 ,
84 ,
85 ,
86 ,
87 ,
88 ,
89 ,
90 ,
91 ,
92 ,
93 ,
94 ,
95 ,
98 ,
97 ,
100 ,
101 ,
102 ,
103 ,
106 ,
104 ,
105 ,
112 ,
109 ,
108 ,
107 ,
110 ,
111 ,
114 ,
115 ,
118 ,
116 ,
117 ,
119 ,
148 ,
154 ,
124 ,
165 ,
122 ,
120 ,
123 ,
121 ,
150 ,
153 ,
125 ,
128 ,
129 ,
131 ,
132 ,
133 ,
134 ,
135 ,
137 ,
138 ,
139 ,
140 ,
141 ,
142 ,
143 ,
144 ,
145 ,
146 ,
147 ,
151 ,
149 ,
202 ,
175 ,
164 ,
152 ,
167 ,
155 ,
156 ,
157 ,
158 ,
159 ,
160 ,
161 ,
162 ,
163 ,
195 ,
169 ,
166 ,
168 ,
170 ,
171 ,
172 ,
199 ,
174 ,
173 ,
196 ,
200 ,
176 ,
177 ,
180 ,
178 ,
179 ,
182 ,
189 ,
187 ,
184 ,
186 ,
191 ,
192 ,
193 ,
194 ,
197 ,
198 ,
201 ,
203 ,
229 ,
204 ,
205 ,
206 ,
207 ,
208 ,
209 ,
210 ,
211 ,
212 ,
213 ,
214 ,
215 ,
216 ,
217 ,
218 ,
219 ,
220 ,
221 ,
222 ,
223 ,
224 ,
236 ,
231 ,
232 ,
233 ,
234 ,
235 ,
237 ,
240 ,
239 ,
241 ,
243 ,
242 ,
244 ,