aplicacion

' Gambas class file

Public Sub usarMotorComun()

  Dim m As New MotorComun

  M.encender()
  m.acelerar()
  m.apagar()

End

Public Sub usarMotorEconomico()

  Dim m As New MotorEconomico

  M.encender()
  m.acelerar()
  m.apagar()

End

Public Sub usarMotorElectrico()

  Dim m As New MotorElectricoAdapter

  M.encender()
  m.acelerar()
  m.apagar()

End