fiatbuilder

' Gambas class file

Inherits AutoBuilder

Public Sub buildMarca()

  Super.Vehiculo.setmarca("Fiat")

End

Public Sub buildModelo()

  Super.Vehiculo.setModelo("Palio")

End

Public Sub buildMotor()

  Dim m As New Motor

  m.setNumero(23422)
  m.setPotencia("23 HP")
  Super.Vehiculo.setmotor(m)

End

Public Sub buildPuerta()

  Super.Vehiculo.setCantidadDePuertas(2)

End