1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Analog Saat


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Timer ve Line nesnelerinin kullanımına örnek
    ' Form1 e 3 adet label (Label1, Label2, Label3) + 1 adet Timer (Timer1)
    ' 3 adet Line (Line1,Line2,Line3) yerleştiriniz.
    Kod:
    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