Mehrere Funktionen paralell ablaufen lassen?

Ich habe ein Programm programmiert bei dem ich mit einem Button mehrere Funktionen aufrufe.

Beispielsweise:

func OKButton() 
loop1() 
loop2() 
loop3() 
endfunc 


func loop1() 
do 
until blablabla = "blablabla" 
msgbox(1,"","Ereigniss erfüllt") 
end func 


func loop2() 
do 
until blablabla = "blablabla" 
msgbox(1,"","Ereigniss erfüllt") 
end func 


func loop3() 
do 
until blablabla = "blablabla" 
msgbox(1,"","Ereigniss erfüllt") 
end func

Das mal als Beispiel angenommen. Ich möchte das nun alle Funktionen gleichzeitig ablaufen. Zurzeit ist es aber so, das die Funktionen nacheinander ablaufen. Also erst wenn der 1. Loop vorbei is,t beginnt die zweite Funktion und nach der zweiten erst die Dritte.

Ich möchte das alle Funktionen paralell arbeiten.

Echt schade das das nicht geht.

Und so eine Art "DoEvents" Befehl wie in Visual Basic 6 gibt es auch nicht?

Hab gerae nochmal ein wenig geforscht

Was sagt ihr zu dieser Variante?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$counter1 = 0
$counter2 = 0
$counter3 = 0

Opt("GUIOnEventMode", 1)
GuiCreate("Test",450,400)
$Zeit_1 = GuiCtrlCreateLabel("0",10,5,100,20)
$Zeit_2 = GuiCtrlCreateLabel("0",10,35,100,20)
$Zeit_3 = GuiCtrlCreateLabel("0",10,65,100,20)
$Button1 = GUICtrlCreateButton("Start", 152, 48, 153, 49)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Stop", 152, 104, 153, 49)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetState(@SW_SHOW)

do
$msg = GuiGetMsg()
until $msg = -3

Func Form1Close()
exit
EndFunc

Func Button1Click()
AdlibRegister("_counter1",100) ; 10tel Sek
AdlibRegister("_counter2",500) ; 1/2 Sek
AdlibRegister("_counter3",1000) ; Sek
EndFunc

Func Button2Click()
AdlibUnRegister("_counter1")
AdlibUnRegister("_counter2")
AdlibUnRegister("_counter3")
EndFunc

func _counter1()
$counter1= $counter1+ 1
GuictrlSetData($Zeit_1,$counter1)
endfunc

func _counter2()
$counter2= $counter2+ 1
GuictrlSetData($Zeit_2,$counter2)
endfunc

func _counter3()
$counter3 = $counter3 + 1
GuictrlSetData($Zeit_3,$counter3)
endfunc

Aber sobald ich in irgendner Funktion ein Sleep oder nen Loop habe dann ists schon wieder vorbei... Naja schade

Es müsste echt noch einen DoEvents Befehl geben. Damit wäre das Problem gelöst.

Unter Visual Basic 6 konnte ich z.B eine "Delay" Funktion erstellen, bei der paralell ablaufende Funktionen trotzdem weiter arbeiten:

Achtung nicht wundern das ist VB6 Code

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long) 
Sub Delay(ByVal t As Double, Optional ByVal Doev As Boolean = True, Optional ByVal Interval As Long = 1) 
Dim i As Long 
Dim tStart As Double 


t = t / 1000 
tStart = Timer 


Do While Timer - tStart < t 
If Interval > 0 Then 
Sleep Interval 
End If 
If Doev = True Then 
DoEvents 
End If 
Loop 
End Sub

Und als Beispiel dann aufrufen für 1 Sek Pause:

Delay 1000

Das schöne war eben, das alle anderen gerade auch ablaufenden Funktionen, ebenso weiterarbeiten obwohl eine Delay Funktion in einer anderen gerade ablaufenden Funktion eingebaut war.

Naja ich möchte nichts spezielles machen und habe auch keinen entsprechenden VB Code.

Ich war mit AutoIT am programmieren und wollte eben etwas programmieren was nicht geklappt hat.
War mehr oder weniger eh nur eine rumspielerei vondaher nicht so wichtig.

Bei VB6 nehm ich dann meist mehrere Timer der die Sachen abfragt oder soetwas in der Richtung um dort das Problem zu lösen.
Ein Timer ist ja auch mehr oder weniger ne Schleife, aber paralell läuft alles andere weiter.

Bei AutoIT habe ich leider keine Möglichkeit gefunden, wie ich das nun mache und deswegen wollt ich hier mal nachfragen.
Eine richtige Lösung habe ich leider bislang immer noch nicht.

Das oben genannte Beispiel würde übrigens so mit Visual Basic 6 klappen:

Private Sub Command1_Click()
Call loop1
Call loop2
Call loop3
End Sub

Private Sub loop1()
Do Until Text1 = "Test"
DoEvents
Loop
MsgBox "Text1 hat die Bezeichnung Test"
End Sub

Private Sub loop2()
Do Until Text2 = "Test"
DoEvents
Loop
MsgBox "Text2 hat die Bezeichnung Test"
End Sub

Private Sub loop3()
Do Until Text3 = "Test"
DoEvents
Loop
MsgBox "Text3 hat die Bezeichnung Test"
End Sub

Dank der DoEvents Funktion friert nichts ein und alle Funktionen laufen dann paralell ab.
In VB6 ist das halt mit 1 Befehl sehr leicht gelöst. Schade das das in AutoIT nicht geht.

Man kann das sicher auch anders programmieren, so das man diese Funktion nicht benötigt.

Ich bin es halt gewohnt mit dieser Funktion zu arbeiten, da ich früher mit VB6 programmiert habe. Habe die Funktion da öfters verwendet was sich als recht praktisch herausgestellt hat.

Ja okay klar, die werden zeitlich versetzt in sehr kurzer Zeit nacheinander abgefragt. (Das reicht mir ja auch)

Aber ich habe kein einfrieren der anderen Funktionen

Hier hab ich auch noch eine Möglichkeit herausgefunden:

So kann man mit Hilfe einer Timerschleife und einer selbst festgelegten Zeit des Timers, eine Variable auf einen Wert prüfen, ohne das andere Funktionen dabei gestoppt werden, wie es z.B bei einem Loop der Fall wäre

Ist aber wohl indirekt das selbe wie AdlibRegister? oder gibt es da einen Unterschied?

Global $Label, $i = 0
Global $Label2, $i2 = 0
$hForm = GUICreate('Test', 400, 400)
$Label = GUICtrlCreateLabel('', 20, 20, 100, 16)
$Label2 = GUICtrlCreateLabel('', 20, 40, 100, 16)
GUISetState()
$hDll = DllCallbackRegister('_Timer', 'none', '')
DllCall('user32.dll', 'int', 'SetTimer', 'hwnd', 0, 'int', 0, 'int', 250, 'ptr', DllCallbackGetPtr($hDll))
$hDll = DllCallbackRegister('_Timer2', 'none', '')
DllCall('user32.dll', 'int', 'SetTimer', 'hwnd', 0, 'int', 0, 'int', 500, 'ptr', DllCallbackGetPtr($hDll))

Do
Until GUIGetMsg() = -3
Func _Timer()
$i += 1
GUICtrlSetData($Label, $i)
if $i = 10 then MsgBox(1,"","Timer1 Zahl ist 10")

EndFunc ;==>_
Func _Timer2()
$i2 += 1
GUICtrlSetData($Label2, $i2)
if $i2 = 10 then MsgBox(1,"","Timer2 Zahl ist 10")
EndFunc ;==>_