Zufallszahlen

Hallo,ich hab hier ein kleines Problem beim Generieren von Zufallszahlen,die ich für ein kleines Farbcodespiel brauche,um die Anfangssequenz zu definieren.Und zwar sollen aus 9 verschiedenen Farben Random(1,9,1) zu Anfang des Spiels 4 ausgesucht werden,die in einer Schleife in einem Array adressiert werden.Soweit so gut.Bei mehrmaligen Check in der Console stelle ich aber fest,daß sich manche Zahlen im Array wiederholen.Ich hab zwar eine diesbezügliche Checkroutine eingebaut,die schein aber nicht zu helfen.

hier mein Code

func zufallsfarben()
dim $neuefarbe[4]
	for $anzahl=0 to 3
		$neuefarbe[$anzahl]=Random(1,9,1)
		if $anzahl>0 then
			for $a=1 to $anzahl-1
				if $neuefarbe[$anzahl]=$neuefarbe[$anzahl-$a] Then $neuefarbe[$anzahl]=Random(1,9,1)
			Next
		EndIf
		ConsoleWrite($neuefarbe[$anzahl] )
	Next
EndFunc

Wie muss ich die Überprüfung abändern,sodaß jede der 4 Zahlen von 1-9 nur einmal vorkommt

Hallo,

Ich würde das ganze so lösen:

Func _Zufallsfarben()
Local $aFarben[4],$sFarben="123456789"
For $Index=0 To 3
$aFarben[$Index]=StringMid($sFarben,Random(1,StringLen($sFarben),1),1)
$sFarben = StringReplace($sFarben,$aFarben[$Index],"")
Next
Return $aFarben
EndFunc

Lg, Fabian

Danke Fabian,schnelle Antwort,genau das,was ich wollte