NumAttemptError = Abs(mNumToFind - mNumUserAttempt)
Dim NumOfOperations As Int = cvCalculation.GetSize
Dim TimeSaved As Int
TimeSaved = mNumbersTimeAvailable
' Error points
Select NumAttemptError
Case 0 To 3
Points = 16000 - ((NumAttemptError * 2000) + (NumOfOperations * 500)) * TimeSaved
Case 4 To 10
Points = 6000 - ((NumAttemptError * 200) + (NumOfOperations * 400)) * TimeSaved
Case Else
Points = 0
End Select
A pare che non avevo notato che sottrai da 2 cifre fisse tutto il resto (il che significa che il punteggio massimo sarà 16.000 se tutto il calcolo restituisse zero e potrebbe pure essere negativo, se non si divide TimeSaved, nell'istruzione, con un giusto divisore)...
ma appunto sottrai dal punteggio NumOfOperations * 500 o 400, ovvero più è altro il numero di operazioni che sono state necessarie, più punti ti toglie e questo deve essere invertito.