Hallo an alle,
Wie in der Überschrift ersichtlich möchte ich mit dem Random Befehl arbeiten, im Prinzip möchte ich mir damit
per Zufall meine Lottozahlen generieren lassen.
Das Script an sich ist bereits fertig, ich zerbreche mir aber bereits seit einigen Stunden den Kopf wie ich denn "doppelbenennungen" ausschließen kann.
Denn bei 6 aus 49 gibt es ja jede Zahl nur einmal =)
Habt ihr dazu eine Idee ?
Hier mal das bisherige Script :
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$1 = Random(1,49,1) ;legt erste Zahl fest
$2 = Random(1,49,1) ;legt zweite Zahl fest
$3 = Random(1,49,1) ;legt dritte Zahl fest
$4 = Random(1,49,1) ;legt vierte Zahl fest
$5 = Random(1,49,1) ;legt fünfte Zahl fest
$6 = Random(1,49,1) ;legt sechste Zahl fest
$Form1 = GUICreate("Lottozahlen", 192, 184, -1, -1) ;Erstellt Gui
GUISetBkColor(0xFFFFFF) ; Färbt Gui Weiss
$Input1 = GUICtrlCreateInput("-", 48, 32, 30, 21) ;Ausgabefeld Zahl 1
$Input2 = GUICtrlCreateInput("-", 48, 56, 30, 21) ;Ausgabefeld Zahl 2
$Input3 = GUICtrlCreateInput("-", 48, 80, 30, 21) ;Ausgabefeld Zahl 3
$Input4 = GUICtrlCreateInput("-", 112, 32, 30, 21) ;Ausgabefeld Zahl 4
$Input5 = GUICtrlCreateInput("-", 112, 56, 30, 21) ;Ausgabefeld Zahl 5
$Input6 = GUICtrlCreateInput("-", 112, 80, 30, 21) ;Ausgabefeld Zahl 6
$Label1 = GUICtrlCreateLabel("Ihre Gewinnzahlen diese Woche sind : ", 0, 0, 189, 17) ;Einfacher Text
$Label2 = GUICtrlCreateLabel("Viel Glück !", 66, 120, 58, 17) ;Einfacher Text
$Button1 = GUICtrlCreateButton("Zahlen Bereitstellen", 40, 152, 107, 25) ;Auslösen der Funktion
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Create ()
EndSwitch
WEnd
Func _Create ()
GUICtrlSetData($Input1,$1) ;gibt die Zahl 1
GUICtrlSetData($Input2,$2) ;gibt die Zahl 1
GUICtrlSetData($Input3,$3) ;gibt die Zahl 1
GUICtrlSetData($Input4,$4) ;gibt die Zahl 1
GUICtrlSetData($Input5,$5) ;gibt die Zahl 1
GUICtrlSetData($Input6,$6) ;gibt die Zahl 1
EndFunc
Gruß und Danke , Eistee