i2c mit deiner Lösung hats geklappt
Trotzdem danke auch an die anderen
i2c mit deiner Lösung hats geklappt
Trotzdem danke auch an die anderen
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.
#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