taxi

' 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 Taxi es : " & getCodigo())
  Return

End