Zıplanacak içerik
LaRsiE_

Visual Basic Saat Örneği

Önerilen İletiler

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

Bu iletiyi paylaş


İletiye ulaşan sekme (kopyala)
Diğer sitelerde paylaş

İletiniz moderatör kontrolünden geçtikten sonra sitede gösterilmeye başlanacaktır. Eğer buna maruz kalmak istemiyorsanız lütfen hemen bir ÜYE OLUNUZ.

Misafir
İletinizi misafir olarak gönderiyorsunuz. Eğer üye iseniz lütfen GİRİP YAPARAK gönderiniz.
Bu başlığa cevap yaz

×   Zengin metin olarak yapıştırıldı..   Onun yerine sade metin olarak yapıştır

  Only 75 emoticons maximum are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri getirildi..   Editörü temizle

×   You cannot paste images directly. Upload or insert images from URL.


×

Önemli Bilgiler

Bu siteyi kullanmaya başladığınız anda kuralları kabul ediyorsunuz Kullanım Koşulu.