Run the code and see the sort problem on the first line.
The first line is not correct
Or is it not valid to use Sortarray for multidimensional arrays?
The greater the array is the more incorrect line youve got
Code: Select all
#NbElements = 6
Dim gevondenlijst.s(7,#NbElements)
gevondenlijst(0,1)="E "
gevondenlijst(0,2)="X "
gevondenlijst(0,3)="X "
gevondenlijst(0,4)="G "
gevondenlijst(0,5)="C "
gevondenlijst(0,6)="E "
gevondenlijst(1,1)="E "
gevondenlijst(1,2)="X "
gevondenlijst(1,3)="X "
gevondenlijst(1,4)="G "
gevondenlijst(1,5)="C "
gevondenlijst(1,6)="X "
gevondenlijst(2,1)="E "
gevondenlijst(2,2)="X "
gevondenlijst(2,3)="E "
gevondenlijst(2,4)="G "
gevondenlijst(2,5)="C "
gevondenlijst(2,6)="E "
gevondenlijst(3,1)="E "
gevondenlijst(3,2)="X "
gevondenlijst(3,3)="E "
gevondenlijst(3,4)="G "
gevondenlijst(3,5)="C "
gevondenlijst(3,6)="X "
gevondenlijst(4,1)="X "
gevondenlijst(4,2)="X "
gevondenlijst(4,3)="X "
gevondenlijst(4,4)="G "
gevondenlijst(4,5)="C "
gevondenlijst(4,6)="E "
gevondenlijst(5,1)="X "
gevondenlijst(5,2)="X "
gevondenlijst(5,3)="X "
gevondenlijst(5,4)="G "
gevondenlijst(5,5)="C "
gevondenlijst(5,6)="E "
gevondenlijst(6,1)="X "
gevondenlijst(6,2)="X "
gevondenlijst(6,3)="E "
gevondenlijst(6,4)="G "
gevondenlijst(6,5)="C "
gevondenlijst(6,6)="X "
OpenConsole()
For k=0 To #NbElements
Print(gevondenlijst(k,1)+" "+ gevondenlijst(k,2)+" "+gevondenlijst(k,3)+" "+gevondenlijst(k,4)+" "+gevondenlijst(k,5)+" "+gevondenlijst(k,6))
PrintN("")
Next
SortArray(gevondenlijst(), 2,0,6)
PrintN("")
PrintN("")
For k=0 To #NbElements
Print(gevondenlijst(k,1)+" "+ gevondenlijst(k,2)+" "+gevondenlijst(k,3)+" "+gevondenlijst(k,4)+" "+gevondenlijst(k,5)+" "+gevondenlijst(k,6))
PrintN("")
Next
MessageRequester("Information", "Sort finished !", 0)
End
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com