document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private conectado As Boolean = False
  4.  
  5. Public Sub _new()
  6.  
  7.   Print "Creando motor electrico"
  8.   conectado = False
  9.  
  10. End
  11.  
  12. Public Sub concectar()
  13.  
  14.   Print "Conectando motor electrico"
  15.   conectado = True
  16.  
  17. End
  18.  
  19. Public Sub activar()
  20.  
  21.   If conectado = False Then
  22.     Print "No se puede activar porque no esta conectado el motor electrico"
  23.    
  24.   Else
  25.     Print "Esta concectado,activo el motor electrico"
  26.   Endif
  27.  
  28. End
  29.  
  30. Public Sub moverMasRapido()
  31.  
  32.   If conectado = False Then
  33.     Print "No se puede mover más rápido porque no esta conectado el motor electrico"
  34.   Else
  35.     Print "Moviendo más rápido... aumentando el voltaje"
  36.   Endif
  37.  
  38. End
  39.  
  40. Public Sub detener()
  41.  
  42.   If concectar = False Then
  43.     Print "No se puede detener motor electrico porque esta no conectado...."
  44.   Else
  45.     Print "Deteniendo motor electrico"
  46.   Endif
  47.  
  48. End
  49.  
  50. Public Sub desconectar()
  51.  
  52.   Print "Desconectando el motor electrico"
  53.   conectado = False
  54.  
  55. End
');