Spanish RECURSIVIDAD Y ANIDAMIENTO DE SUB's

Sub Button1_Click

  Contador(10)

End Sub


Sub Contador(ContarHasta As Int)
  ' Cuenta hasta lo que nos diga la variable ContarHasta
  
   Dim n  As Int
   Dim YaEntre As Boolean
  
   Log("Entro en el Sub - Valor contador: " & ContarHasta)
  
   For n = 1 To ContarHasta
    Log(" N: " &  n)
    If YaEntre = False AND n = 5 Then
      YaEntre = True
       Log(" Vuelvo a llamar al Sub desde el Sub con valor = 3" )
       Contador(3)
     End If  
   Next

   Log("Salgo del sub")
  

  YaEntre = False
  
End Sub

'Función para calcular ecuaciones tipo x^(Sen(Log(x+4))/(4*x^3-2)+.......
'Siendo F(x) la Fórmula y Valor el que tiene X para su cálculo

Sub Calcula(Formula As String, Valor As Double) As Double
    Dim FormulaT As String ' Para contener el String ya transformado para cáculo
    Dim V As Double ' Contendrá el valor final del resultado
    Dim P As Int ' Valor de la posición a la que apunta la cadena Formula en ese momento Accesible a las sub internas
    Sub FNivel1(T As Double) As Double ' Función de nivel 1
        Dim V1 As Double
        ' .............  Con sus Dim locales
        ' .............  Función intermedia para calcular lo que va dento de parentesis
            Sub FNivel2(M As Double) As Double ' Función de nivel 2
                Dim V2 As Double
                ' .............  Con sus Dim locales
                ' .............  Función intermedia para calcular lo que contiene / y *
                Return V2
            End Sub
        ' .............
        Return V1
    End Sub
    'Preparación cadena traducida para manefarla a gran velocidad (Utiliar código de una letra para cada función)
    'Ejemplo Sen = S; Cos = C Mediante dos arrays o un array de dos dimensiones con las constantes ....
    'Primera llamada a FNivel1(Formula)
    'Código terminando y verificando resultados
    Return V
End Sub
Sub Button2_Click
   
End Sub