How To Make A Game On Visual Basic 2008

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Therandom As New Random If RadioButton1.Checked = True Then Label1.Visible = False Label2.Visible = False Label3.Visible = False Label1.Text = Therandom.Next(1, 5) If TextBox1.Text = Label1.Text Then Label1.Visible = True Label2.Visible = True Label3.Visible = True Label3.Text = "YOU ARE CORRECT!!" Button1.Enabled = False TextBox1.Enabled = False Else Label1.Visible = True Label2.Visible = True Label3.Visible = True Label3.Text = "YOU LOSE!!" Button1.Enabled = False TextBox1.Enabled = False End If ElseIf RadioButton2.Checked = True Then Label1.Visible = False Label2.Visible = False Label3.Visible = False Label1.Text = Therandom.Next(1, 15) If TextBox1.Text = Label1.Text Then Label1.Visible = True Label2.Visible = True Label3.Visible = True Label3.Text = "YOU ARE CORRECT!!" Button1.Enabled = False TextBox1.Enabled = False Else Label1.Visible = True Label2.Visible = True Label3.Visible = True Label3.Text = "YOU LOSE!!" Button1.Enabled = False TextBox1.Enabled = False End If ElseIf RadioButton3.Checked = True Then Label1.Visible = False Label2.Visible = False Label3.Visible = False Label1.Text = Therandom.Next(1, 50) If TextBox1.Text = Label1.Text Then Label1.Visible = True Label2.Visible = True Label3.Visible = True Label3.Text = "YOU ARE CORRECT!!" Button1.Enabled = False TextBox1.Enabled = False Else Label1.Visible = True Label2.Visible = True Label3.Visible = True Label3.Text = "YOU LOSE!!" Button1.Enabled = False TextBox1.Enabled = False End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = "0" Label1.Visible = False Label2.Visible = False Label3.Visible = False Button1.Enabled = True TextBox1.Enabled = True TextBox1.Text = "" End Sub
End Class

Category:

People & Blogs

Tags:

• How
• To
• Make
• Game
• On
• Visual
• Basic
• 2008
• EE...

[phats50mea]

:0 lots of codes!

[imback218]

thank you very much buddy

[spritefan10]

Fail, this is one of the assignment projects in the book that you buy with for the application when it was still up for sale, its called the "Random Number Project". I know cause i do this at school.

[Diggler397]

Heard song

Liked video

[kikostone98]

good game!

[TheVisal3]

oops you paste all the code without space or enter

[Barfey1019]

doesn't work

[Barfey1019]

how do you make the size?

[luuclucas]

Lol

You kinda fail bc can do this much easyer

[KingDavidANC]

Thanks for explaining ABSOLUTELY NOTHING about the programming of the application, and just telling us to copy and fucking paste it like lab monkeys.

[imagination774]

THATS A HELL LOT OF ENABLED , TRUE AND FALSE !

[bananasrgoodlikethat]

whats your xbox live name

[luuclucas]

@HabboHotelCracker

it does your just noob

[Ducky11112]

your code needs comments

[HabboHotelCracker]

dont work loser

[mastermakerhacker]

@saaf3005

You have just one problem with that code, otherwise it is all correct, try this instead

dim rnd as new random

label1.text = rnd.next(1,10)

if textbox1.text = label1.text then

label2.text = "Win"

else

Label2.text = "Lose"

[irockalotmore]

YOUR MOM IS LAME!!! (i would know)

[saaf3005]

omg

dim rnd as new radom

label1.text = rnd.next(0,11)

if textbox1.text = label1.text then

label2.text = "Lose"

else

label2.text = "Win"

thats a lot of easier!!

just do rnd.next (0,11) at easy, rnd.next (0,51) at medium and (0, 101) at hard ...

[saaf3005]

haha thats right JoshandAll

^^

[thededals]

Did not WORK

[freakingenius124]

wow that kool but you dont hear anything

[szoku007]

hahah lol very good program

[jishan22]

because you hit the hq button the audio button enables

[JoshandAll]

Then why do you use it...?

[vardushik]

label , and then set the lettertype to 30 or something like that ...

[jishan22]

YOUTUBE IS LAME

[Z3Xr0]

stole by envrionmentalred53