Başlangıç > Kodlar > Visual Basic 6 ile Yürüyen top

Visual Basic 6 ile Yürüyen top


Güzel bir timer örneği KADIRGA TML

Dim i

Private Sub Command1_Click()

If Command1.Caption = "Baştan" Then i = 100
If Timer1.Enabled = True Then a = 1
If Timer1.Enabled = False Then a = 0
If a = 1 Then
Timer1.Enabled = False
Command1.Caption = ">"
End If
If a = 0 Then
Timer1.Enabled = True
Command1.Caption = "||"
End If
End Sub

Private Sub Form_Load()
Show
i = 200
Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
i = i + 10
Shape1.Left = i
Shape1.BorderColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
Shape1.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

If i = 3000 Then
Timer1.Enabled = False
End If
If i = 3000 Then Command1.Caption = "Baştan"
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: