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
#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
EndFunc
Alles anzeigen
Wäre Super wenn ihr mir helfen könntet
Danke im Vorraus