Snake Game

Submitted by Oelasor on Monday, November 5, 2012 - 22:23.

Language

Visual Basic .NET

This is a short and simple game program based on the mobile Snake Game popularized by the classic Nokia mobile phone models. The program demonstrates the use of Struct and Enum keywords in VB .Net 2010. The game uses the arrow keys on the keyboard.

The snake increases its length and speed by 1 square unit (10 pixels x 10 pixels) and by 4 percent of its initial speed respectively for every additional 5 points garnered in the game. Initially, the time interval for the Timer control is 50 milliseconds and 4 percent of 50 is 2, this is the value we use to decrease further the time interval making the snake to move faster.

Note:
The execution speed for the rendering of the snake does not change no matter how long the snake turns out in the game process. This is because what we do is we only add a new 'head' and remove the current 'tail' by manipulating the collection object that holds the snake's squares (square selections).

Comments

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.

You're welcome. It took me 3

You're welcome. It took me 3 hours to write the codes. I am sure it is still buggy... :-)

After few minutes of playing,

After few minutes of playing, I think the only problem is the snake does not failed when hitting the wall. Is this normal?

I designed it that way :-)...

I designed it that way :-)... If you wish to have the game behave that way (activating wall collisions), you just have to modify this block of 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

into this:

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

I am sorry I should have included some comments on the codes. Anyways, please feel free to post your queries here... I believe this site is very accommodating and always 'active' :-)...On my part... I am most willing to be of help...

Hi,

Thanks for the code. I can't believe you finished the program within 3 hours. I hope I can do the same in the future.

I'm still learning different languages today and I like vb.net.

Trust me...it's not that hard

Trust me...it's not that hard :-) ... maybe my typing speed contributes... hehehe. Boasting aside, I can develop a complete system within a week or so, provided it is well-documented and complete with diagrams and other significant details... OOP (Object-Oriented Programming) and COP (Component-Oriented Programming like .NETs) approaches in programming help a lot...Things become easy when done passionately...

I really wanted to learn OOP

I really wanted to learn OOP thats why I am studying it every day.And by the way what is COP? I just heard it from you...

I did not invent the term COP

I did not invent the term COP :).. try Google, there is a lot of info about COP over the Internet... By the way, this small program is not written that way. I chose not to implement the OOP or COP approach since it is just that 'small'... anyways, if one wanted to use the OOP or COP approach regardless how small the project is, it's his personal discretion. We can choose to be 'cheap' sometimes...

Hey, its our first first time

Hey, its our first first time jerk.

i think it is a nice game

need of comments

Hi,
i find it difficult to understand. So i need some comments to undersatnd it.

To get Information

Can i ask something ? i'm a programmer student , i just want to know how to make a games in VB . Who can give me a code ? tnx :D

how to download ? :(

project

how to download this game?

Snake speed

Hello, i see in your code we cannot change the snake speed. However, is there a way to make a kind of "level difficulty" by change the speed or it's impossible ?

Note: Sorry for my english, it is not my first language :)

The snake's speed is

The snake's speed is automatically updated/incremented for every five (5) points you earn in the play. On the other hand, you can design the program to use a difficulty level using the speed, that is, using the Timer's Interval value.

You made all program on 22

You made all program on 22 lines?

It crashes at 200% Speed?

Just as the title says, It crashes at 200% Snake speed. It says TMR.Interval cannot be less than 0.

Thanks for sharing that info.

Thanks for sharing that info... haven't tried the code in that speed. Somehow, to resolve that is to use a variable to update the Timer's Interval value instead of directly modifying it, thus avoiding values less than zero (0).