Discussion :

[méphistopheles]

Bonjour à tous.

j'a en ce moment un programme qui utilise une (trés) grosse procédure récursive (assez peux de récursivité mais chaques récursivité contient une procédure d'environ 115 000 instructions (en débouclant)).
la procédure est assez rapide(5-10 s) dans la plupart de cas (car il y a des facteurs qui racourcissent les prcédures). Cependant, il arrive que la procédure soit extrèmement longue (5 min-beaucoup (pas allé jusqu'au bout )). j'aimerais que l'utilisateur puisse interompre la procédure. (petit problème, lorsqu'elle tourne, les boutons et les timers ne tournent pas.)

Ceci est mon premier problème.

mon second problème, est qu'au bout d'un moment, windows déclare le programme comme "ne répond pas" et cesse de lui alouer toutes le ressources (ce qui ralentit encore plus la fonction et bloque encore plus le programme).

merci

[SfJ5Rpw8]

rajoute un DoEvents ... dans ta procédure.....

[méphistopheles]

heu... je n'ais pas l'habitude d'utiliser cette procédure.

tu peux préciser son utilisation et ses caractéristiques ainsi que ses contraintes?


merci

[DarkVader]

Tu ajoutes un controle à l'exécution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
public autorisationValue as boolean
 
sub maProcRecursive
    if not autisationValue then
        'le code
    endif
end sub

par défaut autorisationValue = false -
il suffit de le mettre à true pour que la récursivité ne s'effectue plus


Le doevents permet de rendre le controle à l'environnement

[méphistopheles]

merci darkvader.
cependant, ce n'est pas vraiment la procédure de sortie de la boucle qui m'embete. (encore qu'avec ta procédure, le système peut mettre plus de dix secondes à sortir de la récursivité (ce n'est pas une simple récursivité))

en fait, si j'ai bien compris, le do events permet de controler si les évnements de type treads n'ont pas reçu d'instruction c'est cela?. dans ce cas, je dois donc le tester régulièrement. je me demande de combien cela peut-il ralentir une procédure?

merci

[SfJ5Rpw8]

DoEvents, fonction


Arrête momentanément l'exécution afin que le système d'exploitation puisse traiter d'autres événements.

en rendant la main au systéme d'exploitation ... ainsi si tu écris, dans une boite de dialogue avec un chexbox et un command button :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
While CheckBox1.Value = False
DoEvents
Wend
End Sub

tu as une boucle qui se termine grâce à une action sur le chechBox1...et cela fonctionne .. cependant si tu supprime le DoEvents ... tu n'as plus la possibilité d'actionner le CheckBox....

[méphistopheles]

merci, mais il y as une petite chose que je n'ai pas comprise.

doi-je placer le dovents dans ma recursivité où dans mes controle.
si c'est dans ma récursivité, combien de temps s'arrette-elle?


sinon, quelqu'un sait comment gérer les ressuorces systèmes? (cf le commentaire de tête)


merci à tous

[SfJ5Rpw8]

oui il faut le placer dans ta procédure récursive....

pour le temps que ça dure ...? c'est rapide...

DoEvents passe la main au système d'exploitation jusqu'à ce que ce dernier ait terminé de traiter les événements de sa file d'attente et que tous les codes de la file d'attente SendKeys aient été transmis.

..

[méphistopheles]

Merci

une dernière question, peut-on localiser le doevents juste sur une form ou il le fait autaumatiquement sur toute l'apli?


enfin, vu qu'il n'y as pas l'air d'y avoir des parametres d'appels...

au fait, si tu à une idée pour la mémoire...


merci

[SfJ5Rpw8]

- Non on ne peu pas localiser le DoEvents... il laisse du temps au systéme pour faire ce qu'il a à faire ... partour...

- pour la mémoire, si tu parle de

mon second problème, est qu'au bout d'un moment, windows déclare le programme comme "ne répond pas" et cesse de lui alouer toutes le ressources (ce qui ralentit encore plus la fonction et bloque encore plus le programme).

si tu place des DoEvents.. Windows aura sans doute moins tendance à déclarer ton programme comme ne répond Pas...

si tu essai ma boule While fait rien à par bouffer des ressources un peu plus haut et tu compare avec ou sans DoEvents .. tu comprendra mieux l'utilité de DoEvents...

[méphistopheles]

en effet
en plus, je l'ai mis que toutes les 20 000 instructions comme ça, il pompe vraiment pas grand chose.

merci beaucoup pour tout ceci.

bon he bien je viens de m'enrichir de nouvelles connaissances.

salut