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

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

VB Code:

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

VB Code:

[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]

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"?

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'shttp://www33.brinkster.com/icymanipulation/WOOT.jpg http://www33.brinkster.com/icymanipulation/woot2.jpg

what kind of questions do you have to ask?

History, but i got that covered, i already have them written down, i just need to figure this puzzle out...
http://www.vbforums.com/
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?

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

is it just me, or are all of these images comming up broken... for my convienence
http://www.vbforums.com/
http://www.vbforums.com/

broken!

all broken

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

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

No:(

links are broken

just attach the file to your post

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

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