Capítulo 2

 En este capítulo haremos una aplicación algo más complicada que en el capítulo anterior, pero no mucho más, una calculadora.
Es muy sencillo la creación de esta y espero que no tengáis dudas.
También al final de este capítulo entenderemos algo más sobre las variables, dicho esto empezamos.

Empezamos abriendo el Visual Basic y de lo primero que nos vamos a ocupar será de la interfaz de nuestra calculadora. Yo más o menos la he puesto así:

He añadido 3 botones situados en el centro, los cuales van a ser usados para sumar, restar, multiplicar y dividir. En los laterales añadí 2 "textbox" y otro abajo. Estos los podemos encontrar aquí:

Una vez hecho estos sencillos pasos procedemos a la parte "práctica", vamos, programar nuestro programa.
Empezaremos nombrando los botones centrales con los que vamos a realizar las operaciones matemáticas, pondremos el siguiente código:

Los 4 primeros comandos sirven para nombrar los botones, y los 3 últimos para nombrar las cajas de texto.
Al pulsar F5 podremos ver una vista previa del funcionamiento del programa y de como quedará este. Al pulsar cualquier botón de los que ya hemos creado no hará nada, por lo que vamos a ponerle una acción.
El código a introducir es el siguiente:

Utilizaremos Val(Text1.Text) para usar el valor que introduzcamos en el textbox 1 para realizar la aplicación.Es lo mismo en los otros casos solo que añadiendo + (sumar), - (restar), * (multiplicar) y / (dividir). Después añadiremos el valor de Val(Text2.Text).
Y aquí ha terminado nuestra calculadora, si queremos que esto es opcional, podemos añadirle colores al formulario y botones y nombre a la aplicación como explicábamos en el otro tutorial.
Ponemos lo siguiente:

Seleccionaremos esa opción en cada uno de los botones que les queramos poner un color de fondo, seguido de Command1.BackColor = vbBlue (Por ejemplo).

Finalmente el resultado que obtendremos de la calculadora será parecido a este:

Dejo el código por si queréis consultar o tenéis dudas:

Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub Private Sub Command4_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub

Private Sub Form_Load()
Form1.Caption = "Calculadora"
Command1.Caption = "+"
Command2.Caption = "-"
Command3.Caption = "x"
Command4.Caption = "÷"
Text1.Text = "Cifra"
Text2.Text = "Crifra"
Text3.Text = "Resultado"
Command1.BackColor = vbBlue
Command2.BackColor = vbRed
Command3.BackColor = vbGreen
Command4.BackColor = vbYellow
Form1.BackColor = RGB(190, 190, 190)
End Sub

Y por último terminaremos este capítulo con una tabla de variables a las que podéis echar un vistazo, y hay como "dos tipos";
A la hora de declararlas, que lo haremos de esta manera:

y para lo que estén destinadas por así decirlo:



Con que de momento le echéis solo un vistazo es suficiente, más adelante aprenderemos a usarlas.

Selecciona una Opción Anterior Siguiente