Department of Computer Engineering
Department of Computer Engineering
CERTIFICATE
THIS IS CERTIFY THAT
AACHAL KHOBRAGADE
STUDENT OF SECOND YEAR (COMPUTER
ENGINEERING)
RACING GAME APPLICATION
PROF. AWADH
(SEMINAR GUIDE)
HOD PROF
(V.D. DATE)
LOKNETE GOPALRAJI GULVE
POLYTECHNIC, VILHOLI , NASHIK
SUBMITTED BY :-
AACHAL PRADIP KHOBRAGADE
INDEX
2 FEATURES
3 ADVANTAGES
4 TOOLS UTILIZED
IN PROGRAM
5 CODE
6 OUTPUT
INTRODUCTION
speed = 3
road(0) = PictureBox1
road(1) = PictureBox2
road(2) = PictureBox3
road(3) = PictureBox4
road(4) = PictureBox5
road(5) = PictureBox6
road(6) = PictureBox7
road(7) = PictureBox8
End Sub
For x As Integer = 0 To 7
road(x).Top += 2
road(x).Top = -road(x).Height
End If
Next
If (car.Bounds.IntersectsWith(enemycar1.Bounds)) Then
gameover()
End If
If (car.Bounds.IntersectsWith(enemycar3.Bounds)) Then
gameover()
End If
If (car.Bounds.IntersectsWith(enemycar4.Bounds)) Then
gameover()
End If
If (car.Bounds.IntersectsWith(enemycar6.Bounds)) Then
gameover()
End If
End Sub
Replay_button.Visible = True
endtext.Visible = True
roadmover.Stop()
enemy1_mover.Stop()
enemy3_mover.Stop()
enemy4_mover.Stop()
enemy6_mover.Stop()
End Sub
rightmover.Start()
End If
leftmover.Start()
End If
End Sub
car.Left += 5
End Sub
car.Left -= 5
End Sub
rightmover.Stop()
leftmover.Stop()
End Sub
enemycar1.Top += 3
If enemycar1.Top >= Me.Height Then
score = score + 1
End If
End Sub
enemycar3.Top += 3.5
score = score + 1
End If
End Sub
enemycar4.Top += 4
score = score + 1
End Sub
enemycar6.Top += 4.5
End If
End Sub
ForeColor = Color.OrangeRed
score = 0
Me.Controls.Clear()
InitializeComponent()
form1_load(e, e)
End Sub
End Class
Output :-