PLUS PRÉCIS QUE GETTICKCOUNT
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
23 mars 2002 à 15:09
cs_Zeroc00l Messages postés 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010 - 15 avril 2004 à 16:49
cs_Zeroc00l Messages postés 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010 - 15 avril 2004 à 16:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11808-plus-precis-que-gettickcount
https://codes-sources.commentcamarche.net/source/11808-plus-precis-que-gettickcount
15 avril 2004 à 16:49
j'ai remarqué une chose ;
Ayant voulu vérifier les dires de msx j'ai créer un nouveau projet avec un bouton et un timer.
Le code du bouton :
QueryPerformanceFrequency(freq);
QueryPerformanceCounter(deb);
timer1.enabled := true; //plus précis d'actiover le timer ici
le code du timer (interval fixé a 1000 ms) :
QueryPerformanceCounter(fin);
Timer1.Enabled := false;
ShowMessage(FormatFloat('0.000000 ms', (fin-deb)/freq*1000));
J'ai cliqué plusieur fois sur le bouton et le temps que le timer m'affiche varie de 993 ms à 1007 ms en une belle courbe gaussienne ...
C'est normal qu'il puisse se planter de 7 ms (j'ai même été à 8 ms : 992 ms) ???
19 janv. 2004 à 13:44
freq,deb,fin : int64;
QueryPerformanceFrequency(freq);
QueryPerformanceCounter(deb);
// data
QueryPerformanceCounter(fin);
FormatFloat('0.000000 ms', (fin-deb)/freq*1000);
on aura le chiffre exact en ms
2 août 2003 à 14:41
23 mars 2002 à 20:59
23 mars 2002 à 15:09
"The QueryPerformanceCounter function retrieves the current value of the high-resolution performance counter, if one exists."
Il serait plus exact d'écrire :
if not QueryPerformanceCounter(Valeur) then
Valeur :=GetTickCount;