Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Araba(Otobüs) Yarışı

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…

 

araba1

araba

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.

 






Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 13 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=