miriam
27 de Junio del 2006

necesita que me ayuden hacer una calculadora lo antes posible porfis

catarino
27 de Junio del 2006

Hola espero que te sirva nos vemos si me das tiempo te la hago mejor esta esta muy sencilla

lo primero que vas a hacer es poner 5 botones de comando
suma, resta, divicion, multiplicacion, borrar
a cada uno le pones el nombre de commandsuma commandresta etc

despues pones 3 cuadros de texto con el nombre de
op2, op3, total

y una etiqueta (Label) y le pones de nombre Signo
en la propiedad de la etiqueta en Caption le borras Label1 nos vemos




es todo espero que te sirva si tienes duda contactame


Private Sub CommandBorrar_Click()
total.Text = ""
op1.Text = ""
op2.Text = ""
Signo.Caption = ""
End Sub

Private Sub Commandsuma_Click()
total.Text = Val(op3.Text) + Val(op2.Text)
Signo.Caption = "+"
End Sub
Private Sub Commandresta_Click()
total.Text = Val(op3.Text) - Val(op2.Text)
Signo.Caption = "-"
End Sub

Private Sub Commandmultiplicacion_Click()
total.Text = Val(op3.Text) * Val(op2.Text)
Signo.Caption = "x"
End Sub

Private Sub Commanddivicion_Click()
total.Text = Val(op3.Text) / Val(op2.Text)
Signo.Caption = "/"
End Sub