Paper,Rock,Scissors

[scimmyboy]

xgelite, ur code doesnt work. :S

[XGelite]

xgelite, ur code doesnt work. :S

works for me.

Is your timer set to True in the properties menu?
if not, it wont work.

just change the code to this :

Public Class Form1

    Public scoreCounter As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        scoreCounter += 1

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = scoreCounter
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Enabled = True
    End Sub
End Class

and it should work just fine

[scimmyboy]

scoreCounter is not declared tho

[XGelite]

scoreCounter is not declared tho

it should be declared. If you copied the code correctly.

look at the code. It is declared.

[scimmyboy]

NVM. i found out why. im so dumb

[Taylor Swift]

[IMG]https://i104.photobucke*****m/albums/m187/ChandlerLover/Untitled.png[/IMG]
I keep getting this shit no matter how manny times I change the names... also the frikin thing wont even work now x____x I cant play or nuthin it just gives me that shit..

[XGelite]

[IMG]https://i104.photobucke*****m/albums/m187/ChandlerLover/Untitled.png[/IMG]
I keep getting this shit no matter how manny times I change the names... also the frikin thing wont even work now x____x I cant play or nuthin it just gives me that shit..

all those errors are self explanatory. Obviously your syntax is not correct.
post your full code and i can probably fix it.

[Taylor Swift]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Public Class Form1

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Randomize()

Dim number As Integer

Const ROCK As Integer = 1
Const PAPER As Integer = 2
Const SCISSORS As Integer = 3

number = (3 * Rnd())

If RadioButton1.Checked And number = ROCK Then
Label1.Text = "Computer Threw Rock.Draw."
ElseIf RadioButton1.Checked And number = PAPER Then
Label1.Text = "Computer threw Paper. You Lose."
ElseIf RadioButton1.Checked And number = SCISSORS Then
Label1.Text = "Computer threw Scissors.You Win!!"


ElseIf RadioButton2.Checked And number = ROCK Then
Label1.Text = "Computer Threw Rock.You Win!!."
ElseIf RadioButton2.Checked And number = PAPER Then
Label1.Text = "Computer threw Paper.Draw."
ElseIf RadioButton2.Checked And number = SCISSORS Then
Label1.Text = "Computer threw Scissors.You Lose!"



ElseIf RadioButton3.Checked And number = ROCK Then
Label1.Text = "Computer Threw Rock.You Lose."
ElseIf RadioButton3.Checked And number = PAPER Then
Label1.Text = "Computer threw Paper.You Win!."
ElseIf RadioButton3.Checked And number = SCISSORS Then
Label1.Text = "Computer threw Scissors.Draw!"


End If

End Sub

[Taylor Swift]

new error Im getting the picture now Idk how to fix this either...



[IMG]https://i104.photobucke*****m/albums/m187/ChandlerLover/Untitled2.png[/IMG]

[XGelite]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Public Class Form1

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Randomize()

Dim number As Integer

Const ROCK As Integer = 1
Const PAPER As Integer = 2
Const SCISSORS As Integer = 3

number = (3 * Rnd())

If RadioButton1.Checked And number = ROCK Then
Label1.Text = "Computer Threw Rock.Draw."
ElseIf RadioButton1.Checked And number = PAPER Then
Label1.Text = "Computer threw Paper. You Lose."
ElseIf RadioButton1.Checked And number = SCISSORS Then
Label1.Text = "Computer threw Scissors.You Win!!"


ElseIf RadioButton2.Checked And number = ROCK Then
Label1.Text = "Computer Threw Rock.You Win!!."
ElseIf RadioButton2.Checked And number = PAPER Then
Label1.Text = "Computer threw Paper.Draw."
ElseIf RadioButton2.Checked And number = SCISSORS Then
Label1.Text = "Computer threw Scissors.You Lose!"



ElseIf RadioButton3.Checked And number = ROCK Then
Label1.Text = "Computer Threw Rock.You Lose."
ElseIf RadioButton3.Checked And number = PAPER Then
Label1.Text = "Computer threw Paper.You Win!."
ElseIf RadioButton3.Checked And number = SCISSORS Then
Label1.Text = "Computer threw Scissors.Draw!"


End If

End Sub

errors should now be gone. i dont get any.

Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Randomize()

        Dim number As Integer

        Const ROCK As Integer = 1
        Const PAPER As Integer = 2
        Const SCISSORS As Integer = 3

        number = (3 * Rnd())

        If RadioButton1.Checked And number = ROCK Then
            Label1.Text = "Computer Threw Rock.Draw."
        ElseIf RadioButton1.Checked And number = PAPER Then
            Label1.Text = "Computer threw Paper. You Lose."
        ElseIf RadioButton1.Checked And number = SCISSORS Then
            Label1.Text = "Computer threw Scissors.You Win!!"


        ElseIf RadioButton2.Checked And number = ROCK Then
            Label1.Text = "Computer Threw Rock.You Win!!."
        ElseIf RadioButton2.Checked And number = PAPER Then
            Label1.Text = "Computer threw Paper.Draw."
        ElseIf RadioButton2.Checked And number = SCISSORS Then
            Label1.Text = "Computer threw Scissors.You Lose!"



        ElseIf RadioButton3.Checked And number = ROCK Then
            Label1.Text = "Computer Threw Rock.You Lose."
        ElseIf RadioButton3.Checked And number = PAPER Then
            Label1.Text = "Computer threw Paper.You Win!."
        ElseIf RadioButton3.Checked And number = SCISSORS Then
            Label1.Text = "Computer threw Scissors.Draw!"


        End If

    End Sub
   
End Class

Your class was messed up. you were declaring stuff before you even had declared the class, and you didn't end the class.

[NextGen1]

Chand, watch those double posts please

[Taylor Swift]

sorry x____x I get a little un cautious when im pissed...

[XGelite]

new error Im getting the picture now Idk how to fix this either...



[IMG]https://i104.photobucke*****m/albums/m187/ChandlerLover/Untitled2.png[/IMG]

You need to start thinking about what these errors mean. They are all self explanatory. Rebuild the project. :P

Also change the output path to Release. Build the code.
GoTo the debug folder and move everything out to a folder called Debug_Backup. (you have to make this folder)
Go back to the debug folder and delete its content.
Change the output path back to Debug
Now build and run, it should work now. Thats what ive done, and its worked for me.

[Taylor Swift]

I did X_____X lol thanks Idk wtf I did wrong... everything works now idk wtf is happening lol I am just imagining what is gonna happen when its me, a computer, A job to do, and the bills rely on this one job and I fk it up lol thats gonna suck cause ill have no-one to turn to x____x
Btw I actually tried fixing it but I even went into the folders and the AppData wasnt even there so I just restarted lol

[XGelite]

I did X_____X lol thanks Idk wtf I did wrong... everything works now idk wtf is happening lol I am just imagining what is gonna happen when its me, a computer, A job to do, and the bills rely on this one job and I fk it up lol thats gonna suck cause ill have no-one to turn to x____x
Btw I actually tried fixing it but I even went into the folders and the AppData wasnt even there so I just restarted lol

Ok i see, im glad its working now.