Problema al guardar el resultado de una operacion. Error 6 en tiempo de ejecucion.

[bubu54]

Hola, estoy realizando una simple operacion matematica, por ejemplo:

999*99=98901

Que en teoria cabe en un simple long.

Pues me da el Error 6 en tiempo de ejecucion. Desbordamiento.

Cuando si asigno directamente 98901 a mi variable me permite perfectamente.

Gracias.

[[EX3]]

El desbordamiento se produce por la operacion en si, que los calculos con esos valores quizas produzcan valores demasiado grandes para almacenar en un Long, y no por el resultado que devuelve la operacion. Fijate que separando uno de los valores en una variable a parte y usandola en la misma operacion funciona sin problemas:

Código:

Option Explicit

Private Sub Form_Load()
Dim a As Long, b As Long

b = 999
a = b * 99

End Sub

Aun asi es un error muy curioso en el muchas veces ni nos damos cuenta por no ser logico a vista de codigo

Salu2...

[bubu54]

Tienes razon, he probado lo de las variables y funciona sin problemas. Curioso.

Muchas gracias.

[Jad-Neo]

Oigan!!!!,yo lo hago de forma diferente

Código:

Dim i As Long
i = 999 * CLng(99)

Esto siempre me ha pasado a mi tmabièn cuando quiero hacer operaciones con números muy grandes. Veran, lo que pasa es que VB6 no permite hacer operaciones de forma directa que den como resultado un tipo Long (32 bits), por lo que he comprobado sólo soporta operaciones directas hasta con numero de 16 bits (Integers).

Si pasa lo del caso anterior sólo es cosa de usar las funciones de conversión. Espero haya podido ayudar en el porque.

[soul_bless]

Hola todos, Tengo un problema parecido pero distinto...
cuando compilo la aplicacion en ".exe"
y al incluir datos la mayoria char... dice "error '6' en tiempo de ejecucion" etc
pero cuando hago los mismos ejemplos, compilando la aplicacion en el mismo VB si ejecuta el programa sin problemas...
debido a esto no encuentro cual sea el posible error....
les agradezco su pronta ayuda
Gracias

[sawamurakenji]

jola yo tambien tengo ese problema me dice lo mismo yo estoy haciendo un programa de conversion de sistemas numericos y no se por que tengo vector bueno mejor les doy el codigo que he hecho este es de binario a binario jeje estupido no pero la gente puede probara hacer eso y tengo que tener todo listo



Private Sub Aceptar_Click()
If Option1 And Option5 Then
Dim bin As Integer
Dim residuo As Integer
Dim cosciente As Integer
Dim v()
Dim J As Integer
J = 0
Dim i As Integer
i = 0
bin = Val(Text1.Text)
While J = 15
ReDim Preserve v(J + 1)
cosciente = bin / 1E+29
residuo = bin Mod 1E+29
v(J) = cosciente
bin = residuo
J = J + 1
Wend
End If
For i = 0 To v(J) Step 1
If v(J) > 1 Then
Label13 = Text1
Else
Form3.Show
End If
Next i
End Sub


el error me lo tira en bin= val (text1.text)
por favor necesito ayuda