\' Gambas class file
Inherits Intervalo
Public malisimo As String = "malisimo"
Public malo As String = "malo"
Public normal As String = "normal"
Public bueno As String = "bueno"
Public galactico As String = "galactico"
Public Sub _new()
\'creo los datos de los intervalos
Super.add(malisimo, -9999, 0)
Super.add(malo, 0, 10)
Super.add(normal, 10, 20)
Super.add(bueno, 20, 40)
Super.add(galactico, 40, 9999)
End
Public Function valorar(puntos As Integer) As String
Return Super.responder(puntos)
End