Prozeduren paralell ablaufen lassen - ohne threads

[Tompazi]

Wie kann ich Prozeduren paralell ablaufen lassen - ohne Threads. (ich brauche nämlich die Rückgabewerte (strings) der Prozeduren.)?

MfG Tompazi

[Josef Sniatecki]

Leider ist das wirklich fast unmöglich die Prozeduren so aufzubauen, dass
sie parallel ablaufen. Du sagst, du möchtest dies wegen der
Rückgabewerte: Nun, dann würde ich dir globale Variablen
empfehlen.

Beispiel:

Code: Alles auswählen

Procedure.l A(Dummy.l)
  ...
  GlobalString1="A finished"
EndProcedure
Procedure.l B(Dummy.l)
  ...
  GlobalString2="B finished"
EndProcedure



A=CreateThread(@A(),0)
B=CreateThread(@B(),0)
WaitThread(A)
WaitThread(B)
String1$=GlobalString1
String2$=GlobalString2

Ich hoffe ich konnte dir damit helfen

[STARGÅTE]

die frage ist dabei ob du aus den beiden Proceduren die "parallel laufen sollen, vllt nicht eine machen kannst, in der dann dein zeug "gleichzeitig" bearbeitet werden kann.

[NicTheQuick]

Threads haben doch sowieso keine Rückgabewerte. Dazu musst du sogar globale
Variablen benutzen.

[PMV]

... ich übergebe den Threads immer Strukturen.

MFG PMV

[Tompazi]

danke gute Idee

Hab ich da was falsch verstanden?

Code: Alles auswählen

Global global1, global2

Procedure Proc1()
Repeat
global1 + 1
Until global1 = 10
EndProcedure

Procedure Proc2()
Repeat
global2 + 1
Until global2 = 15
EndProcedure

CreateThread(@Proc1(),0)
CreateThread(@Proc2(),0)

MessageRequester("out","Should be 10: " + Str(global1) + " Should be 15: " + Str(global2))

End

[STARGÅTE]

jo ...

nach dem die Thread gestartet wurden kommt ja SOFORT das MessageRequester

die Schleien in den proceduren werden fast garnicht bearbeitet...

ein Delay(10) dazwischen sollte schon helfen oder ein WaitThread


EDIT: und die Proceduren brauchen noch ein Parameter

[Tompazi]

oh. eh logisch

EDIT: und die Proceduren brauchen noch ein Parameter

??

[STARGÅTE]

bei CreateThread(@Proc1(),0)
übergibst du doch einen Parameterwert, hier 0

dieser muss auch in der Procedure "aufgenommen" werden, ist ja egal ob du ihn brauchst oder nicht !

also:

Code: Alles auswählen

Procedure Proc1(Irgendwas) 
Repeat 
global1 + 1 
Until global1 = 10 
EndProcedure 

[PMTheQuick]

oh. eh logisch

EDIT: und die Proceduren brauchen noch ein Parameter

??

Ich bin mir jetzt nicht sicher, aber ich glaube es ist so: Du kannst Threads ohne Parameter starten, empfohlen ist aber mit Parameter. Zum Beispiel ein Dummy-Parameter:

Procedure Thread(dummy)
...
EndProcedure

CreateThread(@Thread(), 1)

Oder was weiss ich für ein Wert. Ist glaub sicherer. Aber keine Ahnung ob das genau so stimmt

Gruss
PMTheQuick