Anasayfa > Kodlar > Visual Basic 6 ile Shape yarışı

Visual Basic 6 ile Shape yarışı


2 tane Shape,2 tane Line,1 tane Command button,2 tane Timer kullanılarak basit bir yarış.

 

 

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Shape1.Left >= 3480 Then
Timer1.Enabled = False
Timer2.Enabled = True
Else
Shape1.Left = Shape1.Left + Int(Rnd * 100)
End If
End Sub

Private Sub Timer2_Timer()
If Shape2.Left >= 3480 Then
Timer1.Enabled = False
Timer2.Enabled = True
Else
Shape2.Left = Shape2.Left + Int(Rnd * 100)
End If
End Sub


TD Software


  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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: