Autor Tema: Encuentra el error (Leído 5694 veces)

Begeo · « **en:** Jueves 21 de Agosto de 2008, 16:50 »

Saludos.

Verán, me di cuenta de que de los errores se aprenden. Así, solemos encontrar nuestros errores a tiempo, mientras que otros más o menos graves son dejados de la mano de dios.

La idea de este tópic es, para los que no les importe postear un poco de su código, mostrar pequeños trozos de código mostrando errores que hemos encontrado, para que no sólo nosotros aprendamos, sino también los demás.

Empiezo yo con este trozo:

Código: Text

Dim CartaElegida As Integer
Dim VolverAEmpezar As Boolean
VolverAEmpezar = True
Do While VolverAEmpezar = True
    CartaElegida = CStr(Rand(1, 5))
 

Encuentren los errores ;3

m0skit0

Sin ejecutarlo, te digo que

1) Te falta el LOOP al final del bucle

Código: Text

 
Do While VolverAEmpezar = True
     CartaElegida = CStr(Rand(1, 5))
LOOP

2) El bucle es infinito puesto que en su interior no se cambia la condición de salida.

3) CartaElegida es un entero y le asignas un valor String en

Código: Text

CartaElegida = CStr(Rand(1, 5))
 

Begeo

Cita de: "m0skit0"

Sin ejecutarlo, te digo que

1) Te falta el LOOP al final del bucle

Código: Text

Do While VolverAEmpezar = True
CartaElegida = CStr(Rand(1, 5))
LOOP

2) El bucle es infinito puesto que en su interior no se cambia la condición de salida.

3) CartaElegida es un entero y le asignas un valor String en

Código: Text
CartaElegida = CStr(Rand(1, 5))

Sobre lo del loop, no lo puse entero, ya que si lo ponia entero tenía también que poner el resto de la función, y eso no es "un pedazito," es un "cacho trozo".

Lo que quería era que vieran el error de CStr().

Te invito a que pongas tu una pieza de código erróneo. ^^

m0skit0

Ah, bueno, entonces acerté de todas formas

Venga, uno un pelín más difícil:

modFunciones.bas:

Código: Text

 
Private Function Factorial(X as Integer) As Integer
      Factorial = Factorial(X-1)
End Function

modPrincipal.bas

Código: Text

 
Private Sub Principal()
     Dim N As Variant
 
     N = Factorial(5)
     Debug.Print N
End Sub

Bueno, hay 3 errores. 2 de lógica y uno de metodología. A ver quién da.

Begeo

Creo que veo dos errores:

El primero es que no veo que se le introduzca ningún valor a X nunca - igual me equivoco.

El segundo es que Factorial, al ser una función privada, no podría llamarse fuera de modFunciones.bas, así que al llamarlo desde modPrincipal.bas no se debería de poder usar.

Creo que veo otro más, ¿Que para llamar una función externa no hay que usar "modulo.funcion(datosaqui)"?

m0skit0

Cita de: "Begeo"

no veo que se le introduzca ningún valor a X nunca

Sí se introduce valor a X (supongo que te refieres a Factorial(X)).

Código: Text

 
N = Factorial(5)

Cita de: "Begeo"

Factorial, al ser una función privada, no podría llamarse fuera de modFunciones.bas

Sí señor.

Cita de: "Begeo"

hay que usar "modulo.funcion(datosaqui)"

Generalmente no hace falta.

Con lo que quedan 2 errores.

Begeo

¿Que factorial se llame a sí mismo no sería otro error?

Mollense

Cita de: "Begeo"

¿Que factorial se llame a sí mismo no sería otro error?

No, a eso se le llama Recursividad

m0skit0

Como apunta Mollense, es recursividad. De hecho hay funciones que de forma recursiva se consiguen mejores resultados, como algoritmos de árboles y demás estructuras de datos. Está interesante, échale un vistazo al tema. Te hace ver las cosas de otra manera

Y para aquellos que estén interesados en otras metodologías de programación, me permito indicarles que echen un vistazo a la programación funcional. Yo adoro LISP (aúpa emacs!).

Jimbenit

Echale un vistazo a este codigo:

Modulo1. bas

Código: Text

Public Acum As Integer
 
Function Factorial(X As Integer) As Integer
 
'El factorial de cero es 1
'Esta es la CONDICION de SALIDA
If X - 1 = 0 Then Exit Function
 
If Acum = 0 Then Acum = 1
Acum = X * Acum
 
Factorial = Factorial(X - 1)
Factorial = Acum
 
End Function

y en el form_load
coloca esto

Código: Text

Private Sub Form_Load()
Dim N As Integer
 
N = Factorial(6)
Print N
 
End Sub

Y lo correspondiente a tu problema:

1) Como anoto Begeo, Private en un modulo
2) Esta funcion se va al infinito, no hay una condicion de salida para la recursividad (Error de desbordamiento, la funcion se va al infinito negativo)
3) Esta funcion es el procedimiento Factorial de matematicas, pues no hace nada , no multiplica nada (error de metodologia)

Nota:
Hagamos problemas simples ( de esos cotidianos, no los rebuscados!!) , acaso esta seccion del foro no se llama: Visual Basic para principiantes

m0skit0

Efectivamente, faltaba la condición de salida, pero si hay una solución simple, ¿para qué queremos una complicada?

Código: Visual Basic

 
Function Factorial(X As Integer) As Integer 
    'El factorial de cero es 1
    'Esta es la CONDICION de SALIDA
    If X = 1 Then 
        Factorial = 1
    Else
        Factorial = X * Factorial(X - 1)
    End If
End Function
 
 

Jimbenit

Bueno, siguiendo con los errores, te tengo uno

imagina que se quiere hacer una funcion que arroje la secuencia de la siguiente sumatoria

1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/6 + 1/7 + ... ... + 1/n

se tiene el siguiente codigo:

Código: Text

Function Secuencia(Nro_Iterac As Integer) As Double
 
If Nro_Iterac = 1 Then
    Secuencia = 1
Else
    Secuencia =
End If
 
End Function

Puedes decirme cual es la parte del codigo que hace falta para originar esta secuencia, evidentemente, este es el Error.

F_Tanori

Se habla de resolucion de problemas ?
Optimizacion de codigo ?
Deteccion de errores de programacion ?
Deteccion de errores de logica ?

<Code>------------------------------
Function Secuencia(Nro_Iterac As Integer) As Double

If Nro_Iterac = 1 Then
Secuencia = 1
Else
Secuencia = '<--------------- Aqui hay un error

End If

End Function
</Code>---------------------------

Código: Visual Basic

Function Secuencia(Nro_Iterac As Integer) As Double
Dim Current As Integer, ret As Double
 
    If Nro_Iterac = 1 Then
        Secuencia = 1
    Else
        Do
            Current = Current + 1
            ret = ret + (1 / Current)
            DoEvents
        Loop While Current < Nro_Iterac
        
        Secuencia = ret
    End If
 
End Function
 

Saludos

m0skit0

Bueno, lo del error, supongo que quería que rellenaramos lo que faltaba. Un poco de recursividad por favor

Código: Visual Basic

 
Function Secuencia(Nro_Iterac As Integer) As Double
 
     If Nro_Iterac = 1 Then
          Secuencia = 1
     Else
          Secuencia = (1/Nro_Iterac) + Secuencia(Nro_Iterac - 1)
     End If
 
End Function

Más limpio y más sencillo imposible. Un saludo y probad la programación funcional, programar sin variables, sólo funciones.

Jimbenit

Citar

Más limpio y más sencillo imposible

Asi es Moskito, Saludos a todos

Jimbenit

Seguimos con encuentra el error
Esta vez, dime la justificación del error, es mas... sin ejecutarolo puedes saber donde esta??

Aqui va (el siguiente codigo tiene un error):

Código: Text

Function Suma(ParamArray Vector())
    Dim X As Integer
    Dim Y As Integer
 
    For Each X In Vector
        Y = Y + X
    Next X
 
    Suma = Y
 
End Function

F_Tanori

El tipo de dato de X y Y, debe ser igual al tipo de dato del arreglo (que es variant), para poder usarlo con For Each

