document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Irecurso
  4. Private husu As Usuario
  5. Private hnivel As Integer
  6. Private numeroAccesoIntentados As Integer
  7. Private numeroAccesoPermitidos As Integer
  8.  
  9. Public Function getNumeroAccesoIntentados() As Integer
  10.  
  11.   Return numeroAccesoIntentados
  12.  
  13. End
  14.  
  15. Public Function getNumeroAccesoPermitidos() As Integer
  16.  
  17.   Return numeroAccesoPermitidos
  18.  
  19. End
  20.  
  21. Public Sub setNumeroAccesoIntentadosContador()
  22.  
  23.   numeroAccesoIntentados += 1
  24.  
  25. End
  26.  
  27. Public Sub setNumeroAccesoPermitidosContador()
  28.  
  29.   numeroAccesoPermitidos += 1
  30.  
  31. End
  32.  
  33. Public Function getnivel() As Integer
  34.  
  35.   Return hnivel
  36.  
  37. End
  38.  
  39. Public Sub setnivel(Value As Integer)
  40.  
  41.   hnivel = Value
  42.  
  43. End
  44.  
  45. Public Function getusu() As Usuario
  46.  
  47.   Return husu
  48.  
  49. End
  50.  
  51. Public Sub setusu(Value As Usuario)
  52.  
  53.   husu = Value
  54.  
  55. End
  56.  
  57. \'funcion principal
  58. Public Function acceder() As String
  59.  
  60.   \'algoritmo que sera definido en las clases que heredan de RecursoProxy
  61.  
  62. End
');