Φ LaRsiE_ Gönderi tarihi: 9 Kasım , 2008 Paylaş Gönderi tarihi: 9 Kasım , 2008 Visual Basic'de Saat Yapmak İçin Güzel Bir Örnek 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 = "ARTVIN TEKNIK LISESI" CurrentX = -TextWidth(t) / 2 ' orta noktayy bul CurrentY = -1 Print t t = "TL11B SINIFI" 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ıntıdır Alıntı Yoruma sekme Diğer sitelerde paylaş Daha Fazla Paylaşım Siteleri
Önerilen İletiler
Katılın Görüşlerinizi Paylaşın
Şu anda misafir olarak gönderiyorsunuz. Eğer ÜYE iseniz, ileti gönderebilmek için HEMEN GİRİŞ YAPIN.
Eğer üye değilseniz hemen KAYIT OLUN.
Not: İletiniz gönderilmeden önce bir Moderatör kontrolünden geçirilecektir.