Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement