Visual Basic - Calculadora, dividir por 0

Life is soft - evento anual de software empresarial
   
Vista:

Calculadora, dividir por 0

Publicado por Sebastian (2 intervenciones) el 03/04/2010 06:19:32
Saludos
Estoy programando una calculadora y quiero que cuando ingrese un numero cualquiera en una caja de texto, y en la otra caja de texto un "0", al realizar la division, en el cuadro de resultado (caja 3) me salga ERROR. Aqui tengo el codigo casi avanzado, solo falta el mensaje de error

Private Sub cmdOperador_Click(Index As Integer)

' Declara las varialbles enteras y reales necesarias
Dim intElem1, intElem2 As Integer
Dim sngResult As Single

' Traspasa los valores de las textbox a las variables
intElem1 = Val(txtElemento1.Text)
intElem2 = Val(txtElemento2.Text)

If Index = 0 Then
sngResult = intElem1 + intElem2 ' Suma
lblOperador.Caption = "+"
Else
If Index = 1 Then
sngResult = intElem1 - intElem2 ' Resta
lblOperador.Caption = "-"
Else
If Index = 2 Then
sngResult = intElem1 * intElem2 ' Multiplicacion
lblOperador.Caption = "x"
Else
If intElem2 > 0 Then
sngResult = intElem1 / intElem2
lblOperador.Caption = "/"
Else
If intElem2 = 0 Then
[CREO QUE POR AKA ESTA LO QUE ME FALTA]
lblOperador.Caption = "?"
End If
End If
End If
End If
End If

' Traspasa el resultado obenido a la textbox correspondiente
txtResultado.Text = Str(sngResult)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Calculadora, dividir por 0

Publicado por Pedro Luis (128 intervenciones) el 06/04/2010 12:38:29
Hay muchos If para mi gusto, yo usaria Select Case.
Lo que te falta si es que lo de arriba funciona es
Msgbox("No puedo dividir por cero")
sngResult=0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar