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
mega.juca@hotmail.es
===============================================
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