fordbuilder

' Gambas class file

Inherits AutoBuilder

Public Sub buildMarca()

  Super.Vehiculo.setmarca("Ford")

End

Public Sub buildModelo()

  Super.Vehiculo.setModelo("Focus")

End

Public Sub buildMotor()

  Dim m As New Motor

  m.setNumero(23111)
  m.setPotencia("20 HP")
  Super.Vehiculo.setmotor(m)

End

Public Sub buildPuerta()

  Super.Vehiculo.setCantidadDePuertas(4)

End