\' 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