Frage Autoit 2 While&WEnd Schleifen paralel laufen lassen

[Klickboy]

Hallo,
Ich lerne im moment autoit(Bot´s machen) und wolte fragen wie ich 2 while&WEnd schleifen in einer func paralel zueinander laufen lassen kann.
Also beide gleichzeitig
Sinn:
die erste schleife drückt die ganze zeit also so jede skunde
und die 2te so alle 30 minuten

so ungefär(soll heisen bei mir sieht´s ordentlicher aus) sieht es im mom bei mir aus:
$var1 = Inputbox ("" "" "" "")
$var2 = Inputbox ("" "" "" "")
bot()

func bot()
while
üwelche send ($var1)befehle sleep ect........(so jede sekunde)
wEnd
while
sleep (300000)
send ($var2)
wEnd
funcend

Pls help!!!!!!!

[kennyo]

Eine Schleife, eine Zählvariable.

Die eine Schleife drückt jede Sekunde, also jeden Schleifendurchgang den Zähler um 1 erhöhen.
Dann am Anfang der Schleife gucken ob die Zählvariable == 1800 (30 Minuten) ist, wenn ja das ausführen was alle 30 Minuten passieren soll und Zählvariable wieder auf 0.

Falls du es noch genauer haben willst, kannst du auch mit Timestamps arbeiten.

[felixli93]

Originally Posted by kennyo

Eine Schleife, eine Zählvariable.

Die eine Schleife drückt jede Sekunde, also jeden Schleifendurchgang den Zähler um 1 erhöhen.
Dann am Anfang der Schleife gucken ob die Zählvariable == 1800 (30 Minuten) ist, wenn ja das ausführen was alle 30 Minuten passieren soll und Zählvariable wieder auf 0.

Falls du es noch genauer haben willst, kannst du auch mit Timestamps arbeiten.

While 1
$timer = TimerInit ()
While 1
If TimerDiff ($timer) > 30000 Then
Send (...)
ExitLoop
EndIf
Send (...)
WEnd
WEnd

müsste normal so klappen (vllt ist auch ein denkfehler drin, hab das ganze nicht getestet)

oder evtl. mit AdlibEnable:

AdlibEnable (_funktion2)

While 1
Send (...)
Wend

Func _funktion2 ()
Sleep (30000)
Send (...)
EndFunc

sollte auch gehen

[Klickboy]

Vielen Liebn dank felixli93

While 1
$timer = TimerInit ()
While 1
If TimerDiff ($timer) > 30000 Then
Send (...)
ExitLoop
EndIf
Send (...)
WEnd
WEnd

funktioniert supa danke schön

[Shadow992]

Es ist möglich das mehr oder weniger paralel laufen zulassen :

Man nehme 2 verschiedene AutoIT projekte schreibt in den einen das Zählen rein und in
den anderen den normalen Text rein . So jetzt können die 2 Projekte ja nicht aufeinander zugreifen und vondaher sind alle variablen sinnlos ......

Aber auch dafür gibt es eine Lösung man nehme eine Ini Datei zur hilfe :

Projekt mit sourcecode ist im Anhang (schau es dir an du wirst verstehen wie ich das meine ;-) )

Das programm zählt jede sec 1 auf die Variable drauf ( und nebenbei könnte man natürlich irgendetwas anderes zum machen rein tun ) ich denke , du wirst verstehen wie ich das meine ;-)
Auch wenn das Programm jetzt nicht wirklich 2 sachen ausführt ;-)

[felixli93]

Originally Posted by Klickboy

hab doch nochma ein problem

 
[COLOR="Blue"]If[/COLOR] [COLOR="Navy"]TimerDiff[/COLOR] [COLOR="Red"]([COLOR="DarkRed"]$timer[/COLOR])[/COLOR] [COLOR="Red"]>[/COLOR] [COLOR="Red"]([COLOR="DarkRed"]$var13[/COLOR])[/COLOR] [COLOR="Blue"]Then[/COLOR]
[COLOR="Blue"]Send[/COLOR] [COLOR="Red"]([COLOR="DarkRed"]$var12[/COLOR])[/COLOR]

fuktioniert nich

es fehlt ein EndIf
sonst musst du das "Send (...)" direkt hinter Then (also in eine zeile) schreiben, dann brauchst du kein EndIf

