Apunte de la clase del 20 de setiembre

Lo que hicimos en esta clase fue:

Private Sub alcuadrado_Click()
visor.Caption = visor.Caption * visor.Caption

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
If signos.Caption = "%" Then
visor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)
End If

End Sub

Private Sub potencias_Click()
visor.Caption = visor.Caption * visor.Caption

End Sub

Private Sub raizcuadrada_Click()

If visor.Caption < 0 Then
visor.Caption = "ERROR"
Else
visor.Caption = Sqr((Val(visor.Caption)))
End If

End Sub