jugadorClasse

' 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