Help! Project Due Tuesday!!!! Need Help Asap

[Injection]

gosh damn, its giving me weird errors ... :| i neeeeed this to get done QUICK.. does anybody know why its giving me the error? and why there is a sqigly line under the O in

ElseIf Len(Button4.Text & Button5.Text & Button6.Text) > O And _

[b]Dim Token As Char
    Dim Player As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        RestartGame()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Text = Token
        Button1.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Text = Token
        Button2.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button3.Click
        Button3.Text = Token
        Button3.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button4.Click
        Button4.Text = Token
        Button4.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button5.Click
        Button5.Text = Token
        Button5.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button6.Click
        Button6.Text = Token
        Button6.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button7.Click
        Button7.Text = Token
        Button7.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button9.Click
        Button9.Text = Token
        Button9.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button10.Click
        'this is called when the Restart button is pressed
        RestartGame()
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button11.Click
        'this is called when the quit button is pressed
        End
    End Sub
 
    Private Sub NextPlayer()
        If Player = 1 Then
            Token = "X"
            Player = 2
        ElseIf Player = 2 Then
            Token = "O"
            Player = 1
        End If
        Label2.Text = "Player " & Player & " : '" & Token & "'"
    End Sub
 
    Private Sub DisplayWinner()
        'display winner message
        Label2.Text = "Player '" & Token & "' is the winner! They are the Duke of History!!"
 
        'disable all buttons
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button6.Enabled = False
        Button7.Enabled = False
        Button9.Enabled = False
    End Sub
 
    Private Sub CheckWinner()
        'check rows
        If Len(Button1.Text & Button2.Text & Button3.Text) > O And _
            Button1.Text = Button2.Text And Button2.Text = Button3.Text Then
            Button1.BackColor = Color.Blue
            Button2.BackColor = Color.Blue
            Button3.BackColor = Color.Blue
            DisplayWinner()
        
            Button4.Text = Button5.Text And Button5.Text = Button6.Text Then
            Button4.BackColor = Color.Blue
            Button5.BackColor = Color.Blue
            Button6.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button7.Text & Button8.Text & Button9.Text) > O And _
            Button7.Text = Button8.Text And Button8.Text = Button9.Text Then
            Button7.BackColor = Color.Blue
            Button8.BackColor = Color.Blue
            Button9.BackColor = Color.Blue
            DisplayWinner()
 
            'check colums
        ElseIf Len(Button1.Text & Button4.Text & Button7.Text) > O And _
            Button1.Text = Button4.Text And Button4.Text = Button7.Text Then
            Button1.BackColor = Color.Blue
            Button4.BackColor = Color.Blue
            Button7.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button2.Text & Button5.Text & Button8.Text) > O And _
            Button2.Text = Button5.Text And Button5.Text = Button8.Text Then
            Button2.BackColor = Color.Blue
            Button5.BackColor = Color.Blue
            Button8.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button3.Text & Button6.Text & Button9.Text) > O And _
            Button2.Text = Button6.Text And Button6.Text = Button9.Text Then
            Button3.BackColor = Color.Blue
            Button6.BackColor = Color.Blue
            Button9.BackColor = Color.Blue
            DisplayWinner()
 
            'check diagnols
        ElseIf Len(Button1.Text & Button5.Text & Button9.Text) > O And _
            Button1.Text = Button5.Text & Button5.Text = Button9.Text Then
            Button1.BackColor = Color.Blue
            Button2.BackColor = Color.Blue
            Button3.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button3.Text & Button5.Text & Button7.Text) > O And _
            Button3.Text = Button5.Text & Button5.Text = Button7.Text Then
            Button3.BackColor = Color.Blue
            Button5.BackColor = Color.Blue
            Button7.BackColor = Color.Blue
            DisplayWinner()
        Else
            NextPlayer()
        End If
    End Sub
 
    Private Sub RestartGame()
        're-enable the buttons
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button7.Enabled = True
        Button9.Enabled = True
 
        'clear the button labels
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button6.Text = ""
        Button7.Text = ""
        Button9.Text = ""
 
        'set the button backround colors
        Button1.BackColor = Color.Beige
        Button2.BackColor = Color.Beige
        Button3.BackColor = Color.Beige
        Button4.BackColor = Color.Beige
        Button5.BackColor = Color.Beige
        Button6.BackColor = Color.Beige
        Button7.BackColor = Color.Beige
        Button8.BackColor = Color.Beige
        Button8.BackColor = Color.Beige
 
        'set up the new game
        Player = 2
        Token = "O"
        NextPlayer()
    End Sub
End Class[/b]

[Hole-In-One]

Where is this sub DiplayWinner() in your code?

And the Len function returns the length of the string in type integer.

O is not an integer 'oooh

0 is an integer 'zero

What exactly are you checking the text of the buttons for, their text either an "X" or an "O"?

[Injection]

im making a history tick tack toe game, so far i have the tick tack toe game, but i have to add questions which i dont know how, yes yes i realized my mistake right after re-reading my code and i dont get that error anymore, i the one with the 0 instead of a O, but im kinda copying out of a book so i dont get it, unless i kinda copied wrong o well here are ss's

[Hole-In-One]

what kind of questions do you have to ask?

[Injection]

History, but i got that covered, i already have them written down, i just need to figure this puzzle out...

theres the second ss it was a broken image before, see how the O's are underlined? i dont get it, am i supposed to make it a 0? or should i change it to Char?

[Hole-In-One]

What is "ss" and I'm still noy sure what your trying to get with the whole >O thing?

If the x's and o's are the text on the buttons just compare text values like:

If button1.text="X" then

bla

else if button1.text="O" then

bla

End if

[Injection]

is it just me, or are all of these images comming up broken... for my convienence

[Hole-In-One]

broken!

all broken

[Injection]

do you have AIM/AOL? So we can talk p2p?

[Injection]

http://www33.brinkster.com/icymanipulation/woot2.jpg
and
http://www33.brinkster.com/icymanipulation/WOOT.jpg

[Hole-In-One]

No

[Hole-In-One]

links are broken

just attach the file to your post

[Injection]

ok i got the script working, but i need to add questions to the game, how would i put the MsgBox feature in there with a question,and if the player gets it righ her/his mark will go on the button and if they get it wrong the other persons mark will go on the button??? like...



Private Sub Button5_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button5.Click

Button5.Text = Token
Button5.Enabled = False
CheckWinner()
End Sub

how would i get a message box in there to have the Enabled=False or true? would i do

Private Sub Button5_Click(ByVal sender as System.Object ByVal e As System.EventArgs) Handles button5.Click
MsgBox("What is a stock")
If return = ok then
Button1.Text = Token(X) or would it be Button1.Text = Token "X"

thanks guys i suppose i'll figure SOME of this out

[Hole-In-One]

Use an Input Box and just have the user type in the answer

And I'm not sure how you are determining which player is what letter?

Just Use Button1.Text ="X" or Button1.Text ="O" depending on which players turn it is