Hey Leute
ich habe mal eine Frage zu meinem Lottoprogramm...
Es sollen Zufallszahlen erzeugt werden und dann sortiert wieder ausgegeben werden.
Die Funktion _ArraySort macht mir jedoch Probleme.
Es wird immer nur die letzte Spalte des Arrays sortiert.
Ich hoffe Ihr könnt mir helfen.
Danke
DFPWare
Spoiler anzeigen
#include <GuiConstants.au3>
#include <Array.au3>
GUICreate("LOTTO",320,480)
GUICtrlCreateLabel("Lotto [1 aus 49]",120,30)
GUICtrlCreateLabel("Anzahl der Tipps",10,80)
$input = GUICtrlCreateInput("",100,80,100)
$lotto = GUICtrlCreateButton("Tipp",210,78,100)
$liste = GUICtrlCreateListView("A|B|C|D|E|F",10,110,300,300)
$beenden = GUICtrlCreateButton("Beenden",120,430,100)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $lotto
$anzahl = GUICtrlRead($input)
Dim $array[6][$anzahl]
For $i = 0 To $anzahl-1 Step 1
For $p = 0 To 5 Step 1
$array[$p][$i] = Random(1,49,1)
Next
If $array[0][$i] <> $array[1][$i] And $array[0][$i] <> $array[2][$i] And $array[0][$i] <> $array[3][$i] And $array[0][$i] <> $array[4][$i] And $array[0][$i] <> $array[5][$i] And $array[1][$i] <> $array[2][$i] And $array[1][$i] <> $array[3][$i] And $array[1][$i] <> $array[4][$i] And $array[1][$i] <> $array[5][$i] And $array[2][$i] <> $array[3][$i] And $array[2][$i] <> $array[4][$i] And $array[2][$i] <> $array[5][$i] And $array[3][$i] <> $array[4][$i] And $array[3][$i] <> $array[5][$i] And $array[4][$i] <> $array[5][$i] Then ContinueLoop
Else
$i -= 1
EndIf
Next
Case $beenden
_ArrayDisplay($array)
For $k = 0 To $anzahl-1 Step 1
_ArraySort($array,0,0,0,$k)
Next
_ArrayDisplay($array)
EndSwitch
WEnd