Advertisement
jsbsan

fabricasMicrobus

Oct 23rd, 2013
1,627
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.22 KB | None | 0 0
  1. ' Gambas class file
  2.  
  3. Inherits VehiculodeTransporte
  4.  
  5. Public Function crearVehiculo() As Vehiculo
  6.  
  7.   Dim miMicroBus As New MicroBus
  8.  
  9.   miMicroBus.setcodigo(miMicroBus.generarCodigo())
  10.   Return miMicroBus
  11.  
  12. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement