\' Gambas class file
Private valorarjug As New ValoracionJugador
Private hnombre As String
Private hminutosJugador As Integer
Public hsalario As Integer
Private hminutos_partido As Integer = 90
Public Sub New(nombre As String, minutosJugados As Integer, salario As Integer)
hnombre = nombre
hminutosJugador = minutosJugados
hsalario = salario
End
\'metodo plantilla
Public Sub calcularValoracion(TotalMinutosEquipoEnTemporada As Integer) As String
Dim puntos As Single
If (juegaMenosDel20PorCientoDeLosMinutos(TotalMinutosEquipoEnTemporada)) Then Return valorarjug.malisimo
puntos = Me.calculaPuntosPorObjetivos() - Me.getPuntosPenalizacionPorSalarioAlto()
\'puntos = calculaPuntosPorObjetivos() - getPuntosPenalizacionPorSalarioAlto() -> esta forma no es correcta ya que no llama al metodo de la clase hija
Return getValoracionEnFuncionDePuntos(puntos)
End
Private Function juegaMenosDel20PorCientoDeLosMinutos(TotalMinutosEquipoEnTemporada As Integer) As Single
Return hminutosJugador < TotalMinutosEquipoEnTemporada * 0.2
End
Public Function calculaPuntosPorObjetivos() As Single \'
End
Public Function getPuntosPenalizacionPorSalarioAlto() As Single
End
Private Function getValoracionEnFuncionDePuntos(puntos As Single) As String
Return valorarjug.responder(puntos)
End
Public Function getPartidosJugados() As Single
Return hminutosJugador / hminutos_partido
End
Public Function getnombre() As String
Return hnombre
End