Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR
<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Linkleri görebilmek & kisaca forumdan daha yararli bir şekilde yararlanmak için üye olunuz

<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR

Sxe 10.2 CS 1.5 & 1.6 Wall Hack Sxe Hack , Sxe Hileleri ,Sxe 10.2 Hileleri , Full - Torrent Oyunlar,Tüm Oyunlar , Visual Basic Dersleri,
 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Vb Saat Yapimi [] Duvar Saati []

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
fRkn*
♥ CS -TR Kurucusu♥
♥ CS -TR Kurucusu♥


Mesaj Sayısı : 345
Rep Puanı : 1103
Kayıt tarihi : 23/07/10
Nerden : İzmir

MesajKonu: Vb Saat Yapimi [] Duvar Saati []   Ptsi Tem. 26, 2010 9:54 pm

Visual Basic'te herkesin kolaylıkla yapabileceği mükemmel bir saat örneğini ele alacağız bu dersimizde.

Arkadaşlar, forma sadece 2 timer ekliyoruz ve kodları timerlerin içine yazıyoruz.
Kod:

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 = "Forumqs.com"

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

CurrentY = -1

Print t

t = "qoLdeN."

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

Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://csturkey.forumpro.org
 
Vb Saat Yapimi [] Duvar Saati []
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Primeval Tanrıça; nasıl dünyayı yarattı Nil Nehri kökeni

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR  :: Visual Basic :: Visual Basic Anlatimli Hazır Kodlar-
Buraya geçin: