Bir Araba Yarışı Yapalım

Visual Basic'te küçük ve eğlenceli bir araba yarışı yapacağız. Bakalım hangi araba birinci gelecek? :)

Visual Basic'te küçük ve eğlenceli bir araba yarışı yapacağız. Bakalım hangi araba birinci gelecek? :)



2 tane textbox ,1 tane command button ,3 tane line ,1 tane timer kullanmamız gerek!
Formumuza bunları yerleştirdikten sonra alta vermiş olduğum kodu yazınız!!!



Timer1 İçine 



Private Sub Timer1_Timer()

Randomize

a = Int(Rnd(300) * 100)

b = Int(Rnd(300) * 100)

Text1.Left = Text1.Left + a

Text2.Left = Text2.Left + b

If Text1.Left >= 5520 Then

a = MsgBox("A Arabası kazandı")

End

End If

If Text2.Left >= 5520 Then

a = MsgBox("B Arabası Kazandı")

End

End If

End Sub



Command1 Buttonunun içinede



Private Sub Command1_Click()

Timer1.Enabled = True

Timer1.Interval = 25

End Sub

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

:-dusun:HELAL OLSUN KARDEŞİM GERÇEKTEN GÜZEL Bİ PROGRAM YAPMIŞSIN
bende kodları istiyorum:kirp:
yaw ben çooook yeniyim hiçbirşey alamadım
gerçekten fevklade bir program yazmışsınız ellerinize sağlık.
selamu aleykum kardeş ben bilgisayr proğramcılı bölümünü okuyom bu derside görüyom sen bu proğramı bu şekilde araba yarışı prğramı çalışacakmı hiç olurmu sence bence olmaz yani yinede bilmiyorum ayrıntıyı anlatırsan sevinirim
güzel bişey paylaşım için teşşekkürler
abi bu sper ya işime yaradı:d oyun yapmak istemiştim hep ve oldu teşşekürler
ii iş birader:kirp:
benim üye olalım daha saati bile doldurmadı cok acil yardıma ihtiyacım war visual basicten hastane proğramı yapmalıyım plase yrdım:(((
hastana programı yapmalıyım diyen arkadaş garanti ünv. okuyosundur ödevindir bu benimde öyleydi bana nasıl ulaşırsın bilmemde ulaş bana sana vereyim yaptığım hastane programını işini görür garanti ;) Bu arada çok basit bu bea ama olsun düşünmüşsün eline sağlık..
bilgisayar programlama bolumu ogrencisiyim eger istek olursa bende sayısal loto oyunu yapmak isterim (:
beğendim
valla daha yeni indirdim visualı ama süper olduguna emini
ya ben çook yeniyim bir şey anlamadım kısaca özetlermisiniz...:)
selam program güsel olmuş fakat çalışınca karşıma çıkan mesgboxta 10 -15 tane msgboz oluyo neden sizce?
basit gb ama düsünce ve gerceklestiris ben buyum diyor, tebrik ederim...
bece çok basit araba yarışı bile denilemez
tşkler paylaşım için, peki bunu daha gorsel hale getirmek için ne gibi bi programla çalışmak gerekir, ve kodlari biraz acabilirmisiniz?
WALLA BENDE VB. TYİ KULLANMAK İSTİYORUM AMA BİRİNİN BANA YARDIM ETMESİNİ İSTİYORUM..
walla ben ılk defa denıcem işallah olcak
Yaaaa abi line bulamadım (visual basic 2005 kullanıyorum)
biz bu kodları nereye koyucazz??????????????????????
timer1 in içine sunları yaz command1 in içinede sunları yaz demıssın bu timer1 ve command1 nasıl olusturcaz yenıyımde bilgilendırırsenız memnun olurum
abi lütfen yardım kodları nere yapıstırcammm
command button'u almıyor nasıl alacaz:D
eLine SagLık :kirp:
bu line de n kasıt nedir acaba
harika
kardeş çok sağolasın
çok guzel olmuş. emeğine sağlık. BAŞARILARININ DEVAMINI DİLERİM
eline sağlık basit ve güzel olmuş ama line a gerek yokmuş olmasada gidiyor bu arada daha hızlı olmasını istiyorsanız Timer1.Interval i düşürün
tamam da line stusio da yok nasıl yapalım
ya bu araba gittikçe gidiyor
VB2005 te line nesnesini bulamadım....

Yukarı Git