BLOQUEAR NUMEROS NEGATIVOS

JUNHO 04/08/2012 22:24:09
#407212
Olá Alguém pode me ajudar com esta dúvida.

Estou criando um placar e predefini os pontos conforme a imagem. Porem estou com um problema.

Ex:
Predefini que cada vez que clico sobe 2 pontos, e criei outro botão para tirar de 2 em 2 tambem.
Mas quando chegar no Zero quero que trave mais ele continua decrecendo ai os pontos ficam negativo.

Gostaria que quando chega-se no 0 ele parar.

segue o codigo dos botão +2 e -2

+2

Private Sub Command16_Click()
Dim vCon As Integer
If Text10 = Empty Then
Text10 = 0
Else
vCon = Text10 + 2
Text10 = vCon
End If
End Sub

-2
Private Sub Command15_Click()
Dim vCon As Integer
If Text10 = Empty Then
Text10 = 0
Else
vCon = Text10 - 2
Text10 = vCon
End If
End Sub


Alguem pode me ajudar com alguma dica ?
MARCELO.TREZE 04/08/2012 22:38:43
#407213 Resposta escolhida
assim

If Cint(Text10.Text) = 0 then
Exit sub
End If
JUNHO 04/08/2012 23:12:30
#407214
Valew mesmo pela ajuda MARCELO-TREZE

Deu certo .

Rapido e objetivo

Por causa de pessoas que nem vc esse forum se torna cada vez melhor

Abraço

E para ficar anotado segue como ficou o codigo

segue o codigo dos botão +2 e -2

+2

Private Sub Command16_Click()
Dim vCon As Integer
If Text10 = Empty Then
Text10 = 0
Else
vCon = Text10 + 2
Text10 = vCon
End If
End Sub

-2
Private Sub Command15_Click()
Dim vCon As Integer
If Cint(Text10.Text) = 0 then
Text10 = 0
Else
vCon = Text10 - 2
Text10 = vCon
End If
End Sub

Alterado apenas do -2
Tópico encerrado , respostas não são mais permitidas
Voltar