*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Analog Saat

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Analog Saat Empty Vb Kod Analog Saat

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:28 pm

    Private Sub Command1_Click()
    Unload Form1
    End Sub

    Private Sub Form_Load()
    Show
    DrawWidth = 4
    Circle (ScaleWidth / 2, ScaleHeight / 2), 3000
    Timer1.Interval = 1000
    Form1.Caption = "SAAT " & " " & Time
    End Sub

    Private Sub Timer1_Timer()
    Cls
    Form1.FontSize = 12
    Form1.FontBold = True
    CurrentX = 3200
    CurrentY = 4000
    Print "ßy_Haqan01"
    CurrentX = 2750
    CurrentY = 4500
    Print "AdeLHard"
    CurrentX = 3200
    CurrentY = 1500
    Print "AdeLHard"
    CurrentX = 3300
    CurrentY = 2000
    Print "FOrumFokurtu"
    Static K, Z, A, M, L, N, P, R, S, T, V, W
    A = 90 - Second(Time) * 6 'SANİYE'
    M = 90 - Minute(Time) * 6 'DAKİKA'
    S = 90 - Hour(Time) * 30 'SAAT'
    S = S - 1 + (M / 12)
    P = ScaleWidth / 2 + Cos(M * 3.14 / 180) * 2500 'DAKİKA'
    R = ScaleHeight / 2 - Sin(M * 3.14 / 180) * 2500
    DrawWidth = 4
    Line (ScaleWidth / 2, ScaleHeight / 2)-(P, R), QBColor(9)
    K = ScaleWidth / 2 + Cos(A * 3.14 / 180) * 3000 'SANİYE'
    Z = ScaleHeight / 2 - Sin(A * 3.14 / 180) * 3000
    DrawWidth = 2
    Line (ScaleWidth / 2, ScaleHeight / 2)-(K, Z), QBColor(9)
    DrawWidth = 4 'DAİREYİ ÇİZDİRME'
    Circle (ScaleWidth / 2, ScaleHeight / 2), 3000
    Form1.Caption = "SAAT " & " " & Time & " " & "urtok33" & " "
    For i = 1 To 60 'DAKİKA ÇİZGİLERİ'
    ACI = 90 - i * 6
    KX = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 2900
    KY = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 2900
    K = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 3000
    Z = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 3000
    Line (KX, KY)-(K, Z)
    Next i
    For F = 1 To 12 'SAAT BELİRLEME ÇİZGİLERİ'
    ACI = 90 - F * 30
    KX = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 2900
    KY = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 2900
    K = ScaleWidth / 2 + Cos(ACI * 3.14 / 180) * 3000
    Z = ScaleHeight / 2 - Sin(ACI * 3.14 / 180) * 3000
    Line (KX, KY)-(K, Z), QBColor(9)
    Next F
    V = ScaleWidth / 2 + Cos(S * 3.14 / 180) * 1500 'SAAT'
    T = ScaleHeight / 2 - Sin(S * 3.14 / 180) * 1500
    DrawWidth = 5
    Line (ScaleWidth / 2, ScaleHeight / 2)-(V, T), QBColor(9)
    For i = 1 To 12 'SAAT NUMARALARINI YAZDIRMA'
    W = 90 - i * 30
    K = ScaleWidth / 2 + Cos(W * 3.14 / 180) * 3050
    Z = ScaleHeight / 2 - Sin(W * 3.14 / 180) * 3050
    KX = ScaleWidth / 2 + Cos(W * 3.14 / 180) * 2700
    KY = ScaleHeight / 2 - Sin(W * 3.14 / 180) * 2700
    QBColor (9)
    CurrentX = KX - 150
    CurrentY = KY - 60
    Print i
    Next i

    End Sub

    • Sayfa başına dön

      Forum Saati Cuma Mayıs 17, 2024 5:40 am