document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private valorarjug As New ValoracionJugador
  4.  
  5. Private hnombre As String
  6. Private hminutosJugador As Integer
  7. Public hsalario As Integer
  8. Private hminutos_partido As Integer = 90
  9.  
  10. Public Sub New(nombre As String, minutosJugados As Integer, salario As Integer)
  11.  
  12.   hnombre = nombre
  13.  
  14.   hminutosJugador = minutosJugados
  15.   hsalario = salario
  16.  
  17. End
  18.  
  19. \'metodo plantilla
  20. Public Sub calcularValoracion(TotalMinutosEquipoEnTemporada As Integer) As String
  21.  
  22.   Dim puntos As Single
  23.  
  24.   If (juegaMenosDel20PorCientoDeLosMinutos(TotalMinutosEquipoEnTemporada)) Then Return valorarjug.malisimo
  25.  
  26.   puntos = Me.calculaPuntosPorObjetivos() - Me.getPuntosPenalizacionPorSalarioAlto()
  27.   \'puntos = calculaPuntosPorObjetivos() - getPuntosPenalizacionPorSalarioAlto() -> esta forma no es correcta ya que no llama al metodo de la clase hija
  28.   Return getValoracionEnFuncionDePuntos(puntos)
  29.  
  30. End
  31.  
  32. Private Function juegaMenosDel20PorCientoDeLosMinutos(TotalMinutosEquipoEnTemporada As Integer) As Single
  33.  
  34.   Return hminutosJugador < TotalMinutosEquipoEnTemporada * 0.2
  35.  
  36. End
  37.  
  38. Public Function calculaPuntosPorObjetivos() As Single \'
  39.  
  40. End
  41.  
  42. Public Function getPuntosPenalizacionPorSalarioAlto() As Single
  43.  
  44. End
  45.  
  46. Private Function getValoracionEnFuncionDePuntos(puntos As Single) As String
  47.  
  48.   Return valorarjug.responder(puntos)
  49.  
  50. End
  51.  
  52. Public Function getPartidosJugados() As Single
  53.  
  54.   Return hminutosJugador / hminutos_partido
  55.  
  56. End
  57.  
  58. Public Function getnombre() As String
  59.  
  60.   Return hnombre
  61.  
  62. End
');