HACK TÜRKS


 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Analog Saat

Aşağa gitmek 
YazarMesaj
Admin [TEZOoO]
ADMİN - YÖNETİCİ
ADMİN - YÖNETİCİ
avatar

Mesaj Sayısı : 380
NERDEN : İstanbul/Sefaköy
Kayıt tarihi : 14/09/08

Kişi sayfası
Rep Puanı:
50000000/0  (50000000/0)

MesajKonu: Analog Saat   Salı Eyl. 16, 2008 12:07 pm

' Form1 e 3 adet label (Label1, Label2, Label3) + 1 adet Timer (Timer1)
' 3 adet Line (Line1,Line2,Line3) yerleştiriniz.
'

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 '1000 milisaniye = 1 saniye
End Sub


Private Sub Timer1_Timer()
Dim saat, dakika, saniye As Integer
Dim l1x1, l1y1, l1x2, l1y2, l1r As Integer
Dim l2x1, l2y1, l2x2, l2y2, l2r As Integer
Dim l3x1, l3y1, l3x2, l3y2, l3r As Integer
Dim dersan, derdak, dersaat As Double 'dersan=saniye açısı
'************************************* derdak=dakika açısı, dersaat=saat açısı

saat = Mid(Time, 1, 2)
If saat > 12 Then saat = saat - 12
dakika = Mid(Time, 4, 2)
saniye = Mid(Time, 7, 2)
Label1.Caption = Str(saat) + " :"
Label2.Caption = dakika + " :"
Label3.Caption = saniye
dersan = (((saniye * 6) - 90) * 3.14) / 180 'Radyanlar dereceye çevriliyor
derdak = (((dakika * 6) - 90) * 3.14) / 180 'Radyanlar dereceye çevriliyor
dersaat = (((saat * 30) - 90) * 3.14) / 180 'Radyanlar dereceye çevriliyor
'********* r= Saniyenin yarıçapı ******************
l1r = 2000
l2r = 1500
l3r = 1000
l1x1 = (Form1.Width) / 2
l1y1 = (Form1.Height) / 2
l2x1 = (Form1.Width) / 2
l2y1 = (Form1.Height) / 2
l3x1 = (Form1.Width) / 2
l3y1 = (Form1.Height) / 2

l1x2 = l1r * Cos(dersan)
l1y2 = l1r * Sin(dersan)
l2x2 = l2r * Cos(derdak)
l2y2 = l2r * Sin(derdak)
l3x2 = l3r * Cos(dersaat)
l3y2 = l3r * Sin(dersaat)

Line1.x1 = l1x1
Line1.x2 = l1x2 + l1x1
Line1.y1 = l1y1
Line1.y2 = l1y2 + l1y1
'******* dakika çizgisi düzenliyor
Line2.x1 = l2x1
Line2.x2 = l2x2 + l2x1
Line2.y1 = l2y1
Line2.y2 = l2y2 + l2y1
'******* saat çizgisi duzenleniyor
Line3.x1 = l3x1
Line3.x2 = l3x2 + l3x1
Line3.y1 = l3y1
Line3.y2 = l3y2 + l3y1

End Sub

_________________

Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://hackturks.yetkin-forum.com
 
Analog Saat
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Zülfü Livaneli - Efsane Konserler

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
HACK TÜRKS :: Programlama :: Diğer Programlama Dilleri ve Databaseler-
Buraya geçin:  
SİTENİ REKLAM VER (BEDAVA)
HACK TÜRKS
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle

BÜYÜK YERİMİZ..!!!
forum kurmak | © phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Bir bloga sahip olmak