PureBasic

Salut Ar-S
Pour avoir des réponses enlève résolu

J'ai regardé, mais je ne comprend pas plus que toi. Il faut dire que je n'utilise que rarement les threads.
Bonne journée
Michel

Ce n'est pas mon topic... je ne peux pas l'éditer.
Je reposte donc ma demande.

Pourquoi mes "MessageRequester()" n'apparaissent-il pas ?

Code : Tout sélectionner

Global toto.l
toto=1

;Declare WorkingProgress(*bidule)

Procedure.l WorkingProgress(*bidule)
  Repeat
    Debug "toto"
    MessageRequester("test","numéro "+Str(toto))
    toto+1
  Until toto=3
EndProcedure

If IsThread(thread)
  Debug "thread ON"
Else
  Debug "thread OFF"
EndIf

thread=CreateThread(@WorkingProgress(),100)

If IsThread(thread)
  Debug "thread ON"
Else
  Debug "thread OFF"
EndIf

Debug "terminé"
End

Avec une boucle des évènements, c'est mieux

(Sinon le programme sort direct, sans avoir le temps de lancer le thread)

Code : Tout sélectionner

Global toto.l
toto=1

;Declare WorkingProgress(*bidule)

Procedure.l WorkingProgress(*bidule)
  Repeat
    Debug "toto"
    MessageRequester("test","numéro "+Str(toto))
    toto+1
  Until toto=3
EndProcedure

If IsThread(thread)
  Debug "thread ON"
Else
  Debug "thread OFF"
EndIf

thread=CreateThread(@WorkingProgress(),100)

While IsThread(thread)
  Delay(1)
Wend

Debug "terminé

Merci cls,
J'aurai jamais trouvé la solution..

PureBasic

[RESOLU] Comment stopper une procédure

Re: [RESOLU] Comment stopper une procédure

Re: [RESOLU] Comment stopper une procédure

Re: [RESOLU] Comment stopper une procédure

Re: [RESOLU] Comment stopper une procédure