UN DOEVENTS PLUS RAPIDE
loskiller62
Messages postés
135
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
12 juillet 2006
-
18 févr. 2004 à 09:49
Herge89 Messages postés 1 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 juillet 2006 - 13 juil. 2006 à 16:05
Herge89 Messages postés 1 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 juillet 2006 - 13 juil. 2006 à 16:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/20535-un-doevents-plus-rapide
https://codes-sources.commentcamarche.net/source/20535-un-doevents-plus-rapide
13 juil. 2006 à 16:05
Désolé de vous avoir laissé galérer plus de 2 ans pour rien avec ce langage lol.
Bravo quand même à MadLucas pour la clarté de tes explications.
20 avril 2004 à 14:45
http://www.cppfrance.com/code.aspx?ID=9878
6 avril 2004 à 17:53
Merci encore ;-)
15 mars 2004 à 17:10
Je pense pas que DoEvents dure 1ms ...
A mon avis, il rend la main immédiatement ...
Au moins dans certain cas.
Ds Mon WaitableTimer en forcant la Priorité sur Critical en tout cas ...
Si quelqu'un arrive a mesurer !
A+
Afyn
23 févr. 2004 à 10:50
Mais alors si DoEvents fait rigoureusement la même chose que le DoEv de Unreal, comment expliquer que DoEvents est *plus lent* que DoEv ?
Petite piste à 10 balles : DoEvents (aka rtcDoEvents dans msvbvm60.dll) , en outre de plaçer le message du processus en cours en fin de stack win, ne doit-il pas non plus gérer l'IDE de vb ? je suppose que l'api rtcDoEvents, en plus de faire la même chose que DoEv, doit également vérifier un ensemble de paramètres dans l'environnement VB (peut être même lançer un thread pour récupérer l'interruption Ctrl+Pause ...) d'où l'apparente "lenteur".
Par la pratique on remarque que DoEvents dure "au moins" 1 millisecondes, ce qui pose des problèmes de préçision dans les boucles.
Nota : lorsque on compile le programme de test, laquelle des 2 fonctions est la plus rapide ?
Sinon pour ce qui est de faire tourner son appli en "arrière-plan", rien de tel qu'un SetPriorityClass vers idle...
20 févr. 2004 à 09:04
Vous l'ouvrez avec Application WordPad MFC, vous recherchez dans le fichier "MSVBVM60.DLL", il va le trouver et juste à coté il y a les fonctions: vous y trouverez rtcDoEvents. C'est fort possible que ce soit la fonction demandée.
@++ Flo
19 févr. 2004 à 18:44
DoEvents ne donne pas un tour de plus au CPU, il n'accélère pas non plus une application et oui il peut ralentir considérablement une application.
Mais alors, pourquoi l'intérêt de DoEvents ?
Pour bien comprendre son rôle, il faut comprendre comment le coeur même de Windows fonctionne. En gros, Windows roule en permanence une "boucle infinie" qui gère des "messages" qui s'empilent dans une "pile". Ces messages peuvent être par exemple un click de souris, une demande de Refresh d'une fenêtre, un appel d'un timer, etc. Tous les messages sont empilés les uns à la suite des autres dans la "Stack" (pile) et sont gérés selon leur "ordre" et selon leur "niveau de priorité". C'est justement la fameuse boucle "TranslateMessage" et "DispatchMessage" qui traite tout ça.
Si par exemple vous exécutez une boucle Do..Loop dans votre code (calculs seulement, pas d'attente d'interaction de l'usager car le status "Idle" redonne en quelque sorte le contrôle à Windows), VB envois un message dans la Stack de Windows. lorsque la boucle de gestion de Windows reçoit le message, il l'exécute. Si par exemple VB donne une priorité 3 à votre code, votre code se placera à la fin de tous les messages de même priorité qui sont déjà dans la Stack. Lorsque Windows exécutera votre message, il attendra de le terminer avant de passer aux autres messages de même niveau (ou inférieur); seul les niveau 2 et 1 seront alors gérer en priorité par la boucle de gestion. L'usager remarque alors que l'application "gèle" ou que l'ensemble du système "lag".
Le vrai rôle de DoEvents est de dire à Windows de prendre le message de votre code et de le replacer à la fin de la file d'attente qui correspond à son niveau de priorité, de sorte que Windows gère les autres messages qui se sont accumulés dans la Stack pendant l'exécution de la boucle Do..Loop. Dans cette optique, DoEvents va ralentir la vitesse à laquelle votre boucle s'exécutera en lui enlevant temporairement le focus du CPU. D'une autre part, vous regagnez un peu de contrôle par rapport au reste du système d'exploitation en gérant tous les messages accumulés.
Un bon exemple de l'utilité de DoEvents est quand vous dessinez des PSet dans un objet Picture. Si vous exécutez les PSet dans une boucle, l'image final apparaîtra à la fin du traitement. Si par contre vous utilisez DoEvents dans votre boucle, il est alors possible de voir chacuns des PSet s'afficher dans l'objet Picture. Logique car à chaque fois que vous appelez PSet, un message WM_PAINT s'insère dans la Stack de Windows en attente d'être traité à son tour.
Bon, c'est assez difficile de vulgariser sur ce sujet par écrit.. J'espère que je vous ai pas trop perdu avec mon exposé.
MadLucas
19 févr. 2004 à 18:18
19 févr. 2004 à 17:45
18 févr. 2004 à 18:09
'1/Microsoft
'Dans une form
Private Sub Form_Load()
Dim Cont, Tim
Show
Cont 0: Tim Timer
Do
Cont = Cont + 1
If Timer - Tim >1 Then Caption Cont: Cont = 0: Tim = Timer
DoEvents
Loop
End Sub
'2/DoEv
'Dans une form
Private Sub Form_Load()
Dim Cont, Tim
Show
Cont 0: Tim Timer
Do
Cont = Cont + 1
If Timer - Tim >1 Then Caption Cont: Cont = 0: Tim = Timer
DoEv
Loop
End Sub
Chez moi, DoEv, cest plus rapide. peut-être dépend-il du pc? (Moi = P3 733Mhz)
@++ Flo
18 févr. 2004 à 18:01
'Api's
Public Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Public Declare Function TranslateMessage Lib "user32" (lpMsg As MSG) As Long
Public Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As MSG) As Long
'Types
Public Type POINTAPI
x As Long
y As Long
End Type
Public Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
'Constantes
Public Const PM_REMOVE = &H1
Public Const PM_NOYIELD = &H2
Public Const PM_NOREMOVE = &H0
Dim msg_ As MSG 'Déclaration de la variable
'Fonction
Sub DoEv()
Do While PeekMessage(msg_, 0, 0, 0, PM_REMOVE) 'Vide la pile
TranslateMessage msg_
DispatchMessage msg_
Loop
End Sub
' Remarque : Si vous Mettez PM_NOREMOVE Votre systeme reste bloqué pour je ne sais quelle raison. Apparament il ne doit pas vider la pile d'attente
18 févr. 2004 à 17:59
@++ Flo
18 févr. 2004 à 17:27
"DoEvents" permet de rendre la main au système pour un tour d'horloge du CPU, c'est à dire le temps suffisant pour que le CPU traite toutes les interruptions gestion clavier, écran, souris et autres applications). Si les autres applications tournant sur la machine sont bien programmées et repasse la main au système quand c'est utile, un DoEvents ne dure pas longtemps.
Par contre, si votre application repasse la main au système avec un DoEvents et que d'autres zapplications font des boucles interminables, là, oui, ça risque de durer longtemps.
De toute façon, ce n'est qu'une question de priorité pour savoir quelle tache se terminera avant les autres en ayant pris le plus de temps machine.
Si vous voulez garder une fluidité sur votre machine, placez des DoEvents assez souvent.
En ce qui concerne la source de Unreal :
Peux-tu me confirmer qu'en fait, cette fonction attend que la pile des taches en cours soit vide ?
Si c'est le cas, cela permettrait à l'application qui l'utiliserait, de ne tourner que lorsque le CPU est libre, comme le font les programmes de calculs comme Seti@home, en arrière plan --> Interessant, non ?
Vala
18 févr. 2004 à 17:15
Même dans une boucle qui dure longtemps, qu'elle dure 7 ou 8 ou 9 secondes importe peu ... (donc on est pas pressé !)
C'est ma façon de voir la chose.
A+
Afyn
18 févr. 2004 à 15:31
Afyn >>> L'utilisation de DoEvents ne signifie pas qu'on n'est pas pressé, vu que dans la plupart des cas, lorsqu'on l'utilise dans de grandes boucles (entend par là, des boucles qui dure longtemps), cela permet de gagner du temps et de ne pas bloquer le système !
DarK Sidious
18 févr. 2004 à 14:58
de DoEv() ...
De toutes façon, quand on utilise DoEvents, c'st qu'on est pas pressé ?
A+
Afyn
18 févr. 2004 à 13:39
18 févr. 2004 à 12:08
DarK Sidious
18 févr. 2004 à 11:52
@++ Flo
18 févr. 2004 à 11:44
18 févr. 2004 à 09:49
Bien joué