o usarlo de la siguiente manera

Código: Visual Basic

 
Function Suma(ParamArray Vector()) As Double
    Dim X As Integer
    For X = 0 To UBound(Vector)
        Suma = Suma + Vector(X)
    Next X
End Function
 

Jimbenit

Bueno... era muy sencillo el problema, lo que queria saber era la justificación.

F_Tanori

No entiendo la pregunta?

Saludos

Jimbenit

Citar

Habia dicho:
Seguimos con encuentra el error
Esta vez, dime la justificación del error,

Bueno, el objetico era decir la justificación del por que el error, por que Visual Basic consideraba esto un error? , argumenta, justifica por que el error (se entiende la pregunta?)

Nebire

El problema reside en que la 'X' es una variable, además es un integer, su valor es limitado, y lo que se espera es un elemento de referencia, en for each 'elemento', dicho elemento no es un valor sino una referencia, un puntero a la dirección de memoria,(el integer, tampoco tiene alcance para referenciar dicho puntero), esto es así, por que no sólo pueden ser alojados variables si no objetos, por ejemplo textbox, formularios, etc... y en el caso de las matrices si el grupo tiene elementos apunta al primer elemento. en el caso concreto usando paramarray podría perfectamente contener un integer, un textbox, una matriz de cadenas un timer,etc... si intentas forzarlo verás que te saltará un error tal que 'No coinciden los tipos', por ejemplo al intentar forzarlo de esta manera:

Código: Visual Basic

 
Function Suma(ParamArray vector())
    Dim X As Integer
    Dim Y As Integer
 
    For Each v In vector   ' fíjate que v si es una variant y referencia perfectamente al elemento del grupo vector.
       Y =  Y + cint(v)      ' aquí te marcará error diciendo que no coinciden los tipos.
    Next v
    Suma = Y
End Function
 
 

puedes darte cuenta de su posición en memoria, para ver que por lo menos se necesita un long...

Código: Visual Basic

 
Function Suma(ParamArray vector())
    Dim X As Integer
    Dim Y As Integer
 
    For Each v In vector   
       msgbox varptr(v)    & "    Esta es la posición de memoria donde se encuentra el elemento 'vº' del vector... "
       stop   ' cuando pare aquí, lee esto y pulsa 'F5' para probar lo que comento en la siguiente línea
       Y =  Y + varptr(v)      ' ahora te dará un desbordamiento, ya que un valor menor puede forzarse en una variable mayor, pero no al revés en vb6 sin convertir datos
    Next v
    Suma = Y
End Function
 
 
 

y para que lo veas más claro, copia y ejecuta este código paso a paso 'F8'

Código: Visual Basic

 
Private Sub Form_Load()
    Dim v()
    Dim t As Timer
    Dim p As PictureBox
    Dim f() As Form
    
    ReDim f(0 To 1)
    ReDim v(0 To 9)
    
    stop  ' nota como se va a tragar todo esto, un dato inmediato, un doble, un picturebox, un string, un timer, varios forms.... pulsa F8 para continuar.
    v(0) = 3
    v(1) = CDbl(3)
    Set v(2) = p
    v(3) = "Hola"
    v(4) = 3
    Set v(5) = t
    Set f(0) = Form1:  Set f(1) = New Form1
    Set v(6) = f(1)
    set v(7)=f(0)
    stop  ' nota que la siguiente línea dará error, deberás anteponerle SET (como ves en los casos anteriores) ya que su valor no es un tipo de datos genérico sino un objeto.
    v(8)=v(6)
    let v(9)=43
    Call Suma(v)
End Sub
 
 
 
Function Suma(ParamArray vector())
    Dim Y As Double
    Dim t As Variant
        
    For Each v In vector
        MsgBox VarType(v)
        stop ' te ha dado el valor 8204  que son 8192= vbArray + 12 = vbVariant (array de variant), pulsa f8 para continuar...
        t = v 
       MsgBox "La dirección de memoria de 't' es: " & VarPtr(t) & " y la de 'v' es: " & VarPtr(v)
       MsgBox UBound(vector())
    Next v
    Suma = Y
End Function
 
 