document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits AutoBuilder
  4.  
  5. Public Sub buildMarca()
  6.  
  7.   Super.Vehiculo.setmarca("Fiat")
  8.  
  9. End
  10.  
  11. Public Sub buildModelo()
  12.  
  13.   Super.Vehiculo.setModelo("Palio")
  14.  
  15. End
  16.  
  17. Public Sub buildMotor()
  18.  
  19.   Dim m As New Motor
  20.  
  21.   m.setNumero(23422)
  22.   m.setPotencia("23 HP")
  23.   Super.Vehiculo.setmotor(m)
  24.  
  25. End
  26.  
  27. Public Sub buildPuerta()
  28.  
  29.   Super.Vehiculo.setCantidadDePuertas(2)
  30.  
  31. End
');