wenn es daran nicht liegt, liegt es vllt daran, dass $var13 eine falsche zahl ist

um daten aus einer inputbox auszulesen brauchst du GuiCtrlRead ($var13)
GuiCtrlRead gibt dann den wert zurück, der in der inputbox $var13 steht
$var13 allein gibt nur eine GUI Id zurück, mit der du nichts anfangen kannst

[Atheuz]

[Klickboy]

Hallo Zusammen ;D,
Ich habe nochmal das gleiche Problem wie vorher.
Das letze mal habe ich das problem geloest indem ich 2 scripts hab laufen lassen.

dieses Mal ist dies Leider nicht Moeglich.
Zu euren Bisherigen Loesungsvorschlaegen:
Soetwas wie AdlibEnable giebt es anscheinend nicht.(in der Hilfe Datei fand ich nichts ähnliches und Autoit Erkennt den Befehl auch nicht an)
Den Timer kann ich auch nicht benutzen da in diesem Script Nicht gewartet werden soll
(okey doch aber nur 0,75 sekunden in denen wirklich nichts geschehen SOLL)

Ich versuche im moment ein Pacman aehnliches Spiel zu Kreieren.
In der Einen Schleife Bewegt sich ein Gegner
In der Anderen Ein Andere
Die Schritte der beiden gegner sollen gleichzeitig ausgefürt werden.
Es waere kein problem wenn die beiden gegner gleich viele schritte machen wuedern.Dies ist aber leider nicht der fall.

Ich zeig euch mal die beiden schleifen die paralel zueinander laufen sollen.

Ich denke das ich mich in mindestens einer sache Irre, ich komm nur nich drauf was^^.

func enemy1()
while 1
sleep(750)
guictrlsetimage($enemy1,"texturen/links_enemy.bmp")
$var6=$var6-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var6=$var6-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var6=$var6-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/runter_enemy.bmp")
$var8=$var8+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/links_enemy.bmp")
$var6=$var6-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var6=$var6-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/hoch_enemy.bmp")
$var8=$var8-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var8=$var8-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var8=$var8-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/runter_enemy.bmp")
$var8=$var8+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var8=$var8+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var8=$var8+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/rechts_enemy.bmp")
$var6=$var6+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var6=$var6+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/hoch_enemy.bmp")
$var8=$var8-50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

guictrlsetimage($enemy1,"texturen/rechts_enemy.bmp")
$var6=$var6+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var6=$var6+50
guictrlsetpos($enemy1,$var6,$var8)
sleep(750)

$var6=$var6+50
guictrlsetpos($enemy1,$var6,$var8)

wend
EndFunc

func enemy2()
while 1
sleep(750)
guictrlsetimage($enemy2,"texturen/links_enemy.bmp")
$var9=$var9-50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

$var9=$var9-50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

guictrlsetimage($enemy2,"texturen/runter_enemy.bmp")
$var10=$var10+50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

$var10=$var10+50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

guictrlsetimage($enemy2,"texturen/rechts_enemy.bmp")
$var9=$var9+50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

$var9=$var9+50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

guictrlsetimage($enemy2,"texturen/hoch_enemy.bmp")
$var10=$var10-50
guictrlsetpos($enemy2,$var9,$var10)
sleep(750)

$var10=$var10-50
guictrlsetpos($enemy2,$var9,$var10)
wend
EndFunc

EDIT: Mir is grade was eingefallen.
In der einen schleife wird die position 18 mal verändert bis das bild wieder an der ausgangsposition ist und die schleife erneut beginnt.
In der anderen 8 mal.
Ich koennete versuchen die beiden schleifen zu verbinden ,aber die beiden oefter in eine schleife stecken.
Das heist: Der komplette weg wird oefter abgelaufen bis die Schleife erneut beginnt.
Im Prinzip so wie frueher in der Grundschule mit den Bruechen auf einen gemeinsamen Nenner Bringen.

ALso koennte ich die 18ner schleife 4x da rein packen.(18x4=72)
und die 8ter schleife 9 mal.(8x9=72)
Dann lass ich die Befehle Abwechselnt Erfolgen und die Schleife endet punkt gleich.

1.Problem Das waere ein Riesenaufwand.
2.Problem Es wird wesentlich komplizierter wenn ich noch einen Dritten oder 4ten gegner dazupacke.