i2c 
mit deiner Lösung hats geklappt
Trotzdem danke auch an die anderen
Beiträge von Pyruz
-
-
Erstmal danke an alle die hier geantwortet haben
Aber:
RR04: Das ist das Skript von deiner Seite das ich umbauen wollte (Keine Lösung von meinem Problem (ich will keine fest definierte zahl 999 wie bei dir))
Schnitzel: Dein Skript funktioniert bei mir leider auch nicht (Genau der gleiche Fehler wie bei mir)
@ic2 : Deine Lösung versteh ich kann sie aber nicht richtig umsetzen -
Hallo Autoit-Forum
Ich hab mich vor ein paar Tagen in Autoit ein wenig hineingelesen. Und mir ein ein Skript von http://ritzelrocker04.bplaced.net/wordpress/tutorials/zahlenraten/ (Zahlenraten) heruntergeladen.
Ich wollte es ein wenig überarbeiten, damit ich es lernen kann.
(Zwei funktionen einbauen "Nochmal-Funktion" statt dem "About" und eine Funktion, dass man bei Beginn des Programms den Zahlenraum selber auswählen kann
)Jetzt wollte ich Fragen ob, ihr mir dabei helfen könnt da sobald ich statt einem festen Zahlenraum eine Variable verwende fast immer die Meldung kommt "Die Zahl muss zwischen 0 und "der durch die Variable festgelegten Zahl" sein. Obwohl sie zwischen ihnen ist.
C
Alles anzeigen#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=zahlenraten.exe #AutoIt3Wrapper_Run_AU3Check=n #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Tidy_Stop_OnError=n #Obfuscator_Parameters=/striponly #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <process.au3> Opt('MustDeclareVars', 1) _main() Func _main() Local $grenze = InputBox("Grenze", "Bitte max. Wert eingeben:") Local $sTitle = "ZahlenRaten - Tut", $sDate = "13.09.2013", $sVersion = "0.4.3" Local $sMsgUpdate = '%s\n\nDer PC ermittelt eine zuf�llige Zahl, die von Dir\t' _ & '\nmit so wenig wie m�glichen Versuchen,\nerraten werden soll.' _ & '\nAls Hinweis bekommst Du eine Meldung,\nob Deine Zahl kleiner, gr��er oder richtig war.' _ & '\n\nVersion:\t%s\nBuild:\t%s\n\nAutor:\nRitzelrocker04 / RR04' _ & '\nritzelrocker04.bplaced.net\n\nWeiter zum UpdateCheck?' Local $nMsg, $btnClose, $btnGo, $iptNumber, $lblOut, $lblOutMsg, $btnNochmal Local $output, $number, $try = 0, $randomNumber = Random(0, $grenze, 1) GUICreate($sTitle, 300, 185) GUICtrlCreateLabel("Rate die Zahl zwischen 0 und " & $grenze, 35, 10, 230, 17, 0x0001) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $iptNumber = GUICtrlCreateInput("", 35, 35, 230, 20, 0x200) ;$iptNumber = 0 GUICtrlSetLimit(0, 9) $lblOut = GUICtrlCreateLabel("Hinweise.", 35, 65, 230, 17, 0x001) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $lblOutMsg = GUICtrlCreateLabel("Anzahl der Versuche :" & @TAB & $try, 35, 95, 230, 17, 0x001) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $btnNochmal = GUICtrlCreateButton("&nochmal", 35, 140, 75, 22) $btnGo = GUICtrlCreateButton("&Start", 115, 140, 75, 22, 0x0001) $btnClose = GUICtrlCreateButton("&Beenden", 195, 140, 75, 22) GUISetState() While True $nMsg = GUIGetMsg() Switch $nMsg Case -3, $btnClose ExitLoop Case $btnNochmal GUIDelete() Local $grenze = InputBox("Grenze", "Bitte max. Wert eingeben:") ShellExecute("Zahlenraten.exe") Exit Case $btnGo $try += 1 $number = GUICtrlRead($iptNumber) If($number <> "") And($number >= 0) And($number <= $grenze) Then Switch $randomNumber Case $randomNumber < $number $output = "Die gesuchte Zahl ist kleiner." Case $randomNumber > $number $output = "Die gesuchte Zahl ist groesser." Case Else $output = "Super ! Du hast die Zahl geraten !" EndSwitch GUICtrlSetData($lblOut, $output) GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $try) Else MsgBox(64, "Error", "Bitte eine Zahl zwischen 0 und " & $grenze & " eingeben !") EndIf EndSwitch WEnd EndFuncWäre Super wenn ihr mir helfen könntet
Danke im Vorraus
