lostyazilim
tr.link

visual basic ile basit bir oyun

2 Mesajlar 1.506 Okunma
acebozum
tr.link

NarKo NarKo WM Aracı Kullanıcı
  • Üyelik 21.01.2013
  • Yaş/Cinsiyet 41 / E
  • Meslek Webmaster
  • Konum İstanbul Avrupa
  • Ad Soyad İ** F**
  • Mesajlar 1356
  • Beğeniler 258 / 147
  • Ticaret 90, (%100)
Forma eklemeniz gerken araçlar:

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




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


Kaynak >> http://www.ibrahimfirat.net/2014/06/araba-yars-yapmak-vbnet.html
tiwaly

kişi bu mesajı beğendi.

Kitaplardan önce kendimizi okumaya çalışalım
elektronikssl
webimgo

bager1222 bager1222 WM Aracı Kullanıcı
  • Üyelik 07.10.2014
  • Yaş/Cinsiyet 29 / E
  • Meslek öğrenci
  • Konum Ankara
  • Ad Soyad B** A**
  • Mesajlar 1
  • Beğeniler 0 / 0
  • Ticaret 2, (%100)
yararlı bilgi teşekkürler
 

 

wmaraci
wmaraci
Konuyu toplam 2 kişi okuyor. (0 kullanıcı ve 2 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al