document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   Dim director As New AutoDirector
  10.   Dim FordFocus As New FordBuilder
  11.   Dim FiatPalio As New FiatBuilder
  12.   Dim vehiculo As Auto
  13.  
  14.   director.setAutoBuilder(FordFocus)
  15.   director.construtAuto()
  16.  
  17.   vehiculo = director.getAuto()
  18.  
  19.   Print "Vehiculo construido.."
  20.   Print "     marca: " & vehiculo.getmarca()
  21.   Print "     modelo: " & vehiculo.getModelo()
  22.  
  23.   Print "Paso a construir otro vehiculo...."
  24.   director.setAutoBuilder(FiatPalio)
  25.   director.construtAuto()
  26.  
  27.   vehiculo = director.getAuto()
  28.  
  29.   Print "Vehiculo construido.."
  30.   Print "     marca: " & vehiculo.getmarca()
  31.   Print "     modelo: " & vehiculo.getModelo()
  32.  
  33. End
');