Apunte del 11 del 10

Programamos:
Private Sub divididouno_Click()If visor.Caption = 0 Thenvisor.Caption = "ERROR"Elsevisor.Caption = 1 / Val(visor.Caption)End If
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 = ""
ElseIf signos.Caption = "-" Thenvisor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "*" Thenvisor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "/" ThenIf visor.Caption = "0" Thenvisor.Caption = "ERROR"signos.Caption = ""auxcanal.Caption = ""Elsevisor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""End IfEnd IfEnd IfEnd IfEnd IfIf signos.Caption = "%" Thenvisor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)End If


Private Sub masmenos_Click()visor.Caption = Val(-(visor.Caption))
End Sub

Private Sub porcentaje_Click()signos.Caption = "%"auxcanal.Caption = visor.Captionvisor.Caption = ""
End Sub