Discussion :

[ferarkan]

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

Code :

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

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 :

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

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 !!
est ce que quelqu'un peut m'expliquer ce phénomène
Merci d'avance.

[DAUDET78]

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

Code :

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

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

[ferarkan]

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

[DAUDET78]

Ton instruction

Code :

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

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 ?

[ferarkan]

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 :

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

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

[DAUDET78]

ç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 )

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