Conseil pour faire diminuer le temps processeur

Question

Je suis en train de faire un programme qui a pour fonction de scanner un grand nombre de répertoires. En gros, lorsque le répertoire contient plus de 5 fichiers, une action sera déclenchée (exemple envoyer un email). 
J'ai donc fait une boucle de type : 

Quitter=false 
Do while Quitter= false 
  Lecture du répertoire 
  If nb fichier >5 then 
       Envoi email 
   end if 
   Doevents 
Loop 

Lorsque je lance le programme, j'ai le processeur qui monte à 98% !!! 
Mais je suis persuadé que la valeur est fausse puisque j'arrive à faire d'autres opérations sur le poste normalement. 
J'ai essayé d'introduire une pause de X secondes entre chaque lecture de répertoire mais c'est pareil. 
Auriez vous une explication et des conseilles pour faire ce traitement ? 
Je pense que c'est à cause de la boucle mais sans l'utiliser comment je vais pourvoir m'en sortir ???

ShadowWisp · Answer

Il te manque un quitter=true, que tu dois faire si tu trouves plus de 5 fichier dans un repertoire si j'ai bien compris?

Comme c'est la, ta boucle n'a pas de condition d'arret

A.

acheng · Answer

Il y a bien un bouton "Quitter" qui met la variable Quitter à True. C'est pour ça que j'ai utilisé la fonction Doevents.

daivil · Answer

Ce n'est pas parce que tu arrives a faire autre chose a coté que ton processeur n'est pas a fond la caisse...

-- Devil --

MoiOlivier · Answer

Salut,
A ta place, je créerais un contrôle Timer avec un intervale de 50 par exemple, et je placerais le code de la boucle dans l'évenement Timer. Comme ça, ton CPU ne devrait pas monter au-delà de 50% et ya plus besoin du DoEvents.

Et lorpsque tu appuyes sur Quitter, tu met la propriété Enabmed du Timer à False.

Bonne prog, @+

Conseil pour faire diminuer le temps processeur

4 réponses

Discussions similaires