Calculadora en visual basic

Solo disponible en BuenasTareas
  • Páginas : 2 (396 palabras )
  • Descarga(s) : 0
  • Publicado : 15 de marzo de 2012
Leer documento completo
Vista previa del texto
Calculadora
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) /...
tracking img