Mini-Calculadora Visual Basic
Primero distribuiremos tres textbox que nombraremos como txtDATO1, txtDATO2 y
txtRESULTADO. En estos tres textbox introduciremos el primer sumando o factor de la
operación y el segundo sumando o termino. También insertaremos los 4 botones de
las operaciones, les cambiaremos el nombre a butSUMA, butRESTA, butDIVISIÓN,
butMULTIPLICACIÓN, a continuación mostrare en imágenes como debería quedaros la
interfaz del programa y tres ejemplos sobre donde cambiarle el nombre en la
propiedad Text se le cambia el texto que aparecerá en el botón, y les pondremos los 4
signos de operaciones matemáticas [+ – * /]
.
A continuación empezaremos a escribir el código para hacer que funcione el programa.
Lo primero será declarar las variables, que nos sirven para utilizar únicamente el
nombre de la variable en vez de tener que escribir por ejemplo: val([Link]).
Para hacer esto simplemente pondremos DIM [El nombre de las variables separadas
por comas] AS [El tipo de variable (en este caso utilizaremos Single ya que son
decimales y este tipo sirve para los decimales)]. Así pues quedaría:
Dim DATO1, DATO2, RESULTADO as Single
Esto lo pendremos encima de todo justo debajo de Public Class Form1
Una vez hecho esto empezaremos con el evento click del primer botón, el butSUMA,
que hará las siguientes funciones: comprobar que lo que está escrito en los txtDATO1 y
txtDATO2 sean números, que asigne el valor de los dos textbox a las variables para
luego sumarlas, asignarle el valor de la suma a la variable resultado y hacer que se vea.
Nos iremos al menú de ese boton y en la pestaña de eventos, haremos doble click
sobre el evento CLICK. Para comprobar si estamos ante datos numéricos utilizaremos la
funcion IsNumeric que devuelve un valor, true o false, según lo que esté escrito en el
txtbox sean datos numéricos (true) o caracteres (false). Quedaría
así IsNumeric([Link]). Para enviar un mensaje de error para advertir que se
necesitan caracteres numéricos utilizaremos la función IF…ELSE…END IF
Esta función tiene la siguiente estructura:
IF [Condición] THEN
[Lo que queremos que haga si se cumple]
ELSE
[Lo que queremos que haga si no se cumple]
END IF
A nosotros nos debería quedar algo así:
Luego, en la 3ª línea de la parte ELSE, digo que la variable RESULTADO es igual a la suma de las
dos variables, con lo que esa variable será lo que queremos mostrar. Por lo que a continuación
simplemente cambiaremos la propiedad text del txtRESULTADO por la
variable: [Link]=RESULTADO .
Ya tenemos programado el primer botón de las cuatro operaciones básicas. Haremos lo
mismo con los otros tres botones simplemente cambiando la linea de código que pone:
RESULTADO = DATO1 + DATO2 por una exactamente igual con el simbolo matemático
cambiado por “–” , “*” , “/” de la siguiente forma, aunque les invito a intentarlo sin ver
las soluciones.