Curso 1 VB.NET -Creando una calculadora- Uso de botones y Caja de texto .

Pin It

Primero abrimos una calculadora de windows y revisamos la forma de esta .

Si son buenos observadores verán que están compuesta por botones y una pantalla (caja de texto o textbox) con esto en mente abrimos vbnet y creamos un nuevo proyecto y lo llamamos calculadora .




Lo siguiente es simplemente arrastrar los botones y una caja de texto a nuestro formulario y comenzar a darle la forma :



Luego copiar y pegar hasta que tengamos 15 botones como ven en la figura remplazamos el "." por "=" .



Observemos que cada control tinen dos nombres uno como va ser reconocido por el usuario y el otro como lo va a reconocer el programa . Una vez que se ha terminado con el diseño se comienza con la parte de la programacion .

Lo primero que se hara es que cuando pulsemos en cualquiera de los botones este se muestre en la caja de texto .Damos doble click en el botón 1 y se abrirá un area de programación deberían tener algo asi :

Public Class Form1

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click



End Sub
End Class

Bien justo al medio de todo este código es donde vamos a insertar nuestro código justo en la parte de el medio . Primero tenemos que saber que es lo que queremos que suceda y la lógica seria asi :

El texto que aparece en la caja de texto debe ser igual a el numero de el botón que he presionado .
Si llevamos esa lógica a la programación seria algo asi :

Textbox1.text = 1

Bien y lo único que puede ser confuso ahí es porque “.text” .Esto es debido a que cuando escribimos el nombre de el control “textbox1” y seguidamente de este tipeamos el punto nos aparecen varias opciones como se ve en la imagen :



De todas esas opciones tenemos que elegir la que nos permita obtener el texto y como verán solo hay una que nos puede permitir esta función.
Bien lo siguiente es ejecutar el programa y ver qué es lo que hemos hecho y verificar de paso si se ha a cometido algún error .Hay dos maneras de ejecutar un programa una es con la tecla “F5“ y la otra es con el botón (con un icono de play) verde que aparece en la parte superior particularmente yo uso las dos .
Bien ejecutamos el programa y no encontramos errores lo siguiente es dar click en el botón 1 y ver que pasa y como pueden ver automáticamente después de dar click apareció en nuestra caja de texto el numero 1 .

Asi que hasta ahora ya hemos creado una línea de código funcional.
Bien repetimos el mismo proceso para el botón numero 2 .

Textbox1.text=2

Ahora ejecutamos el programa otra vez y vemos que pasa. Una vez que ejecutamos el programa damos click en el botón 2 y aparece este en la caja de texto pero cuando damos click en el botón 1 el número 1 remplaza al número 2 en la caja de texto , Y en realidad no es esto lo que queremos lo que realmente queremos es que cuando demos click en el numero 2 y luego en el numero 1 estos dos aparezcan juntos para esto vamos ha modificar un poco mas el código .Otra vez doble click en el botón 1 y esto es lo que aparece .

Textbox1.text=1

Bien ahora analizamos lógicamente que es lo que queremos . Lo que queremos es que :
La caja de texto sea igual a el primer número que introduje y que se le adicione el segundo .

Bien si traducimos eso a la programación sería algo así :

Caja de texto= caja de texto unido con el numero que presione.

Textbox1.text= textbox1.text & 1

Tipiamos esto y ejecutamos el programa otra vez. Ahora presionamos dos veces 1 y veremos que aparecen dos 1 en la caja de texto si presionamos tres veces uno aparecerán los tres en la caja de texto y asi sucesivamente.

Bien ahora repetimos el mismo proceso con todos los botones deberíamos tener algo asi :

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

TextBox1.Text = TextBox1.Text & 1

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & 2
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & 3
End Sub


Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & 4
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & 5
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & 6
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & 7
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & 8
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & 9
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = TextBox1.Text & 0
End Sub

Bien si ejecutamos el programa otra vez ahora si deberíamos poder tipiar todos los números sin ningún problema como en la imagen:



Luego lo que queremos ahora es poder sumar , restar , multiplicar y dividir bien esto lo veremos en el siguiente curso .