Variablen Abfragen

AlvinX2 · 06/15/2013, 13:41

Huhu! Sorry, ich nochmal ^^

Ich würde gerne in einem Programm am Anfang eine Abfrage machen, wie oft es durchgeführt werden soll, also einfach die Möglichkeit eine Zahl einzugeben, welche dann als Variable für einen Loop bzw eine Do-Until funktion benutzt wird. Ich denke mal das funktioniert über eine .ini datei, nur habe ich dazu nicht viel im Hilfebereich von AutoIt und im Internet gefunden. Der eingegebene Wert soll dann als Variable $Amount gesetzt werden

EDIT: Am liebsten wär es mir, wenn ich via KODA in meinem Fenster eine Zeile einbauen könnte, wo man die Zahl angeben kann. Ich habe dazu eine Input Zeile in meiner Form, kann ich einfach in der Funktion dann "Input1=$Amount" sagen?

YatoDev · 06/15/2013, 13:52

Code:

$
Amount = IniRead()
$i = 0
Do
bla
$i = $i + 1
Until $i = $Amount

AlvinX2 · 06/15/2013, 14:00

Zirka so hab ich mir das vorgestellt, kann ich jetzt durch den Input in der Inputzeile meiner Form noch den Inhalt für die Ini setzen?

YatoDev · 06/15/2013, 14:07

GuiCtrlRead
kannst du bitte mal die grundlagen der grundlagen lernen du kennst ja anscheinend nichtmal den Hilfe file im autoit ordner

AlvinX2 · 06/15/2013, 15:42

Gut, dank deinem Kommentar kenn ich jetzt auch das Hilfeverzeichnis

Wobei mir das aber nicht hilft, ist, wenn ich versuche eine ,in die Gui eingebundene Progressbar zum laufen zu kriegen, die als endwert $amount benutzt, und nach jedem durchlauf ein stück voranschreitet:

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <ProgressConstants.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$C4Bot = GUICreate("C4 Bot v3.0 by DTR", 286, 83, 192, 124)

GUISetBkColor(0x383838)

$Anzahl = GUICtrlCreateInput("Anzahl", 88, 8, 105, 21)

GUICtrlSetFont(-1, 8, 400, 0, "Neuropolitical Rg")

$Label1 = GUICtrlCreateLabel("Version 3.0", 208, 0, 74, 33)

GUICtrlSetFont(-1, 16, 400, 0, "Myriad Arabic")

GUICtrlSetColor(-1, 0xFFFFFF)

$Label2 = GUICtrlCreateLabel("DueToReasons", 0, 0, 62, 14)

GUICtrlSetFont(-1, 10, 400, 0, "Myriad Arabic")

GUICtrlSetColor(-1, 0xFFFFFF)

