• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

xplode_me

If .. Then... Else

4 mensagens neste tópico

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Convidado
Este tópico está fechado a novas respostas.