Aqui tengo un programa de visual basic perono funciona

[wilberjulio]

Tengo este programa de visual basic pero no me funciona el progrma es una aplicaion que solicita ingresar dos numeros enteros  y oermita realizar las operaciones matematicas basicas con dichos numeros:

'Declaracion de variables'
Dim n1 As Double, n2 As Double
Dim suma As Long, resta As Long, multi As Long, diviE As Long
Dim resta As Integer
Dim div As Double, potencia As Double

Private Sub cmdOperacion_C lick()
n1 = Val(txtNumero1.Tex t)
n2 = Val(txtNumero2.Tex t)
'Proceso'
On Error Resume Next ' Activar la deteccion de errores'
suma = n1 + n2: resta = n1 - n2
multi = n1 * n2: div = n1 / n2
diviE = n1 \ n2: resto = n1 Mod n2
potencia = n1 ^ n2
txtSalida.Text = _
"Suma   :" + Str(suma) + vbCrLf & _
"Resta  :" + Str(resta) + vbCrLf & _
"Multiplicación :" + Str(multi) + vbCrLf & _
"Division   :" + Str(div) + vbCrLf & _
"Division Entera:" + Str(diviE) + vbCrLf & _
"Resto  :" + Str(resto) + vbCrLf & _
"Potencia :" + Str(potencia)
If Err Then
MsgBox "Se produce el Error " & Err & " " & Err.Descriptio n, & _
vbCritical, "Error"
End If
On Error Go to 0 'Desactivar la deteccion de errores'
End Sub


Ha ver que dicen el error sale a partir de la linea donde dice:
 MsgBox "Se produce el Error" & Err & " " & Err.Descriptio n, & _

De esta linea se porducen  errores no se por que si alguien entiende seriea bueno

[El javi]

¿Que tal wilberjulio? Bueno el problema que tienes es que has declarado dos variables de diferentes tipo con el mismo nombre:

Dim suma As Long, resta As Long, multi As Long, diviE As Long
Dim resta As Integer

Me imagino que querías declarar esto:

Código:

Dim suma As Long, resta As Long, multi As Long, diviE As Long
Dim resto As Integer

También:

MsgBox "Se produce el Error " & Err & " " & Err.Descriptio n, & _
vbCritical, "Error"

Cuando utilizas "_" no tienes que poner el símbolo "&"; sería así:

Código:

MsgBox "Se produce el Error " & Err & " " & Err.Description, _
vbCritical, "Error"

Según esto:

txtSalida.Text = _
"Suma   :" + Str(suma) + vbCrLf & _
"Resta  :" + Str(resta) + vbCrLf & _
"Multiplicación :" + Str(multi) + vbCrLf & _
"Division   :" + Str(div) + vbCrLf & _
"Division Entera:" + Str(diviE) + vbCrLf & _
"Resto  :" + Str(resto) + vbCrLf & _
"Potencia :" + Str(potencia)

me das a entender que txtSalida tiene la propiedad MultiLinea a True, ¿no?

Dicho esto el programa te tiene que funcionar, pero aún así la sentencia "On Error Resume Next" no activa la detencción de errores, si no que pasa del error y continúa en la línea siguiente a la que provocó el error.

Salu2

[wilberjulio]

Gracias javi , disculpa por la demora es que ando en otras cosas, ahora el problema funciona.
Saludos