[resolu] Un Thread qui se repète en boucle ?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

[resolu] Un Thread qui se repète en boucle ?

Message par Ar-S »

Toujours dans le floue pour les thread, j'en appelle à vous pour me venir en aide.

Voilà mon soucis.

En gros je voudrais qu'en tache de fond, mon programme récupère un contenu toutes les N secondes.

La procédure

Code : Tout sélectionner

Procedure LoopTxt()
  Delay(5000)
  txt$="voilà mon contenu"
  messagerequester("test",txt$)
endprocedure

Pour la création du thread, j'ecris :

Code : Tout sélectionner

CreateThread(@LoopTxt(), 0)

Comment faire pour que ce thread s'exécute en tache de fond toutes les N secondes ?
Dernière modification par Ar-S le lun. 03/nov./2008 23:35, modifié 1 fois.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Cls
Messages : 620
Inscription : mer. 22/juin/2005 8:51
Localisation : Nantes

Message par Cls »

Hello !

Tu peux faire quelques chose dans ce gout là (non testé) :

Code : Tout sélectionner


procedure uneFonction(timer.l)
  delay(5 * 1000)
endprocedure

repeat
  THREAD = CreateThread(@uneFonction(), 5)
  WaitThread(THREAD)
forever
ou comme ça (testé)

Code : Tout sélectionner

Procedure TacheDeFond(timer.l)

  Repeat

    MessageRequester("", "Message toute les 5s")

    Delay(timer)
    
  ForEver

EndProcedure

THREAD = CreateThread(@TacheDeFond(), 5000)

Repeat
  Delay(100)
ForEver
Necro
Messages : 72
Inscription : mar. 23/sept./2008 16:32

Message par Necro »

En gros tu modifie ta procédure pour que sa donne sa :

Code : Tout sélectionner

Procedure LoopTxt()

Repeat  

Delay(5000)
  txt$="voilà mon contenu"
  messagerequester("test",txt$)

Forever

endprocedure
Tu as juste oublié le repeat...
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Message par Ar-S »

Necro a écrit :En gros tu modifie ta procédure pour que sa donne sa :

Code : Tout sélectionner

Procedure LoopTxt()

Repeat  

Delay(5000)
  txt$="voilà mon contenu"
  messagerequester("test",txt$)

Forever

endprocedure
Tu as juste oublié le repeat...
des fois je me bafferai, merci Necro de pointer du doigt ma débilité profonde :)
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Necro
Messages : 72
Inscription : mar. 23/sept./2008 16:32

Message par Necro »

xD y'a pas de quoi ^^ (si t'as besoin d'aide j'suis sur msn de toute manière lol)
Répondre