Algoritmo de la suma

Para crear el algoritmo de la suma es necesario:
1. Realizar primero el diagrama de flujo
2. Escribir el pseudocódigo
3. Codificarlo en un lenguaje de programación (en este cado VsualBasic que aparece en las macros de Excel).

En esta sección aparece la manera como lo puede crear en Excel por medio de las macros.

Procedimiento:

1. Activar la barra de herramientas de VisualBasic (ver en este blog la iteración "divido en dos").
2. Incrustar un boton en la hoja1, cambiarle el nombre por BotonInicio y luego el Caption por Inicio.
3. Dar doble click al boton y digitar el siguiente código:

Private Sub BotonInicio_Click()
Dim a, b, Suma As Variant
a = CDec(InputBox("Primer número:"))
b = CDec(InputBox("Segundo número:"))
Suma = a + b
MsgBox "La suma de los números es: " & Suma
End Sub

4. Volver a la hoja1, salir del modo de diseño y presionar el botón Inicio.

Aclariones: las variables a, b y suma pueden almacenar cualquier tipo de dato (Varian: variante) pero la función CDec, de ser numéricas, las convierte en números decimales.

El algoritmo de la iteración de "dividido en 2"

Iteraciones: Son repeticiones que generan una secuencia de números que siguen unos patrones específicos. Por ejemplo la iteración de dividir en dos si es par o de lo contrario convertir el número en par multiplicándolo por 3, aumentándolo en 1 y este resultado dividirlo en 2. Un ejemplo de esto es el 7, que de acuerdo a esto, se generaría así:

7, 11, 17, 26, 13, 20, 10, 5, 8, 4, 2 y 1

El siguiente algoritmo es codificado en Visual Basic, herramienta de programación que aparece en Excel.

Procedimiento para generarlo:

1. Abra una nueva hoja de cálculo
2. Active la barra de herramientas de Visual Basic abriendo la opción Ver de la barra de menús.
3. Active el cuadro de controles (martillito)
4. Incruste un Command Button en la parte derecha de la hoja: haga click en el boton de comando y luego click en la parte blanca de la hoja.
5. Abra las propiedades del boton (click en la manito)
6. Cambie la propiedad Caption por "Inicio" (sin comillas, es el nombre que se verá como título del boton).
7. Haga doble click en el boton para abrir su código.
8. Cree un formulario haciendo click en el ícono de la barra de herramientas Crear Formulario User Form.
9. En ese formulario cree una etiqueta, un cuadro de texto y dos botones de commando. La etiqueta debe ir con el caption Número, el primer boton con el caption Generar y el segundo boton con el caption Salir.
10. En el boton generar dar doble click y copiar el siguiente código en medio de las líneas
Private Sub CommandButton1_Click() y End Sub

---------------------------------------códgo a copiar---------------------
Dim Num, X As Integer
hoja1.cells.delete
Num = Abs(Int(Val(Me.TextBox1.Text)))
If Num = 0 Then MsgBox ("Error, digite un nuevo valor.")
Hoja1.Cells(2, 2) = Num
fila = 3
Do While Num > 1
If Num Mod 2 = 0 Then
Hoja1.Cells(fila, 2) = Num / 2
Num = Num / 2
Else
Num = (3 * Num + 1) / 2
Hoja1.Cells(fila, 2) = Num
End If
fila = fila + 1
Loop
----------------

11. En el boton salir (commandbutton2) ingresar el commando unload me , que sirve para descargar el formularaio o hacerlo inactivo cuando se presione este botón.

12. Vaya a la hoja de cálculo haciendo click en el boton que aparece en la barra de inicio.
13. Cambie a modo de Salir de Modo diseño, presione ahora el botón y deberá salir el formulario que se creo. Digite el número 10, deben generarse en la hoja 1 y de manera vertical los números de la iteración programada: 10, 5, 8, 4, 2, 1.

Si al ejecutar Excel aparecen las Macros deshabilitadas, se deben habilitar en el menú Herramientas, Macros, Seguridad, Nivel de seguridad medio, luego guardar y de nuevo abrir. Saldra ahora la ventana de Habilitar macros.

Excel, una herramienta potente para el trabajo en matemáticas aplicadas a la computación.