Calculadora en visual basic
a) Metodología de programación
Primero insertamos 2 cuadros de texto donde se insertarán los números a operar. Cambiamos los nombres de ambos cuadros de texto a “Texto1” y“Texto2” respectivamente, y modificamos su propiedad “Text” para que no apareciera nada en ambos cuadros de texto.
Luego agregamos 3 etiquetas, una para el signo de la operación, otra para el signoigual “=” y otra para que apareciera dentro de ella el resultado de la operación. A la primera la nombramos “Signo” y modificamos su propiedad “Caption” para que no apareciera nada, a la segunda leconservamos el nombre “Label2” y también modificamos “Caption” para que apareciera el signo igual “=” aumentando su tamaño para que fuera mas visible, y a la tercera la nombramos “Resultado”, modificamos“Caption” para que no apareciera nada y le modificamos la propiedad de “Border Style” para que tuviera profundidad.
Por último, insertamos los cuatro botones de las cuatro operaciones. Alprimero lo llamamos “Suma”, al segundo “Resta”, al tercero “Multiplicacion” y al último “División”, y a todos les modificamos su “Caption” por su signo correspondiente: “+”, “-”, “*”, “/”.
b)Código correspondiente a los procedimientos de la aplicación
Para la suma:
Private Sub Suma_Click()
Resultado.Caption = Val(Texto1.Text) + Val(Texto2.Text)
Signo.Caption = "+"
End Sub
Para laresta:
Private Sub Resta_Click()
Resultado.Caption = Val(Texto1.Text) - Val(Texto2.Text)
Signo.Caption = "-"
End Sub
Para la multiplicación:
Private Sub Multiplicacion_Click()Resultado.Caption = Val(Texto1.Text) * Val(Texto2.Text)
Signo.Caption = "*"
End Sub
Y para la división:
Private Sub División_Click()
Resultado.Caption = Val(Texto1.Text) / Val(Texto2.Text)
Signo.Caption ="/"
End Sub
Código final:
Private Sub Command1_Click()
End Sub
Private Sub Label1_Click(Index As Integer)
End Sub
Private Sub División_Click()
Resultado.Caption = Val(Texto1.Text) /...
Regístrate para leer el documento completo.