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!

• 12 yıl önce
:-dusun:HELAL OLSUN KARDEŞİM GERÇEKTEN GÜZEL Bİ PROGRAM YAPMIŞSIN
• 12 yıl önce
bende kodları istiyorum:kirp:
• 12 yıl önce
yaw ben çooook yeniyim hiçbirşey alamadım
• 12 yıl önce
gerçekten fevklade bir program yazmışsınız ellerinize sağlık.
• 12 yıl önce
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
• 12 yıl önce
güzel bişey paylaşım için teşşekkürler
• 12 yıl önce
abi bu sper ya işime yaradı:d oyun yapmak istemiştim hep ve oldu teşşekürler
• 12 yıl önce
ii iş birader:kirp:
• 12 yıl önce
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:(((
• 12 yıl önce
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..
• 12 yıl önce
bilgisayar programlama bolumu ogrencisiyim eger istek olursa bende sayısal loto oyunu yapmak isterim (:
• 12 yıl önce
beğendim
• 12 yıl önce
valla daha yeni indirdim visualı ama süper olduguna emini
• 12 yıl önce
ya ben çook yeniyim bir şey anlamadım kısaca özetlermisiniz...:)
• 12 yıl önce
selam program güsel olmuş fakat çalışınca karşıma çıkan mesgboxta 10 -15 tane msgboz oluyo neden sizce?
• 12 yıl önce
basit gb ama düsünce ve gerceklestiris ben buyum diyor, tebrik ederim...
• 12 yıl önce
bece çok basit araba yarışı bile denilemez
• 12 yıl önce
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..
• 12 yıl önce
walla ben ılk defa denıcem işallah olcak
• 12 yıl önce
Yaaaa abi line bulamadım (visual basic 2005 kullanıyorum)
• 12 yıl önce
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
• 12 yıl önce
abi lütfen yardım kodları nere yapıstırcammm
• 12 yıl önce
command button'u almıyor nasıl alacaz:D
eLine SagLık :kirp:
• 11 yıl önce
bu line de n kasıt nedir acaba
• 11 yıl önce
harika
• 11 yıl önce
kardeş çok sağolasın
• 11 yıl önce
çok guzel olmuş. emeğine sağlık. BAŞARILARININ DEVAMINI DİLERİM
• 11 yıl önce
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
• 11 yıl önce
tamam da line stusio da yok nasıl yapalım
• 11 yıl önce
ya bu araba gittikçe gidiyor
• 9 yıl önce
VB2005 te line nesnesini bulamadım....

Yukarı Git