Thread-Problem

[7x7]

Hallo Freunde,

entweder bin ich total überarbeitet (was aber eigentlich nicht sein kann ) oder ich sehe den Wald vor lauter Bäume nicht mehr.

Warum wird hier "weiter gehts" immer um 1 weniger angezeigt als in der For:Next-schleife angegeben?

Code: Alles auswählen

Global T1ID

Procedure T1(dummy)
	Repeat
		PauseThread(T1ID)
		Debug "weiter gehts"
	ForEver
EndProcedure

T1ID=CreateThread(@T1(),0)

For a=1 To 10
	ResumeThread(T1ID)
	Delay(1000)
Next a

[RSBasic]

Weil das Erstellen eines Threads auch etwas Zeit braucht. Bevor der Thread fertig erstellt wurde, ist die Variable "a" schon bereits bei 2. Ein Delay kann helfen:

Code: Alles auswählen

Global T1ID

Procedure T1(dummy)
   Repeat
      PauseThread(T1ID)
      Debug "weiter gehts"
   ForEver
EndProcedure

T1ID=CreateThread(@T1(),0)

Delay(10)

For a=1 To 10
   ResumeThread(T1ID)
   Delay(1000)
Next a

[PMV]

Weil der Mainthread bereits beim Delay(1000) ist, wenn der Thread
beim pausieren ankommt.

... RSBasic war schneller ... aber zum syncronisieren von Threads ist
ein Delay() nicht ausreichend. Da muss was Kugelsicheres her wie
z.B. nen Mutex oder Semaphoren.

MFG PMV

[7x7]

Danke RSBasic/PMV!

Ja...manchmal muss man PureBasic echt ausbremsen...