timer et boucle

Bonjour à tous,
j'ai un petit problème avec les timers.
en fait j'ai implémenté le programme suivant :

Code:

---

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

private j as integer Private intetr as integer Private sub myfunction() j = 1 For i = 1 to N 'N est un grand nombre soit disant 300 'beaucoup de traitement intetr = 0 Log "boucle For = " & i mtmrTimer.enabled = True Next End sub   Private Sub mtmrTimer_Timer() 'traitement intetr = intetr + (mtmrTimer.Interval / 1000) If intetr >= 3 Then log "boucle Timer = " & j j = j +1 End If End sub

---

le résultat que j'aperçoit dans mon fichier de log est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

boucle For = 1 boucle For = 2 ... boucle For = 300   boucle Timer = 127 boucle Timer = 126 ... boucle Timer = 1

---

donc le timer ne s'exécute pas sur toutes les boucles !! :calim2:
est ce que quelqu'un peut m'expliquer ce phénomène :?
Merci d'avance.

Met un DoEvents dans ta boucle pour forcer VB6 à lacher la main

Code:

---

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

private j as integer Private intetr as integer Private sub myfunction() j = 1 For i = 1 to N 'N est un grand nombre soit disant 300 'beaucoup de traitement intetr = 0 Log "boucle For = " & i DoEvents '***************************************** mtmrTimer.enabled = True Next End sub   Private Sub mtmrTimer_Timer() 'traitement intetr = intetr + (mtmrTimer.Interval / 1000) If intetr >= 3 Then log "boucle Timer = " & j j = j +1 End If End sub

---

ça sera pas plus approprié de mettre le Doevents après l'appel du timer ??

Ton instruction

Code:

---

mtmrTimer.enabled = True

---

ne sert qu'une fois (elle pourrait être avant la boucle FOR)

Une fois le timer Enabled, il le reste tant que personne ne le met à False

Chat marche ou pas le DoEvents ?

oui ça marche mais comme meme j'ai eux questions:

1. ça sert à quoi exactement ce que j'ai ajouté

2. comment tu peux expliquer le fichier de log ??

Code:

---

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

boucle For = 1 boucle For = 2 ... boucle For = 97   boucle Timer = 300 boucle Timer = 299 ... boucle Timer = 164   boucle For = 96 boucle For = 97 ... boucle For = 200   ect ...

---

Merci :)

Citation:

---

Envoyé par ferarkan

ça sert à quoi exactement ce que j'ai ajouté

---

DoEvents, en gros, suspend ton programme en cours pour laisser à Windows voir si il n'y a pas d'autres choses à faire ... et ensuite, il reprend ton programme (regarde l'aide MSDN )

Citation:

---

comment tu peux expliquer le fichier de log ??

---

je n'explique pas.
Ton programme de tempo est curieux . Tu attends un certain nombre de tempo avant de déclencher le LOG et ensuite, tu LOG à chaque tempo ... Ce qui peut expliquer la rafale

oki merci beacoup :)