-->

Sponsor Alanı

Slider

İlgi Çeken Videolar

Sağlık

Teknoloji

Sinema

Televizyon

Ne Nedir?

En5 Konular

ads
» » » Araba Yarışı Yapmak ( Vb.Net )

ads
ads
Visual basic 2010 ile basit bir araba yarışı yapacağız.

Forma eklemeniz gerken araçlar:

3 tane LineShape
2 adet Textbox
1 adet Timer ekleyiniz ve tasarımı aşağıdaki gibi yapabilirsiniz.

Araba Yarışı Yapmak ( Vb.Net )


Aşağıda verilmiş olan kodu Timer e ekleyiniz.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Randomize()
a = Int(Rnd(300) * 100)
b = Int(Rnd(300) * 100)
TextBox1.Left = TextBox1.Left + a
TextBox2.Left = TextBox2.Left + b
If TextBox1.Left >= 5520 Then
a = MsgBox("A Arabası kazandı")
End
End If
If TextBox2.Left >= 5520 Then
a = MsgBox("B Arabası Kazandı")
End
End If
End Sub


Sonrasında ekleyeceğiniz kodu Buttona çift tıklayın ve click olayına ekleyin

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 25
End Sub
End Class



ads

FacebookTwitterPinterestTumblrYazdır
«
Next
Sonraki Kayıt
»
Previous
Önceki Kayıt

Hiç yorum yok:

Yorum Yazmak İçin Aşağıdaki Seçenekleri Kullanınız


Lütfen konuyla alakasız yorumlardan kaçının. Sadece link almak amaçlı ( spam ) yorumlar yazmayınız. ( anında silinir ). Argo, küfür, siyasi vb. içerik barındıran yorumlar yazmayınız.

Not: Yorum yapabilmek için (yorumlama biçiminden) Anonim ( isimsiz olarak ) veya Adı/URL'yi ( Adı ( gerekli ) / URL ( kısmını boş bırakınız ), fonksiyonlarından seçim yaparak yorumlarınızı yazabilirsiniz.

Ancak Google + profili ile yapılan yorumları onaylamıyorum bilginize. Yorum yaparken Adı/URL kısmından yaparsanız sadece isim yazmanız yeterli. Site adresi, URL eklerseniz yorumunuz onaylanmaz.