Bizarrerie du Timer et de son interval

Question

J'ai d&#233;couvert un truc bizarre avec un Timer dans un programme que j'essaye de faire en vb6.
Pour mieux comprendre mon probl&#232;me placez le code suivant dans une nouvelle feuille et ajouter 1 controle Label et 2 controles Timer : Timer1 (interval 1000) et Timer2 (interval 30).

le Timer1 fait un d&#233;compte de 60 secondes, pendant ce temps le Timer2 compte le nombre de fois qu'il est &#233;xecut&#233; pendant ces 60secondes.
enfin lorsque les 60sec sont &#233;coul&#233;es une fenetre m'affiche le nombre d'appel du Timer2...
   voici mes r&#233;sultats: 
en 60sec le Timer2 a &#233;t&#233; appel&#233; 1892 fois, comme sont interval est de 30millisecondes cela correspond &#224; "1892x 30  =56760ms" au lieu de 60000ms (il manque presque 4secondes!!!)
pourquoi???
encore plus bizarre : lorsque je change l'interval du Timer2, je mets 31 par exemple, le programme me dit "1920x31= 59520ms" et l&#224; on se rapproche des 60000ms
pourquoi???
encore beaucoup plus bizarre : je mets l'interval &#224; 100ms et l&#224; il me dit que le Timer2 &#224; &#233;t&#233; appel&#233; 547fois soit 547* 100  =54700ms et l&#224; on s'&#233;loigne encore des 60000ms!!!

l&#224; je comprend pas, j'ai fais plein de tests et j'obtiens toujours les memes valeurs.
si quelqu'un pouvait m'aider ce serait vraiment cool parce que l&#224; je bloque!

Merci &#224; tous!!! 

BigCoincoin

le code:

Dim i As Integer
Dim Temps As Integer


Private Sub Timer1_Timer()
Temps = Temps + 1 'ajout d'une seconde &#224; l'horloge


Label1.Caption = Str(60 - Temps) & "secondes" 'affichage du d&#233;compte


If Temps = 60 Then
 Timer2.Enabled = False
 MsgBox "Temps &#233;coul&#233;: 60sec" & vbCrLf & _
         "  nombre de cycles du Timer2:" & Str(i) & vbCrLf & _
         "  &#233;quivaut &#224;:" & Str(i) & "*" & Str(Timer2.Interval) & "ms" & _
         "=" & Str(i * Timer2.Interval) & " millisecondes" & vbCrLf & _
         "Que sont devenues les quelques secondes manquantes?", vbQuestion, "Bizarre"
 End
End If


End Sub



Private Sub Timer2_Timer()
i = i + 1 'augmentation du compteur
End Sub

BasicInstinct · Answer

t'enerve pas, ne jete pas VB ou ton pc par la fenetre, c'est "normal"

le timer n'est malheureusement pas precis.Rien de plus, rien de moins.



++

 BasicInstinct

econs · Answer

Si tu veux faire des d&#233;comptes plus pr&#233;cis, utilise l'API
GetTickCount(), parce que le Timer d&#233;raille syst&#233;matiquement. Ce
contr&#244;le est bien pour faire plusieurs op&#233;rations &#224; la seconde, mais
sur une minute, il d&#233;rape ...




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

bigcoincoin · Answer

ok merci les gars, et moi qui pensait avoir trouv&#233; un mega Bug du Timer qui m'aurait rendu c&#233;l&#233;bre!!! j'ai rat&#233; mon coup, me reste plus que la Star Ac'

ciao
BigCoincoinFriz

cs_casy · Answer

C'est effectivement un mega Bug du controle Timer de VB. Mais le c&#233;l&#232;bre dans l'histoire c'est lui et pas toi 

Petite
subtilit&#233; de fonctionnement que j'avais d&#233;couvert en son temps apr&#232;s
expertise suite &#224; des soucis comme le tiens : si tu programme une
p&#233;riode de 100ms pour ton timer et que ta routine timer s'ex&#233;cute en
50ms, ton timer ne se d&#233;clenchera pas toutes les 100ms mais toutes les
150ms +- un temps variable. Toutefois, au bout d'une certaine d&#233;rive,
il se recale r&#233;guli&#232;rement sur un top &#224; 100ms puis red&#233;rive &#224; nouveau.

C'est pour &#231;a qu'en 60000ms tu n'auras que 5xxxx appels de ta routine
timer, les xxxx variants en fonctions de la machine, de l'humit&#233; de
l'air, de la bonne humeur du jour de la secr&#233;taire,....... 



<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Bizarrerie du Timer et de son interval

4 réponses

Discussions similaires