\' Gambas class file
Inherits Irecurso
Private husu As Usuario
Private hnivel As Integer
Private numeroAccesoIntentados As Integer
Private numeroAccesoPermitidos As Integer
Public Function getNumeroAccesoIntentados() As Integer
Return numeroAccesoIntentados
End
Public Function getNumeroAccesoPermitidos() As Integer
Return numeroAccesoPermitidos
End
Public Sub setNumeroAccesoIntentadosContador()
numeroAccesoIntentados += 1
End
Public Sub setNumeroAccesoPermitidosContador()
numeroAccesoPermitidos += 1
End
Public Function getnivel() As Integer
Return hnivel
End
Public Sub setnivel(Value As Integer)
hnivel = Value
End
Public Function getusu() As Usuario
Return husu
End
Public Sub setusu(Value As Usuario)
husu = Value
End
\'funcion principal
Public Function acceder() As String
\'algoritmo que sera definido en las clases que heredan de RecursoProxy
End