\' Gambas class file
Private conectado As Boolean = False
Public Sub _new()
Print "Creando motor electrico"
conectado = False
End
Public Sub concectar()
Print "Conectando motor electrico"
conectado = True
End
Public Sub activar()
If conectado = False Then
Print "No se puede activar porque no esta conectado el motor electrico"
Else
Print "Esta concectado,activo el motor electrico"
Endif
End
Public Sub moverMasRapido()
If conectado = False Then
Print "No se puede mover más rápido porque no esta conectado el motor electrico"
Else
Print "Moviendo más rápido... aumentando el voltaje"
Endif
End
Public Sub detener()
If concectar = False Then
Print "No se puede detener motor electrico porque esta no conectado...."
Else
Print "Deteniendo motor electrico"
Endif
End
Public Sub desconectar()
Print "Desconectando el motor electrico"
conectado = False
End