Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Public Sub _new()
- End
- Public Sub Form_Open()
- Dim director As New AutoDirector
- Dim FordFocus As New FordBuilder
- Dim FiatPalio As New FiatBuilder
- Dim vehiculo As Auto
- director.setAutoBuilder(FordFocus)
- director.construtAuto()
- vehiculo = director.getAuto()
- Print "Vehiculo construido.."
- Print " marca: " & vehiculo.getmarca()
- Print " modelo: " & vehiculo.getModelo()
- Print "Paso a construir otro vehiculo...."
- director.setAutoBuilder(FiatPalio)
- director.construtAuto()
- vehiculo = director.getAuto()
- Print "Vehiculo construido.."
- Print " marca: " & vehiculo.getmarca()
- Print " modelo: " & vehiculo.getModelo()
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement