Visual Basic - USAR TECLADO PAR AOPERACIONES EN CALCULADORA

Life is soft - evento anual de software empresarial
 
Vista:

USAR TECLADO PAR AOPERACIONES EN CALCULADORA

Publicado por BRIAN CANÀ (1 intervención) el 05/09/2009 03:28:28
EN EL BOTON IGUAL CON EXTRUCTURA IF TENGO LO SIGUIENTE.:

ESTO SOO ES PARA LA OPERACION DELA +

SUB IGUAL_CLICK ( )

If op = 1 then <= AQUI EN ESTE IF

n2 = pantalla
pantalla = val(n1) + val(n2)

end if

mi profesor dijo que en el if lo tengo que agregar pero eso es lo qeu no se......
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:USAR TECLADO PAR AOPERACIONES EN CALCULADORA

Publicado por juan carlos (518 intervenciones) el 06/09/2009 01:15:40
hola Brian, espero esto te sirva para tu calculadora
cuando termines presiona F5
para correr el programa
si deseas el codigo fuente dame tu mail para mandartelo mi mail es
[email protected]
===============================================
para provarlo
===============================================
inserta una nueva forma(form1)
inserta tres textbox(text1,text2,text3)
inserta cuatro option(option1.option2,option3,option4)
inserta dos botones(command1 y command2)
===============================================
al command1 ponle en el caption =
al command2 ponle en el caption Limpiar
===============================================
al option1 ponle en el caption +
al option2 ponle en el caption -
al option3 ponle en el caption *
al option4 ponle en el caption /
===============================================
al option1 ponle en value a true
===============================================
ya que termines todo pega este codigo en la forma
===============================================
Private Sub Command1_Click()
If (text1.Text = "") Or (text2.Text = "") Then Exit Sub
Dim a As Double
Dim b As Double

a = text1
b = text2

If Option1.Value = True Then
text3.Text = a + b
ElseIf Option2.Value = True Then
text3.Text = a - b
ElseIf Option3.Value = True Then
text3.Text = a * b
ElseIf Option4.Value = True Then
text3.Text = a / b
End If
End Sub

Private Sub Command2_Click()
text3.Text = ""
End Sub

Private Sub Form_Activate()
Option1.Value = True
End Sub
===============================================
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar