PDA

View Full Version : Visual Basic2010- ъDrag Racing



Black_WoLf
02-10-2013, 18:17
Здравейте имам задача по програмиране да създам игра или програма и ми дойде идея да направя Драг състезание, но ми трябва помощ.Трябвами кода, който да спира картината като стигне до края на Form1 и мисля да я направя с 5 коли дайте ми идея как ще стане с масив.. Много ви благодаря. Ето и до сега къде съм стигнал( това е като бета версия) :

Public Class Form1


Dim moveleft As Boolean

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If moveleft = True Then
PictureBox1.Left -= 50
Else
PictureBox1.Left += 1
End If
If PictureBox1.Right = 800 Then
Timer1.Enabled = False
End If
End Sub

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

If PictureBox1.Right >= Me.Right Then
Timer1.Enabled = False
End If
If PictureBox2.Right >= Me.Right Then
Timer2.Enabled = False
End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If moveleft = True Then
PictureBox2.Left -= 60
Else
PictureBox2.Left += 5
End If
If PictureBox2.Right = 800 Then
Timer2.Enabled = False
End If
End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
If PictureBox1.Right = 800 Then
Timer1.Enabled = False
End If
End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
If PictureBox2.Right = 800 Then
Timer2.Enabled = False
End If
End Sub
End Class