Araba(Otobüs) Yarışı örnek VB.Net
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.
Programı İndir:Araba Yarışı
Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.
projeniz çok işime yaradı . bizlerle paylaştığınğz için teşekkür ederim .
Rica ederim.Kolay gelsin.
Tesekkur eDerim Su RastgeLe Hareket etme olayları Bana lazım dı kodunuz ışime yarıycak..;)
başla buttonuda hareket ediyor .bunu nasıl sabitleştiliriz.kodları başla buttonunamı yazıoruz,yoksa diğer buutonlara bana bir yardımcı olsanız.teşekkürler.
bende veritabanı kouyorum.
proji indirip baktım.sorun yok.Başla butonu sabit duruyo zaten.Sen kendin yazdıysan kodları buton isimlerine(name) dikkat et.Arabalar yerine başla butonuna hareket vermiş olabilirsin.
sonucu nereye yazıyoruz.665 nre göre
abi sonuç olmadı diğerini yaptımda.
sonucu labele yazdirrdım ama geçince kazandınız diye mesaj vermiyor.şeyden kaynaklana bilirmi 665 neye göre bu .bir yardımcı olursanız çok sevinirim.teşekkürler:D
665 yaklaşık olarak finish yazan yer.Örnek olarak prog. çalıştırmadan herhangibir araba yaptığın butonu finish yazan yere taşı.buton işaretli iken properties’ten location 665;55 yazar.665 x koordinatındaki yeri.Bu değerleri forma göre ayarlayabilirsin.Senin formda farklı olabilir.Dikkat et.
abi başla durmadan tıklamamız gerek.Bunu timer1.start Denedim olmadı.
sadece Buttona bir defa tıklayıp çalışsa olmaz mı teşekkürler:D
sorunu biraz daha açık sorsan
abi oyuncular hareket etmesi için başla buttonu durmadan tıklamamız gerek.benim istediğim
başla tıklıycan finish kadar gitcek.başla buttonunu sadece bir kere tıklılarak.teşekkürler
zaten öyle yapıyo.Başla’ya bastıktan sonra finish’e kadar gidiyor arabalar.Kim önce giderse mesaj ile o birinci oldu diyor.
hocam bu kodu nsl calstracagımızı tarif edebilirmisin ?
tamam herşey düzgün çalışıyoda arabalar finish noktasını bitirdikten sonra yeniden başlat diye butonuna basınca tekrardan başlatmak istiyorum yardımcı olurmusunuz?