Jump to content
Sign in to follow this  
xplode_me

If .. Then... Else

Recommended Posts

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!

Share this post


Link to post
Share on other sites
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.


Quando tudo o mais falhar, leia o manual de instruções.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.