Como Hacer Una Calculadora De 0 A 9 En Visual Basic

Calculadora en Visual Basic

Como se muestra en la imagen inferior utilizamos la interfas de una calculadora simple o muy parecida al Numpad del teclado de una computadora. Nuestra interface está formada por 17 Botones de Comando, una Caja de texto. Los Cuales se programaran de forma q cada uno cumpla la función de las teclas y pantalla de una Calculadora simple de 0 a 9.

Listado deHerramientas a usarse:

No. | OBJETO | NOMBRE | PROPIEDAD | VALOR |
1 | Formulario | frmcalculadora | | |
2 | TextBox | Txtresultado | Text | (vacio) |
3 | Botón de Comando | Cmdc | Caption | Ce |
4 | Botón de Comando | Cmdentre | Caption | / |
5 | Botón de Comando | Cmdpor | Caption | * |
6 | Botón de Comando | Cbdmenos | Caption | - |
7 | Botón de Comando | Cmdmas | Caption | + |
8| Botón de Comando | Cmd0 | Caption | 0 |
9 | Botón de Comando | Cmd1 | Caption | 1 |
10 | Botón de Comando | Cmd2 | Caption | 2 |
11 | Botón de Comando | Cmd3 | Caption | 3 |
12 | Botón de Comando | Cmd4 | Caption | 4 |
13 | Botón de Comando | Cmd5 | Caption | 5 |
14 | Botón de Comando | Cmd6 | Caption | 6 |
15 | Botón de Comando | Cmd7 | Caption | 7 |
16 | Botón de Comando | Cmd8| Caption | 8 |
17 | Botón de Comando | Cmd9 | Caption | 9 |
18 | Botón de Comando | Cmdpunto | Caption | . |
19 | Botón de Comando | Cmdenter | Caption | Enter o = |

Nuestra interfaz está constituida por 17 botones de comando los cuales nombraremos en su propiedad “Caption” con los números de 1 al 9 respectivamente; así como el Punto (.) decimal, la tecla de Borrar, los simboles deDivisión (/), Multiplicación (*), Suma (+) y Resta (-) así como también la tecla Enter que en nuestra calculado será el signo (=); El Textbox o caja de texto será la pantalla de nuestra calculadora. Ahora nombrar cada componente aunque para los que son ya son experimentados en VB les parece tedioso el estar nombrando. Aunque siempre es bueno llevar un orden de las cosas más aun cuando los códigos sondemasiado grandes.

De esta forma al ya tener nombrados todos nuestros componentes de la calculadora procedemos a empezar con la líneas de programación de la siguiente forma.

CODIGO
Lo primero es declarar las variables entonces en general ponemos
Rem declaración de Variables Dim op As Currency‘
’ Op lo vamos a usar para distinguir qué operación es
Dim n1 AsCurrency
‘’n1 Va a ser pararepresentar la primera parte de la operación lo que va antes del signo
Dim n2 As Currency
‘’n2 Va a ser para representar la segunda parte de la operación lo que va después del signo
Luego de que las variables ya hayan sido declaradas, procedemos a codificar cada uno de nuestros Botones de comando que les fueron asignados los nombres del 1 al 9. Para que al presionar cualquiera de estosbotones el número que elijamos se imprima en la textbox junto con el o los números que se hayan seleccionado previamente.
Private Sub cmd0_click()
‘’Nos indica que laacción se realizara cuando se le dé clic a cmd0
txtresultado.Text = txtresultado.Text & "0"
‘’Cambia el valor del texto de txtresultado
End Sub
‘’Termina la acción
Tenemos que hacer este mismo código para cada comando de losnúmeros SOLAMENTE LOS BOTONES DE COMANDO CON VALOR NUMERICO, cambiando en cada uno el 0 por el número correspondiente, en el caso del 1 al 9.
Para el numero 1
Private Sub cmd1_click()
txtresultado.Text = txtresultado.Text & "1"
End Sub
Para el numero 2
Private Sub cmd2_click()
txtresultado.Text = txtresultado.Text & "2"
End Sub

Para el numero 3
Private Sub cmd3_click()txtresultado.Text = txtresultado.Text & "3"
End Sub

Para el numero 4
Private Sub cmd4_click()
txtresultado.Text = txtresultado.Text & "4"
End Sub

Para el numero 5
Private Sub cmd5_click()
txtresultado.Text = txtresultado.Text & "5"
End Sub

Para el numero 6
Private Sub cmd6_click()
txtresultado.Text = txtresultado.Text & "6"
End Sub

Para el numero 7
Private Sub...