Araba(Otobüs) Yarışı

Araba yarışın için bir label , başla komutunu vermek için buton , kaç tane araba yarışacaksa o kadar buton ekliyoruz ve bir timer ekliyoruz .
Butona bastığımız anda timer 1 in etkin olması lazım onun için başla butonun Clickine girip…

Timer1.Enabled = True
Timer1.Interval = 100

Kodlarını yazıyoruz. Daha sonra 4 adet  değişken belirliyoruz .

Dim a, b, c, s As Integer

Daha sonra Timer’in Tickine  eğer s değişkeni 1 sayı çoğalırsa rastgele sayı bulunsun ve button1.Left ine eklensin . buna uygun kodlar yazıldığında Buton sola doğru gidecektir.

If s + 1 Then
Randomize()
a = Int(Rnd() * 15)
Button1.Left = Button1.Left + a

Daha sonra aynı kodları diğer butonlarımız içinde yazıyoruz .

If s + 1 Then
Randomize()
b = Int(Rnd() * 15)
Button2.Left = Button2.Left + b
End If

If s + 1 Then
Randomize()
c = Int(Rnd() * 15)
Button3.Left = Button3.Left + c

End İf

Daha sonra eğer Butonlardan herahngi birinin lefti 665 e ulastığında timer 1 durduran ve mesaj olarak kimin kazandığını gösteren kodları yazıyoruz.

 If Button1.Left > 665 Then
Timer1.Enabled = False
MsgBox("Yarışı 0403 Kazandı")

End If
If Button2.Left > 665 Then
Timer1.Enabled = False
MsgBox("Yarışı Travego Kazandı")

End If
If Button3.Left > 665 Then
Timer1.Enabled = False
MsgBox("yarışı Setra Kazandı")

End If

Bu kodlarıda yazdıktan sonra programımız çalışacaktır.