Entre para seguir isso  
Seguidores 0

Divisao Por 0 Da Erro No Vb6

6 posts neste tópico

Postado

to fazendo um calculadorinha so pra aprender a mexer com textbox mais ai voce tenta dividir 2 por 0 da essa mensagem:

Run-time error '11'

Division by zero

Ou quando voce aperta o botao de dividir quando esta 0 e 0 ele da esse mensagem:

Run-time error '6'

overflow

o codigo do botao de dividir é esse:

Private Sub cmdDividir_Click()

txtresultado.Text = Val(txt1.Text) / Val(txt2.Text)

lblalgaritimos.Caption = "/"

End Sub

voces não sabem um codigo que "ignora" esse erro??? :(

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

o problema num é cum o visual basic, é cum a matematica.

alias nem é problema, é so que não se pode dividir por 0

e como é uma coisa meio sem sentido alguém querer fazer isso, o visual basic retorna erro.

ou seja você so tem que impedir o seu programa de tenta dividir por 0.

você nunca viu como faz a calculadora do windows??? é so fazer um if:

Private Sub cmdDividir_Click()
if Val(txt2.Text) <> 0 Then
txtresultado.Text = Val(txt1.Text) / Val(txt2.Text)
lblalgaritimos.Caption = "/"
Else
- Aqui você da uma mensagem -
End Sub
[/code]

EDITADO:

a e sem quere se chato, o que você quis dizer com algaritimos?? e uma mistura de algarismo cum algoritmo??

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

EDITADO:

a e sem quere se chato, o que você quis dizer com algaritimos?? e uma mistura de algarismo cum algoritmo??

desculpa tava digitano rapido e nem vi que errei, era algarismo desculpa mesmo, to acustumado com o word que corrige as porcaria que a gente escreve.

So + uma pergunta essa parte do if

if Val(txt2.Text) <> 0 Then

pra que serve as "setinhas" (<>) nunca vi um codigo com isso antes?! não é mais facil colocar = 0

E pra que usa o else??

Nesse codigo eu vi que ele funciona como continuacao mais não seria mas facil fazer assim:

Private Sub cmdDividir_Click()

if Val(txt2.Text) <> 0 Then

- Aqui você da uma mensagem -

End if

txtresultado.Text = Val(txt1.Text) / Val(txt2.Text)

lblalgaritimos.Caption = "/"

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

<> significa diferente. ou seja, ele so vai fazer a divisao se o numero for diferente de 0, entende??

e o else é o que ele executa se não entrar no if (se as condicoes forem falsas).

o codigo que eu passei esta certo:

Private Sub cmdDividir_Click()
if Val(txt2.Text) <> 0 Then
txtresultado.Text = Val(txt1.Text) / Val(txt2.Text)
lblalgaritimos.Caption = "/"
Else
- Aqui você da uma mensagem -
End If
End Sub[/code] alias, tinha faltado o end if, corrigi agora, foi mal porque se o divisor for diferente (<>) de 0, ele faz a conta. senao (else) ele da uma mensagem. o codigo que você passou
[code]Private Sub cmdDividir_Click()
if Val(txt2.Text) <> 0 Then
- Aqui você da uma mensagem -
End if
txtresultado.Text = Val(txt1.Text) / Val(txt2.Text)
lblalgaritimos.Caption = "/"

End Sub

ficou ao contrario. ele vai dar a mensagem quando o cara não digitar 0. e vai calcular msmo que ele digite 0. veja se entendeu, qualquer coisa pergunta aí

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

entendi. isso que e logica da programacao ou não

e pra mim que to praticamnete comecando a programar é importante saber logica da programacao mesmo sem saber quase nada ou so é bom estudar logica da programacao com um nivel quase intermediario

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

O ideal é aprender a Lógica de Programação antes de começar realmente a programar (ou ao mesmo tempo, ou seja, colocando os exercícios de lógica em prática com uma determinada linguagem). Dê uma olhada nos tutoriais da nossa sala de Lógica de Programação: http://scriptbrasil.com.br/forum/index.php?showforum=64

Abraços,

Graymalkin

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0