Pb avec la pause dans un programmeRésolu

Question

Bonjour &#224; toute la communaut&#233; de d&#233;veloppeurs :)

J'ai un petit probl&#232;me avec une fonction de pause que j'ai pris sur VBfrance, la voici:

Public Function hb_ms_sleep(milliseconds as long)
Dim attente as Long

attente = getTickCount + milliseconds
Do Until GetTickCount >= attente
    Doevents
Loop

End Function

Le seul probl&#232;me, c'est que j'utilise hb_ms_sleep(300000) qui est effectue une pause de 300000 millisecondes tout en permettant &#224; l'utilisateur de garder la main sur le programme, et que l'utilisation du processeur monte &#224; 98%,  ce qui est assez probl&#233;matique...
N'y aurait-il pas une autre solution, autre que l'utilisation d'un objet Timer, pour permettre une pause dans un programme tout en gardant la main?
Il y a t-il une diff&#233;rence entre le sleep (qui ne permet pas de garder la main) et le sleepex?

En vous remerciant infiniment,

EvilGost [;)]

cs_Megafan · Accepted Answer

Salut,

Tu peux utiliser les API CreateTimerQueue et CreateTimerQueueTimer.
Tu as un super exemple sur Allapi.net (http://www.mentalis.org/index2.shtml)
Timer non bloquant (pas comme sleep) et n'utilsant pas de ressource.
C'est t'y pas beau la vie !
@+
Megafan

econs · Answer

Salut,

Place cette ligne en haut de ton module :



Private Declare Sub Sleep Lib kernel32 (ByVal 
dwMilliseconds As Long)



et tu l'utilises comme ceci dans ta proc&#233;dure :



Sleep 1000    '    attend une seconde


Manu

cs_moustachu · Answer

Bonjour

Ce dont je me souviens, c'est que Sleepex te permet de faire une pause selon une dur&#233;e donn&#233;e ou l'ex&#233;cution d'une fonction. Tu ne r&#233;cup&#232;res pas la main avec sleepex non plus je crois.

Pourquoi as tu besoin de cette pause, sans indiscr&#233;tions ?

++
Moustachu

econs · Answer

Oups ... je n'ai pas bien lu ton message. Tu veux pouvoir continuer &#224; executer des choses pendant  l'arr&#234;t de ta proc&#233;dure.

Je pense que dans ton cas, l'utilisation de Threads serait recommand&#233;e.

Manu

econs · Answer

http://www.freevbcode.com/ShowCode.Asp?ID=4029



Tu pourrais cr&#233;er un Thread avec des proc&#233;dures Start, Finish, Pause associ&#233;es.

La proc&#233;dure Start ferait le d&#233;but de ton programme.

La proc&#233;dure Finish ferait la fin de ton programme.

La proc&#233;dure pause ferait une pause (avec Sleep par exemple).



Le Thread tournera en background, sans interf&#233;rer avec le reste de ton programme.

Tu n'auras qu'&#224; appeler Start, Pause et Finish &#224; la suite l'un de l'autre.




Manu

Gobillot · Answer

m&#233;lange les deux m&#233;thodes









Public Function hb_ms_sleep(milliseconds as long)
Dim attente as Long

attente = getTickCount + milliseconds
Do Until GetTickCount >= attente

    Sleep 10
    Doevents
Loop

End Function

Daniel

EvilGost · Answer

En fait, je me sers d'une pause lorsqu'une base de donn&#233;es access n'est pas accessible, je fais donc une pause de 5 minutes avant de retester son acc&#232;s, mais ca bouffe de l'utilisation CPU Moustachu.
Pour le Thread, ca m'a l'air un peu complexe, je cherche quelque chose de plus simple, mais merci &#224; econs pour cette id&#233;e.
Gobillot, le sleep ne change pas grand chose malheureusement, il est beaucoup trop court pour ne pas solliciter le cpu.

Quant &#224; megafan, je cherche &#224; cr&#233;user ton id&#233;e, mais j'aurai besoin de ton aide, j'ai bien d&#233;clar&#233; toutes les api,
je fais un createqueuetimer de 200 000 millisecondes, ca me recup&#233;re le handle du timer mais je ne vois pas comment m'en servir pour que ca effectue une pause...peux-tu m'aider?

code:

Public Function hb_ms_sleep(milliseconds As Long)


hQueue = CreateTimerQueue()


If hTimer = 0 Then
    CreateTimerQueueTimer hTimer, hQueue, AddressOf TimerCallBack, ByVal 0&, 0, milliseconds, 0
End If


End Function


Public Sub TimerCallBack(ByVal lpParameter As Long, ByVal TimerOrWaitFired As Long)
    Debug.Print "Timer callback..."
End Sub

EvilGost

cs_Megafan · Answer

Salut EvilGost,
je post un code sur CS qui portera le nom de TimerAsynchrone.
@+
Megafan

cs_Megafan · Answer

ReEvilGost,
Je n'arrive pas &#224; poster mon code j'essaireais a nouveau demain.
@+
Megafan

EvilGost · Answer

ok, merci infiniment megafan :D

EvilGost [;)]

Pb avec la pause dans un programme

10 réponses

Discussions similaires