Dim OPERACION As String
Dim A As Double
Dim B As Double
Private Sub AC_Click()
Me.Texto = ""
End Sub
Private Sub Comando17_Click()
A = Me.Texto
Me.Texto = ""
OPERACION = "*"
End Sub
Private Sub Comando7_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 0 Else Me![Texto] = Me![Texto] & 0
End Sub
Private Sub Ctl__Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = "." Else Me![Texto] = Me![Texto] & "."
End Sub
Private Sub Ctl1_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 1 Else Me![Texto] = Me![Texto] & 1
End Sub
Private Sub Ctl2_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 2 Else Me![Texto] = Me![Texto] & 2
End Sub
Private Sub Ctl3_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 3 Else Me![Texto] = Me![Texto] & 3
End Sub
Private Sub Ctl4_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 4 Else Me![Texto] = Me![Texto] & 4
End Sub
Private Sub Ctl5_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 5 Else Me![Texto] = Me![Texto] & 5
End Sub
Private Sub Ctl6_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 6 Else Me![Texto] = Me![Texto] & 6
End Sub
Private Sub Ctl7_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 7 Else Me![Texto] = Me![Texto] & 7
End Sub
Private Sub Ctl8_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 8 Else Me![Texto] = Me![Texto] & 8
End Sub
Private Sub Ctl9_Click()
If IsNull(Me![Texto]) Or Me![Texto] = "" Then Me![Texto] = 9 Else Me![Texto] = Me![Texto] & 9
End Sub
Private Sub DIV_Click()
A = Me.Texto
Me.Texto = ""
OPERACION = "/"
End Sub
Private Sub IGUAL_Click()
B = Me.Texto
Me.Texto = ""
If OPERACION = "+" Then
Me.Texto = A + B
ElseIf OPERACION = "-" Then
Me.Texto = A - B
ElseIf OPERACION = "*" Then
Me.Texto = A * B
ElseIf OPERACION = "/" Then
Me.Texto = A / B
End If
End Sub
Private Sub MAS_Click()
A = Me.Texto
Me.Texto = ""
OPERACION = "+"
End Sub
Private Sub RES_Click()
A = Me.Texto
Me.Texto = ""
OPERACION = "-"
End Sub