$Start = GUICtrlCreateButton("Start", 104, 32, 75, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Outer zone B")

GUICtrlSetColor(-1, 0x000000)

GUICtrlSetBkColor(-1, 0xFFFBF0)

$Fortschritt = GUICtrlCreateProgress(8, 64, 270, 15)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



While 1

    $amount=GuiCtrlRead($Anzahl())

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit







Case $Start

                    If ProcessExists("notepad.exe") Then

                    For $p = 0 to $amount Step +1

                    Next

                    MsgBox(0,"Info","")

                $i = 0

                    Do

                    ControlSend ("Unbenannt","","Edit1", "{SPACE DOWN}")

                    sleep(100)

                    ControlSend ("Unbenannt","","Edit1", "{SPACE UP}")

                    sleep(1024)

                    ControlSend ("Unbenannt","","Edit1", "{4 DOWN}")

                    sleep(100)

                    ControlSend ("Unbenannt","","Edit1", "{4 UP}")

                    Sleep(1024)

                    ControlClick("Unbenannt","","Edit1","Right")

                    Sleep(1024)

                    ControlClick("Unbenannt","","Edit1","Left")

                    Sleep(100)

                    $i = $i + 1

                    $p = $p + 1

                    GUICtrlSetData($Fortschritt,$p)

                Until $i = $amount

MsgBox(0,"Bot finished", "Der Bot hat seine Arbeit beendet.")





                    Else

                        MsgBox(0, "","")

EndIf

    EndSwitch

WEnd

Player821 · 06/15/2013, 16:23

lass die Progressbar bei 100% und rechne dir über Dreisatz mit $amount oder $anzahl den Fortschritt aus den du in deiner For-Schleife an deine Progressbar übergibst.

GUICtrlSetData($Fortschritt, ***)

AlvinX2 · 06/15/2013, 16:52

Quote:

Originally Posted by Player821

lass die Progressbar bei 100% und rechne dir über Dreisatz mit $amount oder $anzahl den Fortschritt aus den du in deiner For-Schleife an deine Progressbar übergibst.

GUICtrlSetData($Fortschritt, ***)

Entweder stell ich mich grad richtig behindert an, oder es geht nicht. Ich hab jetzt folgendes gemacht:

$p = 100/$amount
$s = 100/$amount
GUICtrlSetData($Fortschritt,$p)
$p = $p+$s

Das geht aber einfach nicht, nach dem ersten durchlauf verändert der ladebalken sich nichtmehr

Player821 · 06/15/2013, 17:12

GUICtrlSetData($Fortschritt, ($p+1)*100/GUICtrlRead($amount))

wenn deine Schleife selbst keinen Sinn macht bringt das auch nichts

lolkop · 06/15/2013, 23:10

wenn du etwas nachdenkst, kannst du das ganze noch deutlich genauer anzeigen...

baust du das ganze noch etwas dynamischer und entfernst scriptblockaden, könnte das ganze am ende etwa so aussehen:

Code:

Dim $DEBUG=True, $run, $timer, $action, $counter, $amount, $text[2]=['Start','Stop']
Dim $data[6][2]=[["{SPACE DOWN}",100],["{SPACE UP}",100],["{4 DOWN}",1024],["{4 UP}",100],["Right",1024],["Left", 1024]]
GUICreate("C4 Bot v3.0 by DTR", 286, 83, Default, Default, 0x10C80000)
GUISetBkColor(0x383838)
$Anzahl = GUICtrlCreateInput("Anzahl", 88, 8, 105, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Neuropolitical Rg")
$Label1 = GUICtrlCreateLabel("Version 3.0", 208, 0, 74, 33)
GUICtrlSetFont(-1, 16, 400, 0, "Myriad Arabic")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("DueToReasons", 0, 0, 62, 14)
GUICtrlSetFont(-1, 10, 400, 0, "Myriad Arabic")
GUICtrlSetColor(-1, 0xFFFFFF)
$Start = GUICtrlCreateButton("Start", 104, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Outer zone B")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Fortschritt = GUICtrlCreateProgress(8, 64, 270, 15)

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $Start
			$run = Not $run
			GUICtrlSetData($Start, $text[$run])
			$counter = 0
			$amount = GuiCtrlRead($Anzahl())
			GUICtrlSetData($Fortschritt, 0)
	EndSwitch
	If $run And $counter < $amount Then
		For $i=0 To UBound($data)-1
			SpecialSend($i, $data[$i][0], $data[$i][1])
		Next
	EndIf
WEnd

Func SpecialSend($index, $dataToSend, $waitBeforeSend)
	If TimerDiff($timer)>=$waitBeforeSend And $index=$action Then
		If $DEBUG Then
			ConsoleWrite($dataToSend&@CRLF)
		Else
			ControlSend ("Unbenannt","","Edit1", $dataToSend)
		EndIf
		GUICtrlSetData($Fortschritt,((($counter)*UBound($data))+$index+1)/($amount*UBound($data))*100)
		$action += 1
		$timer = TimerInit()
		If $action >= UBound($data) Then
			$action = 0
			$counter += 1
		EndIf
		If $counter >= $amount Then
			$run= Not $run
			GUICtrlSetData($Start, $text[$run])
		EndIf
	EndIf
EndFunc

YatoDev · 06/15/2013, 23:52

W*100/p und so

lernt man doch alles in der schule und ist kein schweres thema

wenn du das nicht goigeln kann dann veraender den standard wert bei koda und ersetze diesen im script mit der globalen variable amount die du dann in der jeweiligen func umaenderst