sábado, 18 de septiembre de 2010

Triángulo de Pascal

Primero que nada bendiciones en todo lo que esten haciendo, que Dios derrame bendiciones sobre ustedes.

Ahora prosigo, este Blog está hecho para todo aquel que quiera ayuda con algunos programas, en este blog estaré poniendo los programas ya resueltos y con su código de programación.

Poco a poco ire poniendo más ejemplos.

 
El siguiente es el ejercicio de:

"El Triángulo de Pascal"

Si quieren ver la imagen con movimiento clic aqui (Recomendado)

Una explicacion sencilla de éste ejercicio es: Empezando con el número 1 en la cima del triángulo y así sucesivamente por cada lateral de este triángulo, ahora para ver los resultados de la suma, basta con sumar los renglones que están arriba de el mismo, podemos poner como ejempolo la tercera fila, la cual es el primer espacio vacío:

1 + 1 = 2

Si seguimos podemos sacar estos resultados:

1 + 2 = 3          1 + 2 = 3

1 + 3 = 4          3 + 3 = 6          3 + 1 = 4

1 + 4 = 5          4 + 6 = 10          4 + 6 = 10          4 + 1 = 5

Ahora ya sabemos un poco de como funciona éste maravilloso triángulo...







Ahora empecemos con la programación en lenguaje Visual Fox Pro 6.0 (VFP 6.0)... Primero que nada tenemos que saber que nuestro programa lo único que va a hacer es sumar los numeros que estén en la parte superior del número a sumar. Comprendido esto empesamos con lo siguiente.

Crear nuestro aspecto gráfico:

para empezar crearemos:

          55 cuadros de textos
          3 botones de comando

cada uno de los cuadros de textos tiene que tener estás caracteristicas para que funcione al cien por ciento.

          Alignment     =     2 - Centro
          Enabled        =    .F. - Falso
          Name            =    t1 (sucesivamente con cada uno de los cuadros de texto)
          Value            =    1 ó 0

Ojo en ésta última propiedad en Value tenemos que ponerle "1 "a todos los cuadros de textos que estén en los laterales y el primerito.  Luego "0" a los demás cuadros de textos.




Ya creado cada uno de los cuadros de textos con las propiedades indicadas arriba, nos tendría que quedar así:



 Ya que hemos terminado de crear cada uno de estos cuadros, proseguimos con crear nuestros botones de comando, como habiamos dicho anteriormente crearemos tres botones.  Los cuales llevaran éstos nombres:

  1.           Mostrar
  2.           Ocultar
  3.           Salir

Empecemos con el código de programación del Botón "Mostrar"

*Declarando las variables

Les explico ésta parte: aquí declaramos las variables ya que cada uno de los cuadros de textos tienen un nombre, pero para ahorrarnos la escritura declaramos estas variables y así no nos costará mucho hacer el código de programación.

t1    = Thisform.t1.value
t2   = Thisform.t2.value
t3   = Thisform.t3.value
t4   = Thisform.t4.value
t5   = Thisform.t5.value
t6   = Thisform.t6.value
t7   = Thisform.t7.value
t8   = Thisform.t8.value
t9   = Thisform.t9.value
t10  = Thisform.t10.value
t11  = Thisform.t11.value
t12 = Thisform.t12.value
t13 = Thisform.t13.value
t14 = Thisform.t14.value
t15 = Thisform.t15.value
t16 = Thisform.t16.value
t17 = Thisform.t17.value
t18 = Thisform.t18.value
t19 = Thisform.t19.value
t20 = Thisform.t20.value
t21 = Thisform.t21.value
t22 = Thisform.t22.value
t23 = Thisform.t23.value
t24 = Thisform.t24.value
t25 = Thisform.t25.value
t26 = Thisform.t26.value
t27 = Thisform.t27.value
t28 = Thisform.t28.value
t29 = Thisform.t29.value
t30 = Thisform.t30.value
t31 = Thisform.t31.value
t32 = Thisform.t32.value
t33 = Thisform.t33.value
t34 = Thisform.t34.value
t35 = Thisform.t35.value
t36 = Thisform.t36.value
t37 = Thisform.t37.value
t38 = Thisform.t38.value
t39 = Thisform.t39.value
t40 = Thisform.t40.value
t41 = Thisform.t41.value
t42 = Thisform.t42.value
t43 = Thisform.t43.value
t44 = Thisform.t44.value
t45 = Thisform.t45.value
t46 = Thisform.t46.value
t47 = Thisform.t47.value
t48 = Thisform.t48.value
t49 = Thisform.t49.value
t50 = Thisform.t50.value
t51 = Thisform.t51.value
t52 = Thisform.t52.value
t53 = Thisform.t53.value
t54 = Thisform.t54.value
t55 = Thisform.t55.value

*Lados (Centro/Izquierdo/Derecho) equivalentes a 1

Siguiente explicación: aquí estamos indicando que cada uno de los cuadros de textos  que van en los laterales (ya declarados anteriormente), tienen el valor de 1.

    t1  = 1
    t2  = 1
    t3  = 1
    t4  = 1
    t6  = 1
    t7  = 1
    t10 = 1
    t11 = 1
    t15 = 1
    t16 = 1
    t21 = 1
    t22 = 1
    t28 = 1
    t29 = 1
    t36 = 1
    t37 = 1
    t45 = 1
    t46 = 1
    t55 = 1
      
*La fórmula

