Boucle Do Loop d'attente et Utilisation de l'UC

Le sujet est dans le titre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Main() Dim LeTimer As Long Dim Frequence As Long Dim Arret As Boolean Arret = False Frequence = 10000 'en millisecondes = 10 Sc LeTimer = SetTimer(0, 0, Frequence, AddressOf TimerProc) Do While Arret = False DoEvents If GetAsyncKeyState(vbKeyControl) And _ GetAsyncKeyState(vbKeyMenu) And _ GetAsyncKeyState(vbKeyW) Then 'detection de ctrl + Alt + w 'masque pour eviter des declanchements non voulues Arret = True End If Loop KillTimer 0, LeTimer MsgBox "Prog arreté", vbInformation, "" End Sub

---

Cette boucle me permet de mettre fin a la surveillance d'un autre prog géré dans Sub TimerProc
Lorsque je regarde dans le gestionnaire de tâche, l'utilisation de l'UC est égal a 100%, est ce penalisant pour les autres programmes ?
je sais que c'est la boucle Do Loup qui produit ce phénomène
Question, est il possible de faire un arret de survaillance d'une autre façon.

Merci


20H50, MOTIF de l'edit, je viens de posté, mais gros orage, je dois quitter le forum pour arreter l'ordi

Je penses que c'est plutot le doevents qui surcharge l'uc pour rien.
Essaye d'utiliser GetInputState pour tester si on a besoin de faire le Doevents

(The GetInputState function determines whether there are mouse-button or keyboard messages in the calling thread's message queue.)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Declare Function GetInputState Lib "user32" () As long .... Do While Arret = False If GetInputState then DoEvents If GetAsyncKeyState(vbKeyControl) And _ GetAsyncKeyState(vbKeyMenu) And _ GetAsyncKeyState(vbKeyW) Then 'detection de ctrl + Alt + w 'masque pour eviter des declanchements non voulues Arret = True End If Loop

---

Ca pourrait bien soulager l'UC

Merci Delbeke, mais le resultat est identique avec un effet de retard sur le rafraichissement des fenêtres des autres programmes.
Sur mon PC personnel (UC à 1.3 GHz, 224 Mo de RAM), la charge dût au doevents systematique, n'est pas des plus penalisantes, par contre au pro (UC à 350 MHz 128 Mo de RAM) sa devient limite.
Je tag resolut, rien n'empechant des propositions d'autres forumeurs.
Salut

Salut,

En commentant le doevents, même constat sur le cpu ? Si oui, la réponse de delbeke qui bien que valide dans certains cas ne t'apportera rien.

En effet, le cpu va être totallement consommé par ta boucle infinie et ce cycliquement jusqu'à l'intervention de "TimerProc".

La solution selon moi est d'insérer un deuxième timer, branché en fréquence = toutes les 0.2 secondes par exemple (à affiner), et d'inclure le contenu de ta boucle dans l'événement de ce dernier (_timer).

Autrement, mais je suis moins sur du résultat, une idée intermédiaire serait d'également utiliser un timer mais cette fois juste pour relever des intervalles de temps minimum entre chaque passage dans ta boucle.

Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Main() Dim LeTimer As Long Dim LeTimer2 As Long 'Nouveau timer servant à se donner un intervalle Dim Frequence As Long Dim Arret As Boolean   Arret = False Frequence = 10000 'en millisecondes = 10 Sc LeTimer = SetTimer(0, 0, Frequence, AddressOf TimerProc) LeTimer2 = SetTimer(0, 0, 10, 0) 'Ici j'ai fait comme toi mais je suis pas sûr du tout de ce que ça peut donner avec 0 ;)   LeTimer2.enabled = true   Do While Arret = False 'Test de l'intervalle If LeTimer2.value = 200 then If GetAsyncKeyState(vbKeyControl) And _ GetAsyncKeyState(vbKeyMenu) And _ GetAsyncKeyState(vbKeyW) Then 'detection de ctrl + Alt + w 'masque pour eviter des declanchements non voulues Arret = True End if LeTimer2.value = 0 End If Loop KillTimer 0, LeTimer MsgBox "Prog arreté", vbInformation, "" End Sub

---

J'ai pas de vb sous la main, à débugguer ;)

Merci de la propsition, je vais essayer, mais je n'aime pas faire une boucle (Do .... Loop ou For .... Next ou ...) sans un Doevents dedans, car il est defois bien difficile d'en sortire et/ou les autres programmes risque de ramer car la boucle prend toutes les ressources.
Je regarde sa et je tiendrai au courant.

Salut

ce qu'il faut savoir, c'est que le doevents est parfois la source d'un 100% cpu load, parfois non mais dans tous les cas, il PERMET aux autres ressources d'utiliser une partie du cpu.

En fait, le 100% de charge ne veut rien dire, car dès qu'une autre ressource aura besoin (alors ça c'est sûr pour une ressource interne au programme, pour les autres programmes je sais pas) de CPU elle l'obtiendra dans la mesure du possible. Finalement, c'est un peu "je bouffe 100% sauf si vous en avez besoin" ...

Citation:

---

Envoyé par Vld44

c'est un peu "je bouffe 100% sauf si vous en avez besoin" ...

---

:yaisse2:
Merci de ces précisions, j'ai fait des essais avec ce que tu proposais, mais j'avais un plantage de l'editeur VB.
je vais donc continuer sens me faire plus de soucis ;)