fmainJugadorValoracion

' Gambas class file

Private vjug As New Intervalo

Private total_minutos_jugados As Integer = 360

Public Sub _new()

End

Public Sub Form_show()

  Dim j As Jugador

  j = New Delantero("Cristiano", 235, 14, 4)

  escribeValoracionJugador(j, total_minutos_jugados)

  j = New Portero("Iker", 360, 10, 2)

  escribeValoracionJugador(j, total_minutos_jugados)

  j = New Delantero("Mesi", 280, 13, 0)

  escribeValoracionJugador(j, total_minutos_jugados)

  j = New Portero("Victor Valdes", 360, 11, 6)

  escribeValoracionJugador(j, total_minutos_jugados)

End

Public Sub escribeValoracionJugador(j As Jugador, totalminutos As Integer)

  Print "El jugador " & j.getnombre() & " obtuvo una valoracion de " & j.calcularValoracion(total_minutos_jugados)

End

Public Sub Form_Open()

End

Public Sub ToolButton1_Click()

  Dim j As Jugador

  If RadioButtonDelantero.Value = True Then
    j = New Delantero(TextBoxNombre.text, ValueBoxMinutosJugados.value, ValueBoxSalario.value, ValueBoxgolMarcado.value)
  Else
    j = New Portero(TextBoxNombre.text, ValueBoxMinutosJugados.value, ValueBoxSalario.value, ValueBoxgolEncajado.value)

  Endif

  Message.Info("El jugador " & j.getnombre() & " obtuvo una valoracion de " & j.calcularValoracion(total_minutos_jugados))

End