*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 Ekran Koruyucu Animasyon

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


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

    Vb Kod Ekran Koruyucu Animasyon Empty Vb Kod Ekran Koruyucu Animasyon

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

    görünce gerçekten şaşıracaksınız gerekenler sadece....
    a)önce çok geniş bir form oluşturun
    b) forma bir tane timer1yerleştirin
    c) bir tane label1 yerleştirin
    d)verdiğm kodu girin


    Private Sub Form_Load()
    Timer1.Interval = 10
    AutoRedraw = True
    Label1.AutoSize = True

    End Sub

    Private Sub Timer1_Timer()
    Dim x, y
    Static i
    i = (i + 1) Mod 360
    y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
    x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)
    Label1.Top = y
    Label1.Left = x
    Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10
    Label1 = i

    End Sub
    • Sayfa başına dön

      Forum Saati Paz Mayıs 19, 2024 8:47 am