Y ahora aquí es donde empezamos a hacer la suma de cada uno de las casillas equivalentes a "0" y las cuales queremos sumar y sacar su resultado.

        Thisform.t5.value     = (t2 +    t3)
        Thisform.t8.value     = (t7 + Thisform.t5.value)
        Thisform.t9.value     = (Thisform.t5.value + t6)
        Thisform.t12.value    = (t7 + Thisform.t8.value)
        Thisform.t13.value     = (Thisform.t8.value + Thisform.t9.value)
        Thisform.t14.value    = (Thisform.t9.value + t10)
        Thisform.t17.value    = (t11 + Thisform.t12.value)
        Thisform.t18.value    = (Thisform.t12.value + Thisform.t13.value)
        Thisform.t19.value    = (Thisform.t13.value + Thisform.t14.value)
        Thisform.t20.value    = (Thisform.t14.value + t15)
        Thisform.t23.value     = (t16 + Thisform.t17.value)
        Thisform.t24.value    = (Thisform.t17.value + Thisform.t18.value)
        Thisform.t25.value    = (Thisform.t18.value + Thisform.t19.value)
        Thisform.t26.value    = (Thisform.t19.value + Thisform.t20.value)
        Thisform.t27.value    = (Thisform.t20.value + t21)
        Thisform.t30.value    = (t22 + Thisform.t23.value)
        Thisform.t31.value    = (Thisform.t23.value + Thisform.t24.value)
        Thisform.t32.value    = (Thisform.t24.value + Thisform.t25.value)
        Thisform.t33.value    = (Thisform.t25.value + Thisform.t26.value)
        Thisform.t34.value    = (Thisform.t26.value + Thisform.t27.value)
        Thisform.t35.value    = (Thisform.t27.value + t28)
        Thisform.t38.value    = (t29 + Thisform.t30.value)
        Thisform.t39.value    = (Thisform.t30.value + Thisform.t31.value)
        Thisform.t40.value    = (Thisform.t31.value + Thisform.t32.value)
        Thisform.t41.value    = (Thisform.t32.value + Thisform.t33.value)
        Thisform.t42.value    = (Thisform.t33.value + Thisform.t34.value)
        Thisform.t43.value    = (Thisform.t34.value + Thisform.t35.value)
        Thisform.t44.value    = (Thisform.t35.value + t36)
        Thisform.t47.value    = (t37 + Thisform.t38.value)
        Thisform.t48.value    = (Thisform.t38.value + Thisform.t39.value)
        Thisform.t49.value    = (Thisform.t39.value + Thisform.t40.value)
        Thisform.t50.value    = (Thisform.t40.value + Thisform.t41.value)
        Thisform.t51.value    = (Thisform.t41.value + Thisform.t42.value)
        Thisform.t52.value    = (Thisform.t42.value + Thisform.t43.value)
        Thisform.t53.value    = (Thisform.t43.value + Thisform.t44.value)
        Thisform.t54.value    = (Thisform.t44.value + t45)

Thisform.Refresh

Proceguimos con el Boton "Ocultar"

Aquí en esté botón simplemente hay que fijarle un valor a cada cuadro de texto, dependiendo a que grupo pertenece, si es al grupo de los "1" o al grupo de los "0".  Aquí podrán entender más...>>>

Thisform.t1.value    = "1"
Thisform.t2.value     = "1"
Thisform.t3.value     = "1"
Thisform.t4.value    = "1"
Thisform.t5.value    = "0"
Thisform.t6.value    = "1"
Thisform.t7.value    = "1"
Thisform.t8.value     = "0"
Thisform.t9.value     = "0"
Thisform.t10.value     = "1"
Thisform.t11.value     = "1"
Thisform.t12.value     = "0"
Thisform.t13.value     = "0"
Thisform.t14.value     = "0"
Thisform.t15.value     = "1"
Thisform.t16.value     = "1"
Thisform.t17.value     = "0"
Thisform.t18.value     = "0"
Thisform.t19.value     = "0"
Thisform.t20.value     = "0"
Thisform.t21.value     = "1"
Thisform.t22.value     = "1"
Thisform.t23.value     = "0"
Thisform.t24.value     = "0"
Thisform.t25.value     = "0"
Thisform.t26.value     = "0"
Thisform.t27.value     = "0"
Thisform.t28.value     = "1"
Thisform.t29.value     = "1"
Thisform.t30.value     = "0"
Thisform.t31.value     = "0"
Thisform.t32.value     = "0"
Thisform.t33.value     = "0"
Thisform.t34.value     = "0"
Thisform.t35.value     = "0"
Thisform.t36.value     = "1"
Thisform.t37.value     = "1"
Thisform.t38.value     = "0"
Thisform.t39.value     = "0"
Thisform.t40.value     = "0"
Thisform.t41.value     = "0"
Thisform.t42.value     = "0"
Thisform.t43.value     = "0"
Thisform.t44.value     = "0"
Thisform.t45.value     = "1"
Thisform.t46.value     = "1"
Thisform.t47.value     = "0"
Thisform.t48.value     = "0"
Thisform.t49.value     = "0"
Thisform.t50.value     = "0"
Thisform.t51.value     = "0"
Thisform.t52.value     = "0"
Thisform.t53.value     = "0"
Thisform.t54.value     = "0"
Thisform.t55.value     = "1"

Thisform.Refresh

Y por último el botón de "Salir"

este botón es el más facil ya que su código es el siguiente:

Release Thisform

(Nota: No se olviden de ponerle la propiedad "cancel")



Bueno chicos, eso es todo por el momento, y recuerden...

  1. Apoyen
  2. Comenten
  3. Ayuden