Araba Yarışı VB 6.0

ana sayfa > Görsel Programlama, VB 6.0 > Araba Yarışı VB 6.0

Pazartesi, 29 Mar 2010 yorum ekle yorumlara git

Araba Yarışı VB 6.0

araba

[Code='VB.NET']Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Shape1.Left = 360
Shape2.Left = 360
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Shape1.Left = 360
Shape2.Left = 360
End Sub

Private Sub Timer1_Timer()
Dim a, b As Integer
Randomize
Shape1.Left = Shape1.Left + Rnd * 20
Shape2.Left = Shape2.Left + Rnd * 20
If Shape1.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“kazanan araba beyaz”)
End If
If Shape2.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“siyah araba kazandı “)
End If
End Sub[/Code]

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.

Paylaş :