[Tutorial] Simple VB game step by step, line by line (written and videos)

Part 2 Video Explanation and breakdown



In part 2 we are going to finish off our basic game functions an test it out

Go to your Timer1 properties and change enabled to True so the timer is always on, back

on the code page we are going to comment out the Timer control out of the code with a

' you will see the line turn green. Now on your form in the toolbox we want to add a

"Label" you can place this anywhere you wish , I put it in the upper right corner of the

form. Double click on the label to create your line of code on the code page, now go

back to the label's properties and change it's text from "label1" to just blank. Now on the

code page were going to add 3 seperate bits of code

Under "Public Class Form1" add the line

Code:

Dim score As Integer = 0

What does this do???

Next we will add a way to score points and display them.

Under the "PictureBox1_Click" line we will add the code below

Code:

score += 1

What does this do???

Under the "timer1_Tick" add

Code:

Label1.Text = "Score: " & score

What does this do???

If you debug the program now, you should see your picture moving randomly with a

Score: 0
displayed where you put the label. And if you click your picture you will see that you get

1 point added to your score everytime you do.

End part 2

 

Part 3 Video Explanation and breakdown




For Part 3 we are going to add a "link label" for a url, and add the icon so we can make

our first "release" build before adding the last features in part4

GO to the Toolbox and click on "LinkLabel" and place the label anywhere you want on

your Form now in the Properties for LinkLabel1 change the text to what you want and

change the link colors etc as you like, when you are done there double click the link on

the form to add the line of code to your code page
under the "LinkLabel1_LinkClicked" line add

Code:

Process.Start("http://websiteofchoice.com")

What does this do???

Next we will right click on your project solution (in tutorial it's "Picture click") and go

to the project properties page, now set your Icon to the icon you added earlier by using

the drop down box.

now go up to the top where you start the debug, change the drop down box from "debug"

to"release" and under the build tab click rebuild solution, now navigate to your games

folder Gamename/Gamename/Bin/Release/gamename.exe
now give your game a run and see how it works
that's the basics of this build now we add extra's in part 4

 

Part 4 Video Explanation and breakdown



In part 4 we are going to add 2 more timers that will pose as game difficulty levels, and

an opening and closing message box to allow simple use of these difficulty functions

and give a final score tally and goodbye message box with a couple options. Since these

code bits are more complex for the sake of time I will be copy and pasting them in the

video.

We want to turn our first timer off by changing it's property to false, next we are going

to add 2 more timers and change their intervals to lower numbers than your previous

timer (for tut I used 750 and 250) by using multiple timers with different time intervals

we created simple levels of dificulty, We will later add a way to turn each level on when

the game opens. Double click on each timer to generate the line of code on the code

page.

Now since we want all the timers to move our picture box and track our score we are

going to add the exact same code from the first timer to bothnew timers under

their lines "Timer2_Tick" and "Timer3_Tick"

Code:

PictureBox1.Location = New Point(Rnd.Next(0, Me.Width - PictureBox1.Width),
                                         Rnd.Next(0, Me.Height - (PictureBox1.Height + (Me.Height - 

Me.ClientSize.Height))))
        Label1.Text = "Score: " & score

What does this do???

Now we need a simple way to turn each level on upon opening the game so we are going

to use a simple "messagebox" with 3 options Yes,No,Cancel.
Under the "Form1_Load" line add the code below

Code:

 Dim intResponse As Integer

        intResponse = MsgBox("Choose Skill Level. Y=Hard N=Easy C=Are you Nuts?", _
        vbYesNoCancel + vbQuestion, _
        "Thanks For Playing!")

        If intResponse = vbYes Then
            Timer2.Enabled = True
        ElseIf intResponse = vbNo Then
            Timer1.Enabled = True
        ElseIf intResponse = vbCancel Then
            Timer3.Enabled = True
        End If

What does this do???

If you debug your game now you will be greeted with a message box and be able tochoose

your level and visibly see the difference in timers ,especially on C :LOL:
once youhave verified that your levels work, go back to your code page and near the end

before "end class" create a line of space and add the code below

Code:

 Private Sub Form1_Closing(ByVal sender As Object, ByVal e As 

System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim intResponse As Integer

        intResponse = MsgBox("Would you like to visit Webisiteofchoice.com?", _
        vbYesNo + vbQuestion, _
        "Thanks For Playing! Your score is " & score)

        If intResponse = vbYes Then
            Process.Start("http://www.websiteofchoice.com")
        ElseIf intResponse = vbNo Then
            End
        End If
    End Sub

What does this do???

Finishoff with one final "rebuild solution" under the build tab and grab your game from

Gamename/Gamename/Bin/Release/gamename.exe
and have fun

I hope you enjoyed this tutorial series and if your interested in code, dive right in, it can

be great fun to learn once you get started, and while this certianly isn't the next blockbuster top seller, it may just spark that bug in some who never knew they would enjoy it

 

hehe nice TuT begal

 

Nice little tut here begal will be using it properly tomorrow

 

cool tut bro...appreciate it