Не могу понять почему, мое волновое число не увеличивается после того, как я нажму "отправить". Кроме того, массив предназначен для сортировки оценок каждого серфера от каждого судьи по возрастанию.
Как это:
Дэвид (серфер)
- Мат 7
- Фран 6.3
- Сэм 6
- Шун 5,5
- Тим 4
Это только для одной волны для этого серфера. Серфер может заниматься серфингом до 5 волн, поэтому у меня будет 5 таких для каждого серфера. В настоящее время массив смешивает все оценки волн для любого волнового числа, он не обрабатывает оценку волны от волны 1 по-разному для оценки волны от волны 2 или 3 и т. Д.
Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
If txtScore.Text <= 10 Then
recnoSurfer = CInt(Val(New Text.StringBuilder((From ch In cmbSurfer.Text.ToCharArray Where IsNumeric(ch)).ToArray).ToString))
recnoJudge = CInt(Val(New Text.StringBuilder((From ch In cmbJudge.Text.ToCharArray Where IsNumeric(ch)).ToArray).ToString))
i = 0
Do While wavescore(recnoJudge, recnoSurfer, i) <> 0
i = i + 1
wavenum = i
Loop
If i < 6 Then
txtwavenum.Text = wavenum + 1
wavescore(recnoJudge, recnoSurfer, i) = txtScore.Text
txtScore.Text = ""
Else
MsgBox("Maximum amount of waves have been met.")
txtScore.Text = ""
End If
Else
MsgBox("Score submitted invalid.")
txtScore.Text = ""
End If
Dim swap As Decimal
For k = 0 To 5
For j = 0 To 4
If wavescore(j, recnoSurfer, wavenum) < wavescore(j + 1, recnoSurfer, wavenum) Then
swap = wavescore(j, recnoSurfer, wavenum)
wavescore(j, recnoSurfer, wavenum) = wavescore(j + 1, recnoSurfer, wavenum)
wavescore(j + 1, recnoSurfer, wavenum) = swap
End If
Next
Next
Console.WriteLine("......")
For i = 0 To 4
Console.WriteLine(wavescore(i, recnoSurfer, wavenum))
Next
End Sub
Любая помощь будет оценена.