Good job. Perfect game.
Good job. Perfect game. Thanks for sharing your code.
I can't believe this can be done in VB.NET easily.
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Select Case curDirection Case Direction.Downward y = y + 1 If y > rowCount - 1 Then y = 0 Case Direction.Leftward x = x - 1 If x < 0 Then x = columnCount - 1 Case Direction.Rightward x = x + 1 If x > columnCount - 1 Then x = 0 Case Direction.Upward y = y - 1 If y < 0 Then y = rowCount - 1 End Select
Select Case curDirection Case Direction.Downward y = y + 1 If y > rowCount - 1 Then ' Your wall collision message here End If Case Direction.Leftward x = x - 1 If x < 0 Then ' Your wall collision message here End If Case Direction.Rightward x = x + 1 If x > columnCount - 1 ' Your wall collision message here End If Case Direction.Upward y = y - 1 If y < 0 Then ' Your wall collision message here End If End Select
thanks for source code it is very benifitial for me