PALABRAS

Fibonacci.
Utilización de una serie de Fibonacci de números aleatorios.
Se tomarán exclusivamente la cifra de unidades de los números de la serie anterior.
Se ordenarán estos valores de mayor a menor (para poder trabajar con ellos).
Se mostrará cómo realizar el diagrama de barras correspondiente a la serie anterior (cada barra con el tamaño y el color correspondiente al número de laserie).
Y en él, se utilizarán además las funciones y opciones del Editor de Visual Basic / Microsoft Office siguiente:
Cambio de nombre de un botón.
Utilización y grabación de macros.
Utilización de la función Call para llamar a una función definida en otro lugar.
Cambio de color.
La serie de Fibonacci cumple que cada elemento de la serie es el resultado de la suma de los dos precedentes,es decir: an+2 = an+1 + an
Así, se introducirá la fórmula anterior mediante la utilización de un bucle Do While…Loop (una de las opciones posibles), previa definición de los dos valores iniciales. De esta forma, se van a definir estos valores iniciales como aleatorios; para ello, se va a utilizar la función de generación de números aleatorios rnd (tal y como se ve en el programa). Se evitannúmeros excesivamente grandes o en coma flotante, tomando la variable como int, para evitar la aparición de decimales. Además, se ve cómo se utiliza la función With, para definir la selección de color. Este código se ha tomado del de la macro grabada a partir del cambio de color de una celda cualquiera (mediante la utilización de la opción del menú Cambio de color).

En el menú, se toma la opciónDesarrollador, y en ésta, Grabar macro. Acto seguido, se realiza la acción a grabar en la macro, en este caso, cambiar de color el color de una columna de la hoja de cálculo.

Abriendo la opción de Visual Basic, la macro grabada quedaría reflejada de la siguiente manera:

En el paso anterior se ve, en el código definido por la macro, la opción Range; esto define el rango de aplicabilidad de laopción escogida con el código, en ese caso el cambio de color de las celdas A1 hasta la A10.
Además se le puede cambiar el nombre al botón para que deje de “llamarse” CommandButton1 y así poder ponerle el nombre deseado y cambiar otras propiedades como el color del botón. Pero, ¿cómo se consigue cambiar el nombre al botón?

Para ello, se selecciona el Modo Diseño del cuadro de controles de lapestaña Desarrollador, una vez ahí, se haría clic con el botón derecho del ratón, sobre el botón al que se le quiere cambiar el nombre. Acto seguido, se selecciona la opción Propiedades y dentro de estas se cambia la opción Caption.


Una vez mostradas las acciones anteriores, se va a pasar a definir el ejemplo concreto. Así, y como ya habíamos dicho, vamos a definir el código de programanecesario para por un lado generar la serie de Fibonacci de términos aleatorios, y por el otro, tomar de los valores de la serie anterior exclusivamente las cifras correspondientes a las unidades.

Aquí pueden observarse dos bloques diferenciados de programa, cada uno para un botón diferente (que se pueden ver en la transparencia siguiente). En el primero se crea una serie de Fibonacci, tal y como yase ha explicado, y acto seguido, se reduce cada uno de los números de dicha serie a su cifra de unidades. Esta sería el resto obtenido de dividir dicho número de la serie original, por 10.
Esto se consigue con la utilización de la función mod. Todo ello dentro de su correspondiente bucle para ir tomando todos los valores de la serie.


Se ve el resultado obtenido. Primero, haciendo clic en elprimer botón, se obtendría la serie, y seguidamente, haciendo clic sobre el segundo botón, se obtiene la cifra correspondiente a la cifra de unidades de la serie de Fibonacci anterior.
Ahora, se deberá definir una función que tome una serie de números y los ordene de mayor a menor. Esto se haría mediante la grabación de una macro llamada ordenar, en la que se graba la acción de Ordenar...