Hallo,
ich habe einen Algorithmus entwickelt, der die genauen 6 Zahlen für die nächste Lotto ziehung errechnet...^^ nein scherz.
der Vater eines Freundes wollte aus Spaß son programm haben, ich habs ihm gecodet. Am nächsten tag hat er die Zahlen in den Schein eingetragen und hat folgendes gewonnen: ...... nichts xDD
also der erfolg ist nciht garantiert^^
Code:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
Global $Z1 = 1, $Z2 = 42, $Z3 = 26, $Z4 = 18, $Z5 = 39, $Z6 = 8, $msg
GUICreate("Lotto Zahlen", 230, 100)
GUICtrlCreateLabel( "Zahlen für die nächste Lotto Ziehung:", 5, 10)
Global $btn_generic = GUICtrlCreateButton( "Generieren", 10, 30, 100, 20)
Global $btn_beenden = GUIctrlcreatebutton( "Beenden", 116, 30, 100, 20)
$I1 = GUICtrlCreateInput( "", 10, 60, 30, 20)
$I2 = GUICtrlCreateInput( "", 45, 60, 30, 20)
$I3 = GUICtrlCreateInput( "", 80, 60, 30, 20)
$I4 = GUICtrlCreateInput( "", 115, 60, 30, 20)
$I5 = GUICtrlCreateInput( "", 150, 60, 30, 20)
$I6 = GUICtrlCreateInput( "", 185, 60, 30, 20)
GUISetState()
start()
func start()
while 1
$msg = GUIGetMsg()
Select
case $msg = -3
Exit
case $msg = $btn_beenden
Exit
case $msg = $btn_generic
show()
EndSelect
WEnd
EndFunc
func show()
GUICtrlSetData($btn_generic, "Stop")
while 1
$msg = GUIGetMsg()
$Z1 = $Z1 + 1
$Z2 = $Z2 + 2
$Z3 = $Z3 + 3
$Z4 = $Z4 + 8
$Z5 = $Z5 + 3
$Z6 = $Z6 + 9
Select
case $msg = $btn_generic
GUICtrlSetData($btn_generic, "Generieren")
start()
case $Z1 > 49
$Z1 = Random(0, 11, 1)
case $Z2 > 49
$Z2 = Random(5, 21, 1)
case $Z3 > 49
$Z3 = Random(1, 5, 1)
case $Z4 > 49
$Z4 = Random(0, 6, 1)
case $Z5 > 49
$Z5 = Random(11, 28, 1)
case $Z6 > 49
$Z6 = Random(8, 15, 1)
EndSelect
GUICtrlSetData($I1, $Z1)
GUICtrlSetData($I2, $Z2)
GUICtrlSetData($I3, $Z3)
GUICtrlSetData($I4, $Z4)
GUICtrlSetData($I5, $Z5)
GUICtrlSetData($I6, $Z6)
sleep(20)
WEnd
EndFunc
Ist ein total simples Prinzip. Bitte verbesserungen, kritiken, Tipps etc. nennen, danke!
mfg
hauke96