Calculadora

"Mi primera calculadora". – Programar en 15 pasos Para programar esta calculadora, usaremos el editor de programación llamado "Microsoft Visual Basic". Para ello vamos a utilizar la extensión de este programa que está en Word. 1.- Abrimos Word --> Inicio, todos los programas, Microsoft Word 2.- Una vez abierto, vamos a la barra de menús, --> Archivo, Guardar como: y lo nombramos "Mi primera Calculadora" 3.- Luego, vamos a la barra de menús como se muestra a continuación, --> Herramientas, Macro, Editor de Visual Basic, con lo que se abrirá el editor.

4.- Hacemos clic con el botón derecho sobre "Project (Mi primera calculadora) y seleccionamos insertar, UserForm y se abrirá algo parecido a esto:

5.-Vamos a pasar la flecha del cursor por todos los controles de las herramientas para ver como se llaman 6.- Ahora hacemos clic en la columna "Proyecto Project" sobre donde dice UserForm1 y miramos en el cuadro de Propiedades en la línea que dice "Caption" y escribimos en lugar de UserForm1, la palabra "Calculadora" y hacemos clic en cualquier parte gris de la pantalla. Si todo ha salido bien, ahora la ventanita gris, mostrará el título Calculadora. 7.- Ahora vamos arrastrando desde el cuadro de herramientas y soltando al cuadro gris "Calculadora", las herramientas necesarias:

8.a) Primeramente las 4 etiquetas de texto "A" hacia el recuadro gris, una de título Label1 y otras tres debajo a la izquierda, b) Luego los tres cuadros de texto con "ab|" y luego arrastramos y soltamos los "Botones de comando", adaptando su tamaño. 9.- Hacemos UN SÓLO clic donde dice Label1 y escribimos adaptando el tamaño del cuadro: ¡¡¡Mi primera calculadora!!!. Hacemos lo mismo con label2, Label3 y Label4 y los botones "CommandButton", cambiando los nombres hasta que quede así:

10.- Ahora vamos a la columna izquierda" Proyecto - Project" en donde hay una carpeta llamada "Formularios" y hacemos clic con el botón derecho en UserForm1 y escogemos "Ver código", se abrirá entonces un cuadro en donde tenemos que escribir el siguiente código, que quedará al final así: Debajo explicamos por partes cómo hacerlo.

11.- Para escribir, desplegamos y seleccionamos (UserForm), Aparece el código: "Private Sub UserForm_Click()

End Sub" a) Esto tenemos que transformarlo: selecciona copia y pega sobre aquél código, el código que está aquí debajo: Private Sub FRMCalculadora_Load() Text1.Text = 0 Text2.Text = 0 Text3.Text = 0 End Sub b) Ahora desplegamos y seleccionamos CommandButton1 y sustituimos el código que aparece por este que he puesto aquí debajo: Private Sub BTNSumar_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub c) Ahora desplegamos y seleccionamos CommandButton2 y sustituimos el código que aparece por este que he puesto aquí debajo: Private Sub BTNLimpiar_Click() Text1.Text = 0 Text2.Text = 0 Text3.Text = 0 End Sub d) Ahora desplegamos y seleccionamos CommandButton3 y sustituimos el código que aparece por este que he puesto aquí debajo: Private Sub BTNSalir_Click() End End Sub 12.- Después de escribir el código, vamos al cuadro izquierdo de Propiedades UserForm1 y escribimos al lado de donde dice Name: sustituimos donde dice UserForm1 por "FRMCalculadora" 13.- Ahora vamos a arriba carpeta formularios y sobre FRMCalculadora con el botón derecho seleccionamos "Ver objeto". 14.- Hacemos UN SÓLO clic sobre el primer cuadro de texto y escribimos un cero "0", hacemos lo mismo con los demás cuadros de texto. Volvemos a hacer clic en el primer cuadro de texto y en Propiedades en al lado de donde donde dice name escribimos: Text1 en lugar de TextBox1, lo mismo con los restantes cuadros de texto, escribimos Text2 y Text3. Hacemos clic sobre le botón Sumar y en Propiedades - CommandButton1, lo sustiuimos por el nombre: BTNSumar Hacemos clic sobre le botón Limpiar y en Propiedades - CommandButton2, lo sustiuimos por el nombre: BTNLimpiar Hacemos clic sobre le botón Salir y en Propiedades - CommandButton3, lo sustiuimos por el nombre: BTNSalir

15.- Ahora vamos a probar el funcionamiento. Vamos al menú ejecutar -> Ejecutar Sub/Userform y probamos sustituyendo los ceros por valores y luego pulsamos el botón Sumar y después Limpiar para que vuelvan los ceros.

Si lo has conseguido, haz hecho tu primer programa.

Felicidades!