If .. Then... Else

[xplode_me]

Private Sub Command1_Click()

If x = 0 Then

    x = x + 1

    Else

    x = 0

    End If

Label1.Caption = x

End Sub

OK. O objectivo é:

Carrega-se no botao que da origem ao evento Command1, e ele avalia a expressao.

Se X = 0 (estado inicial), entao passa a ser 1. Se for != 0, então o X passa a ser 0. Agora, porque é que isto nao funciona? O primeiro ciclo mete o Caption do Label 1 a "1", (tudo bem), a partir daí é como se a expressão deixasse de ser avaliada cada vez que se carrega no botao pois nao acontece nada!

[LuisFilipe]

Private Sub Command1_Click()

If x = 0 Then

  x = x + 1

    Else

  x = 0

    End If

Label1.Caption = x

End Sub

OK. O objectivo é:

Carrega-se no botao que da origem ao evento Command1, e ele avalia a expressao.

Se X = 0 (estado inicial), entao passa a ser 1. Se for != 0, então o X passa a ser 0. Agora, porque é que isto nao funciona? O primeiro ciclo mete o Caption do Label 1 a "1", (tudo bem), a partir daí é como se a expressão deixasse de ser avaliada cada vez que se carrega no botao pois nao acontece nada!

Olha lá e onde é que guardas esse x.

Definiste anteriormente como global ou lá o que é ?

Põe lá x = Label1.Caption no inicio da função e vê lá se funciona ou não.

[xplode_me]

My bad,...

Tinha-me eskecido de fazer Dim a variavel 🙂

Sorry!

[Scorpion_Blood]

ai ai essas declarações 👍