Minuterie

Question

Bonjour, j'utilise une fonction de minuterie dont voici le code.

Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
    DoEvents
Loop
End Sub

Le problème c'est que GetTickCount n'est pas précis à la milliseconde (du moins c'est ce que j'ai lu à plusieurs endroits sur le web).

J'aurais besoin de la même fonction en utilisant QueryPerformanceCounter qui semble être une horloge haute résolution.

Je ne suis pas expert, donc allez-y mollo avec la technique, hein... 

Merci d'avance

NHenry · Answer

Bonjour,

GetTickCount te retourne le nombre de millisecondes depuis le démarrage du PC.

Donc ton problème est plus dans le DoEvents qui libère le temps pour les autres processus, dans la pratique, ce délai peut être de 10 à 15ms (constaté sur une application pro), donc il ne faut pas faire de DoEvents et ce sera précis à la Milliseconde.

Mon site

Minuterie

1 réponse

Votre réponse

Discussions similaires