*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 Kayan Yazı 2

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


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

    Vb Kod Kayan Yazı 2 Empty Vb Kod Kayan Yazı 2

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

    1 adet label 2 adet timer-1.timer enabled true invertal 100
    2.timer enabled false invertel 1000

    Option Explicit

    Dim myarray(20)
    Public X As Integer
    Public asa As Integer

    Private Sub Form_Load()
    Dim i As Integer

    Timer2.Interval = 1000
    Timer2.Enabled = False
    Timer1.Interval = 50
    X = 1
    asa = 0
    For i = 1 To 20
    myarray(i) = Mid(Label1, i, 1)
    Next i
    Label1.Caption = ""
    Timer1.Enabled = True

    End Sub


    Private Sub Form_Unload(Cancel As Integer)
    Timer1.Enabled = False
    Timer2.Enabled = False

    End Sub

    Private Sub Timer1_Timer()
    Label1.Caption = Label1.Caption + myarray(X)
    If X = 20 Then
    X = 1
    Timer2.Enabled = True
    Timer1.Enabled = False
    Else
    X = X + 1
    End If
    DoEvents
    End Sub

    Private Sub Timer2_Timer()
    If X = 2 Then
    X = 1
    Label1.Caption = ""
    Timer1.Enabled = True
    Timer2.Enabled = False
    Else
    X = X + 1
    End If
    DoEvents
    End Sub
    • Sayfa başına dön

      Forum Saati C.tesi Nis. 27, 2024 12:05 pm