Tekil Mesaj gösterimi
  #1  
Alt 18-06-2014, 00:15:03
NarKo - ait Kullanıcı Resmi (Avatar)
NarKo NarKo isimli Üye şimdilik offline konumundadır
 
İstanbul Avrupa Şubesi
Mesajlar: 95
iTrader: (1)
Standart Basit bir araba yarışı Vb.Net

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





sponsor
Anasayfa � VB Dersleri , Visual Basic � Araba Yarışı Yapmak ( Vb.Net )

Araba Yarışı Yapmak ( Vb.Net )
ibrahim fırat | Pazartesi, Haziran 16, 2014 | 0 yorum
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


[M]http://www.youtube.com/watch?v=Enf_n2e48Zs[/M]

Kaynak >> Araba Yarışı Yapmak ( Vb.Net ) | ibrahimfirat.net | KişiseL Görüş Evrensel Bilgi
__________________
sinema
Bonzai
Alıntı ile Cevapla

Sponsor Bağlantılar