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
===============================================