Compile Error?

[thurst0n]

For the life of me I cannot figure out this error...

Else without If


I'm writing a simple Tic Tac Toe Program where users take turn putting their x's or o's on the board...I'm still in the stage of deciding which letter gets placed. here is my code...I have the same thing for all Commands, except that they change a differant commands caption it corrosponds...command 1 is the upper left box 2 is upper middle and so on right to left all the way down...

Public Sub Form_Load()
Dim whoturn As Boolean
whoturn = False
End Sub
 
Public Sub Command1_Click()
If whoturn = False Then whoturn = True
Else: whoturn = False
If whoturn = True Then Command1.Caption = "X"
Else
Command1.Caption = "O"
End Sub

Again i get the above error, and Idk what i'm doing wrong...any suggestions??

[Kasracer]

Else: and Else..... remove the semicolon

and how are you comparing whoturn anyway? That variable is local to the forum load sub only, you can't compare it in another form if you use dim

[IGBP]

The : indicates Go to a label . The proper way to write an if ... then...ElseIf... Else statement is ....

If <Condition> = <evaluator> Then
Do Something
Else if <Condition> = <Evaluator> then
Do something different
Else
Do this
End If

[thurst0n]

blah no tha'ts not the problem

i have here is my code...

and i get the same error

Public whoturn as boolean
 
Public Sub Form_Load()
Dim whoturn As Boolean
whoturn = False
End Sub
 
Public Sub Command1_Click()
If whoturn = False Then whoturn = True
Else
whoturn = False
If whoturn = True Then Command1.Caption = "X"
Else
Command1.Caption = "O"
End Sub

[thurst0n]

IGBP so i need

If Then
Else If
Else
End If

I need all of that?

[getnandu]

Use this

Public whoturn as boolean
 
Public Sub Form_Load()
Dim whoturn As Boolean
whoturn = False
End Sub
 
Public Sub Command1_Click()
If whoturn = False Then 
whoturn = True
Else
whoturn = False
If whoturn = True Then 
Command1.Caption = "X"
Else
Command1.Caption = "O"
End Sub

You cannot have Else , if you are using the If statement in one line....

Nandu

[Kasracer]

Originally posted by thurst0n
IGBP so i need

If Then
Else If
Else
End If

I need all of that?

Yes you have to END the if statement.(or is that only .NET?)

Also, you have a public variable and a local variable, both with the samename. That is a no no, use 1 or the other

[thurst0n]

public local? what do you mean can u tell me what to do then explain why i have to do it...i'm really confused i've been working on this what YOU would considere simple thing for like 1.5 hours

[getnandu]

Look at my post above and let me know if that helps.........

Nandu

[Kasracer]

Originally posted by thurst0n
public local? what do you mean can u tell me what to do then explain why i have to do it...i'm really confused i've been working on this what YOU would considere simple thing for like 1.5 hours

Buy a book, scope is a very easy concept

[thurst0n]

get-Nope it doesnt work, it does the same thing That mine did (btw that's what i had originally i was playign with it and copied it wrong)

[thurst0n]

Ok, I've tried everything, it simply doesnt work i keep getting the same error Else witout If, Would someone please write the code (it's short) and post it and tell me why it happens

[Kasracer]

Originally posted by thurst0n
Ok, I've tried everything, it simply doesnt work i keep getting the same error Else witout If, Would someone please write the code (it's short) and post it and tell me why it happens

Post the code you're using

This works in .NET:

Public whoturn As Boolean
 
    Public Sub Form_Load()
        whoturn = False
    End Sub
 
    Public Sub Command1_Click()
        If whoturn = False Then
            whoturn = True
        Else
            whoturn = False
        End If
        If whoturn = True Then
            Command1.Caption = "X"
        Else
            Command1.Caption = "O"
        End If
    End Sub

I don't have VB 6 in front of me, but I doubt it's much different.

[thurst0n]

I did post the error...I post exactly what i had, and exactly what it said...

[thurst0n]

What you have works, but it's not toggling it, it doesnt switch to O's when i press a differant button...

[Kasracer]

Originally posted by thurst0n
What you have works, but it's not toggling it, it doesnt switch to O's when i press a differant button...

Form.Update()

[thurst0n]

What? Where?

[thurst0n]

= expected

[Shawn N]

Try this:

Public whoturn As Boolean
 
Option Explicit
 
    Public Sub Form_Load()
        whoturn = False
    End Sub
    
 
Public Sub Command1_Click()
    
    whoturn = Not whoturn
    Command1.Caption = IIf(whoturn, "X", "O")
    
End Sub

[thurst0n]

The option explicit fixes it, I can keep my other code..What does Option Explicit mean/do?

[si_the_geek]

"Option Explicit" means that all variables must be declared.

If you type a variable name wrong it won't let the code run (without it the code would run, but might give the wrong results).

[MartinLiss]

Here's something I wrote if you want it.

[randem]

thurst0n

Boy, that's the beginning of spagetti code if ever I saw any. Who's got the sauce!

Try

whoturn = Not whoturn  ' Flip the switch - true to false / false to true
 
If whoturn then 
   Command1.Caption = "X"
Else
   Command1.Caption = "O"
End if

[BuggyProgrammer]

if you didn't know

if...then's can either be block or inline, as in

if blah = 1 then msgbox "hello"

or

if blah = 1 then
msgbox "hello"
end if

note that the first one does not require an end if, but it only works on one line (the things after 'then')
the second one can be used on multiple lines until the end if.

more stuff

if blah = 1 then msgbox "hello" else msgbox "bye"

and

if blah = 1 then
msgbox "hello"
else
msgbox "bye"
end if