Ica Virtual

[CalcuOsiris - 2]

Dim num1 As String
Dim num2 As String
Dim operador As String
Dim estado As Byte
Private Sub Command1_Click(Index As Integer)
Txtdato.SelText = Command1(Index).Caption
End Sub

Private Sub Command2_Click(Index As Integer)
operador = Command2(Index).Caption
Select Case estado
Case 0
num1 = Txtdato.Text
estado = 1
Txtdato.Text = “”
Case 1
num2 = Txtdato.Text
estado = 2
Txtdato.Text = “”
Case 2

End Select
End Sub

Private Sub Command3_Click(Index As Integer)
If num1 = “” And num2 = “” Then
Else
num2 = Txtdato.Text
Select Case operador
Case “+”
Txtdato.Text = Val(num1) + Val(num2)
Case “-”
Txtdato.Text = Val(num1) - Val(num2)
Case “*”
Txtdato.Text = Val(num1) * Val(num2)
Case “/”
If num2 = 0 Then
MsgBox “Error de Operación”
Else
Txtdato.Text = Val(num1) / Val(num2)
End If
Case Else

End Select
estado = 1
num2 = “”
num1 = Txtdato.Text
End If
End Sub

Private Sub Command4_Click(Index As Integer)
estado = 0
num1 = “”
num2 = “”
Txtdato.Text = “”
operador = “N”
End Sub

Private Sub Command5_Click(Index As Integer)
End
End Sub

Private Sub Form_Load()
estado = 0
End Sub

P.D: Espero que alguien le pueda servir