Es gibt ja immer diese kleinen Spiele.
Hier ist so eines.
Also die vorgegebenen 10 Sekunden um die beiden Zahlen einzutragen, um so auf das verhergesagte Ergebnis zu kommen brauche ich nicht?
Das ganze kann man auf jeder Kinderparty als Zaubertrick zeigen.
Spoiler anzeigen
C
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Zahlen", 418, 256, 381, 324)
$Label1 = GUICtrlCreateLabel("Gast, gebe eine vierstellige Zahl ein: ", 16, 16, 178, 17)
$Input1 = GUICtrlCreateInput(Random(1000, 9999, 1), 312, 16, 57, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Label2 = GUICtrlCreateLabel("Gast, gebe noch eine vierstellige Zahl ein: + ", 16, 48, 286, 17)
$Input2 = GUICtrlCreateInput(Random(1000, 9999, 1) , 312, 48, 57, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
sleep(100)
$Label3 = GUICtrlCreateLabel("jetzt gebe ich eine vierstellige Zahl ein: +", 16, 80, 285, 17)
$Input3 = GUICtrlCreateInput("0000", 312, 76, 57, 21)
$Label4 = GUICtrlCreateLabel("Gast, gebe noch eine vierstellige Zahl ein: +", 11, 108, 292, 17)
$Input4 = GUICtrlCreateInput(Random(1000, 9999, 1), 311, 107, 57, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Label5 = GUICtrlCreateLabel("jetzt gebe ich noch eine vierstellige Zahl ein: +", 17, 136, 285, 17)
$Input5 = GUICtrlCreateInput("0000", 309, 135, 57, 21)
$Label6 = GUICtrlCreateLabel("Ergebnis: =", 16, 168, 288, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input6 = GUICtrlCreateInput("0000", 309, 167, 57, 21)
GUICtrlSetBkColor(-1, 0xB9D1EA)
$Label7 = GUICtrlCreateLabel("Wenn der Gast die erste Zahl eingegeben hat, nehme ich ein Zettel und schreibe", 16, 200, 386, 17)
$Label8 = GUICtrlCreateLabel("eine Zahl auf . Meinem Gast sage ich, das ich das Ergebnis schon einmal aufgeschrieben", 16, 216, 382, 17)
$Label9 = GUICtrlCreateLabel("habe. ", 16, 232, 34, 17)
GUISetState(@SW_SHOW)
; MsgBox(0, "Ergebnis wird sein ?", "Das Ergebnis wird sein ? " & (Number(GUICtrlRead($Input1)) -2 +20000))
$Ergebnis = Number(GUICtrlRead($Input1)) + Number(GUICtrlRead($Input2)) + Number(GUICtrlRead($Input3)) + Number(GUICtrlRead($Input4)) + Number(GUICtrlRead($Input5))
GUICtrlSetData($Input6,$Ergebnis)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
MsgBox(0, "Das Ergebnis wird sein ?", "Das Ergebnis wird sein ? " & (Number(GUICtrlRead($Input1)) -2 +20000))
$Ergebnis = Number(GUICtrlRead($Input1)) + Number(GUICtrlRead($Input2)) + Number(GUICtrlRead($Input3)) + Number(GUICtrlRead($Input4)) + Number(GUICtrlRead($Input5))
GUICtrlSetData($Input6,$Ergebnis)
sleep(10000)
WEnd
Alles anzeigen
Gute Nacht !