Zufallsreglung

DeepRed92

wen ich einen gui erstelle wo 2 zuffälige zahlen entstehen, wie kann ich da vermeiden das da die selben zahlen erfunden werden?

Wesloth

$a=random(0,100)
$b=random(0,100)
while $a=$b
$b=random(100)
wend

mfg Wesloth

DeepRed92

ja danke und wie mach ich es hiermit:

Code

#include <GUIConstants.au3>




$a = Random(0,49,1)
$b = Random(0,49,1)
$c = Random(0,49,1)
$d = Random(0,49,1)
$e = Random(0,49,1)
$f = Random(0,49,1)




GUICreate("Beispiel", 400,400)


GUICtrlCreateLabel($a,100,10)
GUICtrlCreateLabel($b,100,30)
GUICtrlCreateLabel($c,100,50)
GUICtrlCreateLabel($d,100,70)
GUICtrlCreateLabel($e,100,90)
GUICtrlCreateLabel($f,100,110)




GUISetState ()


While 1

WEnd

Alles anzeigen

ExBerliner

Zitat von Deepred

ja danke und wie mach ich es hiermit:

da hilft dir bestimmt mein "quark" : [ offen ] Zufallssortierung in ein Array

gruss exberliner

Wesloth

Ich weis jetzt zwar nicht genau wie du meinst aber ich versuch es einfach mal

Code

$a = Random(0,49,1)


$b = Random(0,49,1)
While ( $b = $a )
	$b = Random(0,49,1)
WEnd


$c = Random(0,49,1)
While  ( $c = $a ) Or ( $c = $b )
	$c = Random(0,49,1)
WEnd


$d = Random(0,49,1)
While  ( $d = $a ) Or ( $d = $b ) Or ( $d = $c )
	$d = Random(0,49,1)
WEnd


$e = Random(0,49,1)
While  ( $e = $a ) Or ( $e = $b ) Or ( $e = $c ) Or ( $e = $d )
	$e = Random(0,49,1)
WEnd


$f = Random(0,49,1)
While  ( $f = $a ) Or ( $f = $b ) Or ( $f = $c ) Or ( $f = $d ) Or ($f=$e)
	$f = Random(0,49,1)
WEnd

Alles anzeigen

**Oscar**

Oh, das passt ja. Da brauch ich mein Script ja nur etwas abändern:

Spoiler anzeigen

[autoit]

#include <array.au3>
Dim $array[50], $zahlen[6]
For $i = 1 To 49
$array[$i] = $i
Next
For $i = 0 To 5
$r = Random(1, UBound($array)-1, 1)
$zahlen[$i] = $array[$r]
_ArrayDelete($array, $r)
Next
_ArrayDisplay($zahlen)

[/autoit]

Soll das ein Lottozahlen-Programm werden?

DeepRed92

danke das ihr euch zeit genommen habt