Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Inherits Vehiculo
- Private codigo As Integer
- Public Function generarCodigo() As Integer
- Return Int(Rnd(1, 9999))
- End
- Public Function getCodigo() As Integer
- Return codigo
- End
- Public Function setCodigo(cod As Integer)
- codigo = cod
- End
- Public Function codigodeVehiculo()
- Message.Info("El Codigo del Bus es : " & Str$(Codigo))
- Return
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement