document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Vehiculo
  4.  
  5. Private codigo As Integer
  6.  
  7. Public Function generarCodigo() As Integer
  8.  
  9.   Return Int(Rnd(1, 9999))
  10.  
  11. End
  12.  
  13. Public Function getCodigo() As Integer
  14.  
  15.   Return codigo
  16.  
  17. End
  18.  
  19. Public Function setCodigo(cod As Integer)
  20.  
  21.   codigo = cod
  22.  
  23. End
  24.  
  25. Public Function codigodeVehiculo()
  26.  
  27.   Message.Info("El Codigo del MicroBus es : " & getCodigo())
  28.   Return
  29.  
  30. End
');