Breadcrumbs

[ChaosOverLord]

ChaosOverLord's Tutorials Present....
The Achievement System In VB.Net

First you must open up your Visual Basic 2008 Or Visual Studio 2010.
Then on your form add...

• 3 Labels
  3 Buttons
  2 Pictureboxes

Next change the 1st picturebox to a gray screen with 50 in the middle of it.
The second one with a orange screen and 50 in the middle.

Button 1 should be named Give Me Coins!
Button 2 should be named Show Me Coins!
Button 3 should be named Check Achievements

Label 1 = Achievements
Label 2 = Get 50 Coins(N)
Label 3 = Coins:

Lets get to the coding shall we?

Double click your form....

Form load code:
coins = 0
Label3.Text = coins
Label3.Text = "Coins: " & coins
Picturebox2.Hide()
PictureBox1.Show()

Wait first you need to declare the coins variable.

So use this code to declare it.

Dim coins As Integer

Button 1 code
coins += 10

Button 2 code
Label3.Text = "Coins: " & coins

Button 3 code
If coins = 50 Then
PictureBox1.Hide()
PictureBox2.Show()
MsgBox("You got the 50 Coins Achievement!")
Label2.Text = "Get 50 Coins(Y)"
Else
MsgBox("No new achievements!")
End If

Download the source code below!It only costs 1 credit which will go to my new color for my name!

[hungryhounduk]

You wont earn any Credits if you charge 1 Credit = up the credit Charge

Chris

[ChaosOverLord]

You wont earn any Credits if you charge 1 Credit = up the credit Charge

Chris

Thanks i really should do that....How did you like my tutorial?