Apunte de la clase del 6 de setiembre

Lo que hicmos con la calculadora hoy fue:
Private Sub borrar_Click()
visor.Caption = ""
auxcanal.Caption = ""
signos.Caption = ""
punto.Enabled = True
End Sub

Private Sub dividido_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "/"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub igual_Click()
punto.Enabled = True

If signos.Caption = "+" Then
visor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "-" Then
visor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "*" Then
visor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "/" Then
If visor.Caption = "0" Then
visor.Caption = "ERROR"
signos.Caption = ""
auxcanal.Caption = ""
Else
visor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
End If
End If
End If
End If
End If
End Sub

Private Sub por_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "*"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
punto.Enabled = False
End Sub