Progressbar soll %te errechnen^^

[WiiZocker]

Hi^^
Ich hoffe ihr könnt mir helfen, unzwar versuche ich eine progressbar so zu programmieren das sie zb. 10% von 500 errechnet, woraufhin sie dann die 10% anzeigen soll also 10% grün sein sollen.
Doch wie mache ich das?

Hoffe ihr habt verstanden was ich meine.

[lolkop]

du fragst tatsächlich in einem autoit forum wie prozentrechnung funktioniert?...

prozent wert = (aktueller wert / maximalwert) * 100

[Shkal]

Was is daran so schwer?

GUICreate("",240,50)
$cProgress = GUICtrlCreateProgress(20,15,200,20)
GUISetState()

GUICtrlSetData($cProgress,10) ; <- this is where the magic happens

While GUIGetMsg() <> -3
WEnd

[WiiZocker]

Danke euch
Aber keiner hatte genau recht^^ naja hab es wohl nicht verständlich genug gepostet....
Aber ihr wart nah dran xD
Danke euch trotzem (=

[luckkylooser]

Meinst du sowas in der Art?

PHP Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 415, 92, 192, 124)
$Progress1 = GUICtrlCreateProgress(16, 8, 238, 17)
$Label_Prozent = GUICtrlCreateLabel("0", 272, 8, 36, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label_Prozentzeichen = GUICtrlCreateLabel("%", 312, 8, 17, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Los", 184, 48, 75, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("=", 336, 8, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("", 352, 8, 60, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Zahl = InputBox("Deine Zahl", "Bitte gib deine Zahl ein:")
            $Prozentzahl = $Zahl / 100 * 25 ;Damit rechnest du die 10% aus
            GUICtrlSetData($Progress1, $Prozentzahl)
            GUICtrlSetData($Label_Prozent, $Prozentzahl)
            GUICtrlSetData($Label2, $Prozentzahl)
    EndSwitch
WEnd 


[WiiZocker]

Jap, so ähnlich.
Ich poste mal den Bot
Vieleicht finded ihr ja raus warum das mit dem speichern und auslesen nicht so gut funkt aber die Progressbar bringt mich durcheinander...

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}","Ende")
;Für die einstellungen
HotKeySet ("{F1}" , "Iwohin")
HotKeySet ("{F2}" , "Hausanklicken")
HotKeySet ("{F3}" , "Besuchen")
HotKeySet ("{F4}" , "Aktion")
HotKeySet ("{F5}" , "Rausgehen")

Global $IwohinX,$IwohinY,$HausanklickenX,$HausanklickenY,$BesuchenX,$BesuchenY,$AktionX,$AktionY,$RausgehenX,$RausgehenY,$Iwo_X,$Iwo_Y,$Haus_X,$Haus_Y,$Besuchen_X,$Besuchen_Y,$Aktion_X,$Aktion_Y,$Rausgehen_X,$Rausgehen_Y

;Hauptfenster
#Region ### START Koda GUI section ### Form=C:\Users\Jan\Desktop\AutoIt\Grundstück Besucher\Grundstück besucher GUI.kxf
$Fenster = GUICreate("Grundstück besucher By WiiZocker", 324, 143, 257, 161,-1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Schliessen = GUICtrlCreateButton("Schließen", 40, 80, 75, 25, 0)
$Starten = GUICtrlCreateButton("Starten", 232, 80, 75, 25, 0)
$Label4 = GUICtrlCreateLabel("Wieviele Grundstücke besuchen:", 8, 16, 162, 17)
$Besuchen = GUICtrlCreateInput("100", 176, 16, 57, 21)
$Coords = GUICtrlCreateButton("Coordinaten festlegen", 112, 48, 123, 25, 0)
$Prozess = GUICtrlCreateProgress(56, 112, 254, 17)
$Label5 = GUICtrlCreateLabel("Prozess:", 8, 112, 44, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Einstellungen
#Region ### START Koda GUI section ### Form=
$Einstellungen = GUICreate("Einstellungen", 233, 237, 192, 124)
$Group1 = GUICtrlCreateGroup("Einstellen", 0, 0, 225, 153)
$Label1 = GUICtrlCreateLabel("Irgendwohin (F1)", 8, 24, 83, 17)
$Iwo_X = GUICtrlCreateInput("", 136, 24, 33, 21)
$Iwo_Y = GUICtrlCreateInput("", 176, 24, 33, 21)
$Label2 = GUICtrlCreateLabel("X", 152, 8, 11, 17)
$Label3 = GUICtrlCreateLabel("Y", 184, 8, 11, 17)
$Label4 = GUICtrlCreateLabel("Haus anklicken (F2)", 8, 48, 99, 17)
$Haus_X = GUICtrlCreateInput("", 136, 48, 33, 21)
$Haus_Y = GUICtrlCreateInput("", 176, 48, 33, 21)
$Label5 = GUICtrlCreateLabel("Besuchen anklicken (F3)", 8, 72, 122, 17)
$Besuchen_X = GUICtrlCreateInput("", 136, 72, 33, 21)
$Besuchen_Y = GUICtrlCreateInput("", 176, 72, 33, 21)
$Label6 = GUICtrlCreateLabel("Gewünschte Aktion (F4)", 8, 96, 118, 17)
$Aktion_X = GUICtrlCreateInput("", 136, 96, 33, 21)
$Aktion_Y = GUICtrlCreateInput("", 176, 96, 33, 21)
$Label7 = GUICtrlCreateLabel("Raus gehen anklicken (F5)", 8, 120, 132, 17)
$Rausgehen_X = GUICtrlCreateInput("", 136, 120, 33, 21)
$Rausgehen_Y = GUICtrlCreateInput("", 176, 120, 33, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Zurueck = GUICtrlCreateButton("Zurück", 8, 176, 75, 25, 0)
$Speichern = GUICtrlCreateButton("Speichern", 128, 176, 75, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			
Case $Schliessen
	Exit
	

	
Case $Coords
	GUISetState(@SW_HIDE,$Fenster)	
	GUISetState(@SW_SHOW,$Einstellungen)	
	
;HIER WIRD ES WICHTIG GLAUBE ICH--------------------------------
Case $Starten
	If FileExists("Einstellungen.ini") = 1 Then ;Später auf 1 stellen!!!
		
$Iwo_X = IniRead("Einstellungen","Coordinaten","Iwohin_X","")
$Iwo_Y = IniRead("Einstellungen","Coordinaten","Iwohin_Y","")
	
$Haus_X = IniRead("Einstellungen","Coordinaten","Hausanklicken_X","")
$Haus_Y	= IniRead("Einstellungen","Coordinaten","Hausanklicken_Y","")
		
$Besuchen_X = IniRead("Einstellungen","Coordinaten","Besuchen_X","")
$Besuchen_Y	= IniRead("Einstellungen","Coordinaten","Besuchen_Y","")
		
$Aktion_X =	IniRead("Einstellungen","Coordinaten","Aktion_X","")
$Aktion_Y = IniRead("Einstellungen","Coordinaten","Aktion_Y","")
		
$Rausgehen_X = IniRead("Einstellungen","Coordinaten","Rausgehen_X","")
$Rausgehen_Y = IniRead("Einstellungen","Coordinaten","Rausgehen_Y","")
		
		Sleep(1000)
$Zaehler = 0
$Teilzahl = 100 ;BRAUCHE ICH DAS????


	While 1;$i <= GUICtrlRead($Besuchen)
$Set =  $Teilzahl / GUICtrlRead($Besuchen)
ToolTip("Klicke irgendwohin.")
MouseClick("left" , $Iwo_X, $Iwo_Y, 3);Iwohin
Sleep(200)
ToolTip("Gehe zum nächstem Haus.")
Send("{Right}")
Sleep(3000)
ToolTip("Klicke das Haus an.")
MouseClick("left" , $Haus_X, $Haus_Y, 3);Haus anklicken
Sleep(3000)
ToolTip("Besuche bewohner")
MouseClick("left" , $Besuchen_X, $Besuchen_Y, 3);Besuchen
Sleep(3000)
ToolTip("Führe gewünschte aktion aus(=.")
MouseClick("left" , $Aktion_X, $Aktion_Y, 3);Aktion
Sleep(6000)
ToolTip("Warte auf dem ende der Aktion.")
Sleep(8000)
ToolTip("Gehe wieder hinaus.")
MouseClick("left" , $Rausgehen_X, $Rausgehen_Y, 3);Rausgehen
Sleep(3000)

$Teilzahl = $Teilzahl * 2;HIER NEHM ICH SIE *2 DAMIT DER BALKEN WEITERLÄUFT UND NICHT STEHENBLEIBT



$Zaehler = $Zaehler + 1
GUICtrlSetData($Prozess, $Set)
If $Zaehler == GUICtrlRead($Besuchen) Then
		ExitLoop
	EndIf



WEnd

		
	Else
	MsgBox(0,"Fehler","Bitte erst den Button: [Coordinaten festlegen] Anklicken und den anweisungen folgen.")
EndIf



;Für das Einstellungs fenster:
Case $Zurueck
	GUISetState(@SW_HIDE,$Einstellungen)
	GUISetState(@SW_SHOW,$Fenster)	
	
Case $Speichern
		IniWrite("Einstellungen.ini","Coordinaten","Iwohin_X",""&GUICtrlRead($Iwo_X)&"")
		IniWrite("Einstellungen.ini","Coordinaten","Iwohin_Y",""&GUICtrlRead($Iwo_Y)&"")
		
		IniWrite("Einstellungen.ini","Coordinaten","Hausanklicken_X",""&GUICtrlRead($Haus_X)&"")
		IniWrite("Einstellungen.ini","Coordinaten","Hausanklicken_Y",""&GUICtrlRead($Haus_Y)&"")

		IniWrite("Einstellungen.ini","Coordinaten","Besuchen_X",""&GUICtrlRead($Besuchen_X)&"")
		IniWrite("Einstellungen.ini","Coordinaten","BesuchenY",""&GUICtrlRead($Besuchen_Y)&"")

		IniWrite("Einstellungen.ini","Coordinaten","Aktion_X",""&GUICtrlRead($Aktion_X)&"")
		IniWrite("Einstellungen.ini","Coordinaten","Aktion_Y",""&GUICtrlRead($Aktion_Y)&"")
		
		IniWrite("Einstellungen.ini","Coordinaten","Rausgehen_X",""&GUICtrlRead($Rausgehen_X)&"")
		IniWrite("Einstellungen.ini","Coordinaten","Rausgehen_Y",""&GUICtrlRead($Rausgehen_Y)&"")

	EndSwitch
WEnd

Func Ende()
	Exit
EndFunc

;Einstellungen:
Func Iwohin()
		;X------------------
	$IwohinX = MouseGetPos()
		GUICtrlSetData($Iwo_X,$IwohinX[1])
	;Y------------------
	$IwohinY = MouseGetPos()
	GUICtrlSetData($Iwo_Y,$IwohinY[1])
	EndFunc

Func Hausanklicken()
		;X------------------
	$HausanklickenX = MouseGetPos()
		GUICtrlSetData($Haus_X,$HausanklickenX[1])
	;Y------------------
	$HausanklickenY = MouseGetPos()
	GUICtrlSetData($Haus_Y,$HausanklickenY[1])
EndFunc

Func Besuchen()
		;X------------------
	$BesuchenX = MouseGetPos()
		GUICtrlSetData($Besuchen_X,$BesuchenX[1])
	;Y------------------
	$BesuchenY = MouseGetPos()
	GUICtrlSetData($Besuchen_Y,$BesuchenY[1])
EndFunc

Func Aktion()
		;X------------------
	$AktionX = MouseGetPos()
		GUICtrlSetData($Aktion_X,$AktionX[1])
	;Y------------------
	$AktionY = MouseGetPos()
	GUICtrlSetData($Aktion_Y,$AktionY[1])
EndFunc

Func Rausgehen()
		;X------------------
	$RausgehenX = MouseGetPos()
		GUICtrlSetData($Rausgehen_X,$RausgehenX[1])
	;Y------------------
	$RausgehenY = MouseGetPos()
	GUICtrlSetData($Rausgehen_Y,$RausgehenY[1])
EndFunc
;Es könten Globale $ fehlen.PRÜFEN
;Maus klickt in die ecke oben links

[lolkop]

das speichern und laden funktioniert nicht, weil du bei ini funktionen "Einstellungen" als name der ini nutzt. richtig wäre natürlich "Einstellungen.ini".
desweiteren hast du beim speichern von Besuchen_Y einen schreibfehler.

du machst auchnoch einen anderen fehler:

$Iwo_X = IniRead("Einstellungen.ini", "Coordinaten", "Iwohin_X", "")

hiermit überschreibst du das handle deiner inputs. natürlich müssen die input handles in einer anderen variable gespeichert sein als die werte.

und das mit der progressbar hast du glaube ich noch nicht so wirklich verstanden^^ die gibt immer prozente aus. und die werden wie bereits von mir gepostet so berechnet:
prozent wert = (aktueller wert / maximalwert) * 100

ich gehe mal davon aus das die progressbar jedesmal wenn deine codeschleife

ToolTip("Klicke irgendwohin.")
MouseClick("left", $Iwo_X, $Iwo_Y, 3);Iwohin
Sleep(200)
ToolTip("Gehe zum nächstem Haus.")
Send("{Right}")
Sleep(3000)
ToolTip("Klicke das Haus an.")
MouseClick("left", $Haus_X, $Haus_Y, 3);Haus anklicken
Sleep(3000)
ToolTip("Besuche bewohner")
MouseClick("left", $Besuchen_X, $Besuchen_Y, 3);Besuchen
Sleep(3000)
ToolTip("Führe gewünschte aktion aus(=.")
MouseClick("left", $Aktion_X, $Aktion_Y, 3);Aktion
Sleep(6000)
ToolTip("Warte auf dem ende der Aktion.")
Sleep(8000)
ToolTip("Gehe wieder hinaus.")
MouseClick("left", $Rausgehen_X, $Rausgehen_Y, 3);Rausgehen
Sleep(3000)

durchlaufen wurde, erhöht werden soll.

dh du setzt einfach einen laufzähler auf 1 am anfang und erhöhst ihn nach jedem durchlauf um 1.
die progressbar bekommt dann immer den wert (laufzähler / gesamtbesuche) * 100 zugewiesen.

zum schluss kann ich noch anmerken, dass du einige sachen schlecht bzw unnötig kompliziert umgesetzt hast^^

zb:

Func Iwohin()
	;X------------------
	$IwohinX = MouseGetPos()
	GUICtrlSetData($Iwo_X, $IwohinX[1])
	;Y------------------
	$IwohinY = MouseGetPos()
	GUICtrlSetData($Iwo_Y, $IwohinY[1])
EndFunc   ;==>Iwohin

mal davon abgesehen, dass die x position in $array[0] steht und nicht in $array[1], liest du ja per MouseGetPos() sowieso schon die position von x und y aus. das ganze brauchst du natürlich nur einmal ausführen.

Func Iwohin()
	$Iwohin = MouseGetPos()
	GUICtrlSetData($Iwo_X, $Iwohin[0])
	GUICtrlSetData($Iwo_Y, $Iwohin[1])
EndFunc   ;==>Iwohin

wäre also besser =)

ausserdem solltest du noch versuchen auf die sleeps zu verzichten, da die dein script blockieren... versuche das ganze mal mit timern zu realisieren.

Edit:
hier mal der code etwas anders aufgebaut mit timern statt sleep und beseitigten logik fehlern:

 Spoiler

HotKeySet("{ESC}", "Ende")
HotKeySet("{F1}", "Iwohin")
HotKeySet("{F2}", "Hausanklicken")
HotKeySet("{F3}", "Besuchen")
HotKeySet("{F4}", "Aktion")
HotKeySet("{F5}", "Rausgehen")

Global $Iwo_X, $Iwo_Y, $Haus_X, $Haus_Y, $Besuchen_X, $Besuchen_Y, $Aktion_X, $Aktion_Y, $Rausgehen_X, $Rausgehen_Y
Global $aktion = 1, $zaehler = 1, $go = False, $t = 0

;Hauptfenster
$Fenster = GUICreate("Grundstück besucher By WiiZocker", 324, 143, 257, 161, -1, 0x188)
$Schliessen = GUICtrlCreateButton("Schließen", 40, 80, 75, 25, 0)
$Starten = GUICtrlCreateButton("Starten", 232, 80, 75, 25, 0)
$Label4 = GUICtrlCreateLabel("Wieviele Grundstücke besuchen:", 8, 16, 162, 17)
$Besuchen = GUICtrlCreateInput("100", 176, 16, 57, 21)
$Coords = GUICtrlCreateButton("Coordinaten festlegen", 112, 48, 123, 25, 0)
$Prozess = GUICtrlCreateProgress(56, 112, 254, 17)
$Label5 = GUICtrlCreateLabel("Prozess:", 8, 112, 44, 17)
GUISetState(@SW_SHOW)

;Einstellungen
$Einstellungen = GUICreate("Einstellungen.ini", 233, 237, 192, 124)
$Group1 = GUICtrlCreateGroup("Einstellen", 0, 0, 225, 153)
$Label1 = GUICtrlCreateLabel("Irgendwohin (F1)", 8, 24, 83, 17)
$IwoX = GUICtrlCreateInput("", 136, 24, 33, 21)
$IwoY = GUICtrlCreateInput("", 176, 24, 33, 21)
$Label2 = GUICtrlCreateLabel("X", 152, 8, 11, 17)
$Label3 = GUICtrlCreateLabel("Y", 184, 8, 11, 17)
$Label4 = GUICtrlCreateLabel("Haus anklicken (F2)", 8, 48, 99, 17)
$HausX = GUICtrlCreateInput("", 136, 48, 33, 21)
$HausY = GUICtrlCreateInput("", 176, 48, 33, 21)
$Label5 = GUICtrlCreateLabel("Besuchen anklicken (F3)", 8, 72, 122, 17)
$BesuchenX = GUICtrlCreateInput("", 136, 72, 33, 21)
$BesuchenY = GUICtrlCreateInput("", 176, 72, 33, 21)
$Label6 = GUICtrlCreateLabel("Gewünschte Aktion (F4)", 8, 96, 118, 17)
$AktionX = GUICtrlCreateInput("", 136, 96, 33, 21)
$AktionY = GUICtrlCreateInput("", 176, 96, 33, 21)
$Label7 = GUICtrlCreateLabel("Raus gehen anklicken (F5)", 8, 120, 132, 17)
$RausgehenX = GUICtrlCreateInput("", 136, 120, 33, 21)
$RausgehenY = GUICtrlCreateInput("", 176, 120, 33, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Zurueck = GUICtrlCreateButton("Zurück", 8, 176, 75, 25, 0)
$Speichern = GUICtrlCreateButton("Speichern", 128, 176, 75, 25, 0)
GUISetState(@SW_HIDE)

While WinExists($Fenster)
	$msg = GUIGetMsg(1)
	Switch $msg[0]
		Case -3
			If $msg[1] = $Fenster Then Exit
			GUISetState(@SW_SHOW, $Fenster)
			GUISetState(@SW_HIDE, $Einstellungen)
		Case $Schliessen
			Exit
		Case $Coords
			GUISetState(@SW_HIDE, $Fenster)
			GUISetState(@SW_SHOW, $Einstellungen)
		Case $Starten
			ConsoleWrite(GUICtrlRead($Besuchen)&@CRLF)
			If FileExists("Einstellungen.ini") Then
				$Iwo_X = IniRead("Einstellungen.ini", "Coordinaten", "Iwohin_X", "")
				$Iwo_Y = IniRead("Einstellungen.ini", "Coordinaten", "Iwohin_Y", "")
				$Haus_X = IniRead("Einstellungen.ini", "Coordinaten", "Hausanklicken_X", "")
				$Haus_Y = IniRead("Einstellungen.ini", "Coordinaten", "Hausanklicken_Y", "")
				$Besuchen_X = IniRead("Einstellungen.ini", "Coordinaten", "Besuchen_X", "")
				$Besuchen_Y = IniRead("Einstellungen.ini", "Coordinaten", "Besuchen_Y", "")
				$Aktion_X = IniRead("Einstellungen.ini", "Coordinaten", "Aktion_X", "")
				$Aktion_Y = IniRead("Einstellungen.ini", "Coordinaten", "Aktion_Y", "")
				$Rausgehen_X = IniRead("Einstellungen.ini", "Coordinaten", "Rausgehen_X", "")
				$Rausgehen_Y = IniRead("Einstellungen.ini", "Coordinaten", "Rausgehen_Y", "")
				If Not $go Then
					$go = True
					GUICtrlSetData($Starten, "Stoppen")
					GUICtrlSetData($Prozess, 0)
				Else
					$go = False
					GUICtrlSetData($Starten, "Starten")
				EndIf
				$aktion = 1
				$zaehler = 1
			Else
				MsgBox(0, "Fehler", "Bitte erst den Button: [Coordinaten festlegen] Anklicken und den anweisungen folgen.")
			EndIf
		Case $Zurueck
			GUISetState(@SW_HIDE, $Einstellungen)
			GUISetState(@SW_SHOW, $Fenster)
		Case $Speichern
			IniWrite("Einstellungen.ini", "Coordinaten", "Iwohin_X", "" & GUICtrlRead($IwoX) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Iwohin_Y", "" & GUICtrlRead($IwoY) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Hausanklicken_X", "" & GUICtrlRead($HausX) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Hausanklicken_Y", "" & GUICtrlRead($HausY) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Besuchen_X", "" & GUICtrlRead($BesuchenX) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Besuchen_Y", "" & GUICtrlRead($BesuchenY) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Aktion_X", "" & GUICtrlRead($AktionX) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Aktion_Y", "" & GUICtrlRead($AktionY) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Rausgehen_X", "" & GUICtrlRead($RausgehenX) & "")
			IniWrite("Einstellungen.ini", "Coordinaten", "Rausgehen_Y", "" & GUICtrlRead($RausgehenY) & "")
		Case Else
			If $go And $zaehler <= GUICtrlRead($Besuchen) Then
				Switch $aktion
					Case 1
						If TimerDiff($t) > 3000 Then
							ToolTip("Klicke irgendwohin.")
							MouseClick("left", $Iwo_X, $Iwo_Y, 3);Iwohin
							$t = TimerInit()
							$aktion += 1
						EndIf
					Case 2
						If TimerDiff($t) > 200 Then
							ToolTip("Gehe zum nächstem Haus.")
							Send("{Right}")
							$t = TimerInit()
							$aktion += 1
						EndIf
					Case 3
						If TimerDiff($t) > 3000 Then
							ToolTip("Klicke das Haus an.")
							MouseClick("left", $Haus_X, $Haus_Y, 3);Haus anklicken
							$t = TimerInit()
							$aktion += 1
						EndIf
					Case 4
						If TimerDiff($t) > 3000 Then
							ToolTip("Besuche bewohner")
							MouseClick("left", $Besuchen_X, $Besuchen_Y, 3);Besuchen
							$t = TimerInit()
							$aktion += 1
						EndIf
					Case 5
						If TimerDiff($t) > 3000 Then
							ToolTip("Führe gewünschte aktion aus(=.")
							MouseClick("left", $Aktion_X, $Aktion_Y, 3);Aktion
							$t = TimerInit()
							$aktion += 1
						EndIf
					Case 6
						If TimerDiff($t) > 6000 Then
							ToolTip("Warte auf dem ende der Aktion.")
							$t = TimerInit()
							$aktion += 1
						EndIf
					Case 7
						If TimerDiff($t) > 8000 Then
							ToolTip("Gehe wieder hinaus.")
							MouseClick("left", $Rausgehen_X, $Rausgehen_Y, 3);Rausgehen
							$t = TimerInit()
							$aktion = 1
							GUICtrlSetData($Prozess, ($zaehler/GUICtrlRead($Besuchen))*100)
							$zaehler += 1
						EndIf
				EndSwitch
			ElseIf $go And $zaehler > GUICtrlRead($Besuchen) Then
				$go = False
				GUICtrlSetData($Starten, "Starten")
				ToolTip("Anzahl zu besuchender Grundstücke erreicht")
			EndIf
	EndSwitch
WEnd

Func Ende()
	Exit
EndFunc   ;==>Ende

;Einstellungen:
Func Iwohin()
	Local $Iwohin = MouseGetPos()
	GUICtrlSetData($IwoX, $Iwohin[0])
	GUICtrlSetData($IwoY, $Iwohin[1])
EndFunc   ;==>Iwohin

Func Hausanklicken()
	Local $Hausanklicken = MouseGetPos()
	GUICtrlSetData($HausX, $Hausanklicken[0])
	GUICtrlSetData($HausY, $Hausanklicken[1])
EndFunc   ;==>Hausanklicken

Func Besuchen()
	Local $Besuchen = MouseGetPos()
	GUICtrlSetData($BesuchenX, $Besuchen[0])
	GUICtrlSetData($BesuchenY, $Besuchen[1])
EndFunc   ;==>Besuchen

Func Aktion()
	Local $Aktion = MouseGetPos()
	GUICtrlSetData($AktionX, $Aktion[0])
	GUICtrlSetData($AktionY, $Aktion[1])
EndFunc   ;==>Aktion

Func Rausgehen()
	Local $Rausgehen = MouseGetPos()
	GUICtrlSetData($RausgehenX, $Rausgehen[0])
	GUICtrlSetData($RausgehenY, $Rausgehen[1])
EndFunc   ;==>Rausgehen

[WiiZocker]

Hey danke dir
Hätte nicht gedacht das sich jemand so viel mühe macht xD

Aber alles super erklärt, also meine fehler usw. werde es versuchen in meinen nächsten skripten umzusetzen.

Ich stelle ihn ja online, er ist für nen Game.Naja aufjedenfall erwähne ich dich in der Readme trotz das es eigendlich nicht nötig ist.
Warum? Weil du mir SEHR geholfen hast.

[lolkop]

btw wenn du jetzt mein beispiel anguckst siehst du ja das ich aufgrund der timer eine aktions variable einführen musste, die immer mitlogged, welche aktion gerade durchgeführt wird.

wenn du diese variable schon hast, kannst du die processbar natürlich noch deutlich besser nutzen, indem du nach jeder aktion die neue prozentzahl ausrechnest.

zugegeben ist das hier schon etwas höhere logik und kann nichtmehr 1:1 aus dem tafelwerk übernommen werden :P

also prozente sind ja nur dazu da damit man griffigere zahlen hat.

hat man zb 5 sachen zu machen, hat man nach der ersten aktion 1/5 (0.2) fertig des gesamten fertig. in der prozentrechnung will man dieses "0." eliminieren, und rechnet dazu das ganze mal 100 (und erhält so 20%).

was aber wenn ich nun eine verschachtelung darinn habe?

angenommen ich habe 3 durchläufe mit je 7 aktionen in deinem script

also würde es etwas so aussehen:

[Durchlauf1]
Aktion1
Aktion2
Aktion3
Aktion4
Aktion5
Aktion6
Aktion7
[Durchlauf2]
Aktion1
Aktion2
Aktion3
Aktion4
Aktion5
Aktion6
Aktion7
[Durchlauf3]
Aktion1
Aktion2
Aktion3
Aktion4
Aktion5
Aktion6
Aktion7

nun will ich nach jeder aktion meinen aktuellen stand herausfinden.
dh ich arbeite nun mit aktionen. wie man leicht sieht ist:

gesamtanzahl der aktionen = anzahl der durchläufe * anzahl der aktionen

also in diesem falle haben wir demzufolge 3*7=21 aktionen.

wie bekommen wir jetzt aber die aktuelle aktionsnummer heraus?
angenommen wir sind in Durchlauf3 und wir wissen das wir bei Aktion2 sind.

nun müssen wir alle aktionen aus den ersten beiden durchläufen + die aktuelle aktion aus dem 3ten durchlauf rechnen.
somit ergibt sich die formel:

((Durchlauf-1)*anzahl der Aktionen) + aktuelle Aktion

nun haben wir also aktuell und max wieder bestimmt und setzen es in unsere prozentrechenformel ein:

allgemein:
(aktuell/max) * 100

speziel:
((((Durchlauf-1)*anzahl von Aktionen)+Aktion) / (anzahl von Durchläufen * anzahl von Aktionen)) * 100

in autoit sieht das ganze in meinem code dann so aus:

(((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100

nun können wir also unsere switch abfrage erweitern und erhalten:

 Spoiler

Switch $aktion
	Case 1
		If TimerDiff($t) > 3000 Then
			ToolTip("Klicke irgendwohin.")
			MouseClick("left", $Iwo_X, $Iwo_Y, 3);Iwohin
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion += 1
		EndIf
	Case 2
		If TimerDiff($t) > 200 Then
			ToolTip("Gehe zum nächstem Haus.")
			Send("{Right}")
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion += 1
		EndIf
	Case 3
		If TimerDiff($t) > 3000 Then
			ToolTip("Klicke das Haus an.")
			MouseClick("left", $Haus_X, $Haus_Y, 3);Haus anklicken
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion += 1
		EndIf
	Case 4
		If TimerDiff($t) > 3000 Then
			ToolTip("Besuche bewohner")
			MouseClick("left", $Besuchen_X, $Besuchen_Y, 3);Besuchen
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion += 1
		EndIf
	Case 5
		If TimerDiff($t) > 3000 Then
			ToolTip("Führe gewünschte aktion aus(=.")
			MouseClick("left", $Aktion_X, $Aktion_Y, 3);Aktion
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion += 1
		EndIf
	Case 6
		If TimerDiff($t) > 6000 Then
			ToolTip("Warte auf dem ende der Aktion.")
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion += 1
		EndIf
	Case 7
		If TimerDiff($t) > 8000 Then
			ToolTip("Gehe wieder hinaus.")
			MouseClick("left", $Rausgehen_X, $Rausgehen_Y, 3);Rausgehen
			$t = TimerInit()
			GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
			$aktion = 1
			$zaehler += 1
		EndIf
EndSwitch

somit wird nach jeder durchgeführten aktion die progressbar aktualisiert.

das ganze könnte man jetzt noch weiter erweitern, indem man die timer zeiten noch mit ein bezieht. dann wäre man sogar in der lage eine fließend steigende processbar zu erstellen, wie man es von ladebalken gewohnt ist.

das werde ich jetzt hier aber nicht für dich übernehmen :P wenn du das willst kannst du das aber auch alleine umsetzen, wenn du wirklich verstanden hast was ich gerade erklärt habe

[WiiZocker]

Also eigendlcih ist das Thema für mich abgeschlossen.Da ich den Bot wohl nicht erweitern werde sondern schon an menem nächsten projekt denke.

Trotzdem danke und er sagt mir bei dem einfügen das da was mit dem WEnd nicht stimmt:

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Jan\Desktop\AutoIt\Grundstück Besucher\Grundstück besucher By WiiZocker\Grundstück besucher.au3"
C:\Users\Jan\Desktop\AutoIt\Grundstück Besucher\Grundstück besucher By WiiZocker\Grundstück besucher.au3 (159) : ==> "Wend" statement with no matching "While" statement.:
WEnd

Hier der Code xD

PHP Code:

HotKeySet("{ESC}", "Ende")
HotKeySet("{F1}", "Iwohin")
HotKeySet("{F2}", "Hausanklicken")
HotKeySet("{F3}", "Besuchen")
HotKeySet("{F4}", "Aktion")
HotKeySet("{F5}", "Rausgehen")

Global $Iwo_X, $Iwo_Y, $Haus_X, $Haus_Y, $Besuchen_X, $Besuchen_Y, $Aktion_X, $Aktion_Y, $Rausgehen_X, $Rausgehen_Y
Global $aktion = 1, $zaehler = 1, $go = False, $t = 0

;Hauptfenster
$Fenster = GUICreate("Grundstück besucher By WiiZocker", 324, 143, 257, 161, -1, 0x188)
$Schliessen = GUICtrlCreateButton("Schließen", 40, 80, 75, 25, 0)
$Starten = GUICtrlCreateButton("Starten", 232, 80, 75, 25, 0)
$Label4 = GUICtrlCreateLabel("Wieviele Grundstücke besuchen:", 8, 16, 162, 17)
$Besuchen = GUICtrlCreateInput("100", 176, 16, 57, 21)
$Coords = GUICtrlCreateButton("Coordinaten festlegen", 112, 48, 123, 25, 0)
$Prozess = GUICtrlCreateProgress(56, 112, 254, 17)
$Label5 = GUICtrlCreateLabel("Prozess:", 8, 112, 44, 17)
GUISetState(@SW_SHOW)

;Einstellungen
$Einstellungen = GUICreate("Einstellungen.ini", 233, 237, 192, 124)
$Group1 = GUICtrlCreateGroup("Einstellen", 0, 0, 225, 153)
$Label1 = GUICtrlCreateLabel("Irgendwohin (F1)", 8, 24, 83, 17)
$IwoX = GUICtrlCreateInput("", 136, 24, 33, 21)
$IwoY = GUICtrlCreateInput("", 176, 24, 33, 21)
$Label2 = GUICtrlCreateLabel("X", 152, 8, 11, 17)
$Label3 = GUICtrlCreateLabel("Y", 184, 8, 11, 17)
$Label4 = GUICtrlCreateLabel("Haus anklicken (F2)", 8, 48, 99, 17)
$HausX = GUICtrlCreateInput("", 136, 48, 33, 21)
$HausY = GUICtrlCreateInput("", 176, 48, 33, 21)
$Label5 = GUICtrlCreateLabel("Besuchen anklicken (F3)", 8, 72, 122, 17)
$BesuchenX = GUICtrlCreateInput("", 136, 72, 33, 21)
$BesuchenY = GUICtrlCreateInput("", 176, 72, 33, 21)
$Label6 = GUICtrlCreateLabel("Gewünschte Aktion (F4)", 8, 96, 118, 17)
$AktionX = GUICtrlCreateInput("", 136, 96, 33, 21)
$AktionY = GUICtrlCreateInput("", 176, 96, 33, 21)
$Label7 = GUICtrlCreateLabel("Raus gehen anklicken (F5)", 8, 120, 132, 17)
$RausgehenX = GUICtrlCreateInput("", 136, 120, 33, 21)
$RausgehenY = GUICtrlCreateInput("", 176, 120, 33, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Zurueck = GUICtrlCreateButton("Zurück", 8, 176, 75, 25, 0)
$Speichern = GUICtrlCreateButton("Speichern", 128, 176, 75, 25, 0)
GUISetState(@SW_HIDE)

While WinExists($Fenster)
    $msg = GUIGetMsg(1)
    Switch $msg[0]
        Case -3
            If $msg[1] = $Fenster Then Exit
            GUISetState(@SW_SHOW, $Fenster)
            GUISetState(@SW_HIDE, $Einstellungen)
        Case $Schliessen
            Exit
        Case $Coords
            GUISetState(@SW_HIDE, $Fenster)
            GUISetState(@SW_SHOW, $Einstellungen)
        Case $Starten
            ConsoleWrite(GUICtrlRead($Besuchen)&@CRLF)
            If FileExists("Einstellungen.ini") Then
                $Iwo_X = IniRead("Einstellungen.ini", "Coordinaten", "Iwohin_X", "")
                $Iwo_Y = IniRead("Einstellungen.ini", "Coordinaten", "Iwohin_Y", "")
                $Haus_X = IniRead("Einstellungen.ini", "Coordinaten", "Hausanklicken_X", "")
                $Haus_Y = IniRead("Einstellungen.ini", "Coordinaten", "Hausanklicken_Y", "")
                $Besuchen_X = IniRead("Einstellungen.ini", "Coordinaten", "Besuchen_X", "")
                $Besuchen_Y = IniRead("Einstellungen.ini", "Coordinaten", "Besuchen_Y", "")
                $Aktion_X = IniRead("Einstellungen.ini", "Coordinaten", "Aktion_X", "")
                $Aktion_Y = IniRead("Einstellungen.ini", "Coordinaten", "Aktion_Y", "")
                $Rausgehen_X = IniRead("Einstellungen.ini", "Coordinaten", "Rausgehen_X", "")
                $Rausgehen_Y = IniRead("Einstellungen.ini", "Coordinaten", "Rausgehen_Y", "")
                If Not $go Then
                    $go = True
                    GUICtrlSetData($Starten, "Stoppen")
                    GUICtrlSetData($Prozess, 0)
                Else
                    $go = False
                    GUICtrlSetData($Starten, "Starten")
                EndIf
                $aktion = 1
                $zaehler = 1
            Else
                MsgBox(0, "Fehler", "Bitte erst den Button: [Coordinaten festlegen] Anklicken und den anweisungen folgen.")
            EndIf
        Case $Zurueck
            GUISetState(@SW_HIDE, $Einstellungen)
            GUISetState(@SW_SHOW, $Fenster)
        Case $Speichern
            IniWrite("Einstellungen.ini", "Coordinaten", "Iwohin_X", "" & GUICtrlRead($IwoX) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Iwohin_Y", "" & GUICtrlRead($IwoY) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Hausanklicken_X", "" & GUICtrlRead($HausX) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Hausanklicken_Y", "" & GUICtrlRead($HausY) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Besuchen_X", "" & GUICtrlRead($BesuchenX) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Besuchen_Y", "" & GUICtrlRead($BesuchenY) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Aktion_X", "" & GUICtrlRead($AktionX) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Aktion_Y", "" & GUICtrlRead($AktionY) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Rausgehen_X", "" & GUICtrlRead($RausgehenX) & "")
            IniWrite("Einstellungen.ini", "Coordinaten", "Rausgehen_Y", "" & GUICtrlRead($RausgehenY) & "")
        Case Else
            If $go And $zaehler <= GUICtrlRead($Besuchen) Then
                Switch $aktion
    Case 1
        If TimerDiff($t) > 3000 Then
            ToolTip("Klicke irgendwohin.")
            MouseClick("left", $Iwo_X, $Iwo_Y, 3);Iwohin
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion += 1
        EndIf
    Case 2
        If TimerDiff($t) > 200 Then
            ToolTip("Gehe zum nächstem Haus.")
            Send("{Right}")
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion += 1
        EndIf
    Case 3
        If TimerDiff($t) > 3000 Then
            ToolTip("Klicke das Haus an.")
            MouseClick("left", $Haus_X, $Haus_Y, 3);Haus anklicken
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion += 1
        EndIf
    Case 4
        If TimerDiff($t) > 3000 Then
            ToolTip("Besuche bewohner")
            MouseClick("left", $Besuchen_X, $Besuchen_Y, 3);Besuchen
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion += 1
        EndIf
    Case 5
        If TimerDiff($t) > 3000 Then
            ToolTip("Führe gewünschte aktion aus(=.")
            MouseClick("left", $Aktion_X, $Aktion_Y, 3);Aktion
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion += 1
        EndIf
    Case 6
        If TimerDiff($t) > 6000 Then
            ToolTip("Warte auf dem ende der Aktion.")
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion += 1
        EndIf
    Case 7
        If TimerDiff($t) > 8000 Then
            ToolTip("Gehe wieder hinaus.")
            MouseClick("left", $Rausgehen_X, $Rausgehen_Y, 3);Rausgehen
            $t = TimerInit()
            GUICtrlSetData($Prozess, (((($zaehler-1)*7) + $aktion) / (GUICtrlRead($Besuchen)*7)) * 100)
            $aktion = 1
            $zaehler += 1
        EndIf
EndSwitch
WEnd

Func Ende()
    Exit
EndFunc   ;==>Ende

;Einstellungen:
Func Iwohin()
    Local $Iwohin = MouseGetPos()
    GUICtrlSetData($IwoX, $Iwohin[0])
    GUICtrlSetData($IwoY, $Iwohin[1])
EndFunc   ;==>Iwohin

Func Hausanklicken()
    Local $Hausanklicken = MouseGetPos()
    GUICtrlSetData($HausX, $Hausanklicken[0])
    GUICtrlSetData($HausY, $Hausanklicken[1])
EndFunc   ;==>Hausanklicken

Func Besuchen()
    Local $Besuchen = MouseGetPos()
    GUICtrlSetData($BesuchenX, $Besuchen[0])
    GUICtrlSetData($BesuchenY, $Besuchen[1])
EndFunc   ;==>Besuchen

Func Aktion()
    Local $Aktion = MouseGetPos()
    GUICtrlSetData($AktionX, $Aktion[0])
    GUICtrlSetData($AktionY, $Aktion[1])
EndFunc   ;==>Aktion

Func Rausgehen()
    Local $Rausgehen = MouseGetPos()
    GUICtrlSetData($RausgehenX, $Rausgehen[0])
    GUICtrlSetData($RausgehenY, $Rausgehen[1])
EndFunc   ;==>Rausgehen 


Du kennst doch sicher die lösung xDD

[lolkop]

deswegen sollte man immer auf die richtige formatierung vom code achten.

nach dem ende vom aktionsswitch, kommt noch lange kein ende der schleife.
danach musst du ersteinmal die if abfrage die direkt nach dem else case gestartet wurde beenden. wenn das getan ist, kannst du deine gui switch abfrage beenden. wenn die beendet wurde, kannst du die schleife beenden.

am ende sollte das ende also etwa so aussehen:

						EndIf  ; ende der timer abfrage von $aktion case 7
				EndSwitch ; ende vom aktions switch
			EndIf ; ende go abfrage
	EndSwitch ; ende vom gui switch
WEnd ; main loop ende

[WiiZocker]

Und nochmals ein fetttes dankeschön ;D
Du bist echt eine hilfe