Chrono "QueryPerformanceCounter" ne fonctionne pasRésolu

Question

Bonjour,

Je tente de chronométrer un code pour en améliorer la performance, mais je n'y arrive pas en utilisant l'API QueryPerformanceCounter de Kernel32.

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
  
Public Function Start()
    QueryPerformanceCounter depart 
End Function

Il renvoit toujours 0 dans la variable "depart". Quelqu'un sait-il pourquoi ?

Merci

Yann

Gobillot · Accepted Answer

re salut,
QueryPerformance ne fonctionne que sur les processeurs compatibles Intel Pentium
donc si pas disponible chez toi, tu peux pas l'utiliser
j'ai cherché d'autres chrono haute performance mais ils sont tous basés sur le même principe
il te reste GetTickcount à la milliseconde près

Daniel

Gobillot · Answer

Salut

il faut tester pour savoir si elle est disponible ou pas


Private Declare Function QueryPerformanceFrequency Lib "kernel32" (X As Currency) As Long


Private Sub Form_Load()

    Dim Ret  As Long

    

    Ret = QueryPerformanceFrequency(freq)

    If Ret = 0 Then

        MsgBox "This computer does not have a high-performance timer."

        End

        Exit Sub

    End If

    MsgBox "Fréquence en Hertz = " & FormatNumber(freq * 10000, 0)


End Sub

Daniel

tri_yann · Answer

Bonjout,

Résultat : 
Res = 0
Mon pC n'a pas de chrono haute performance   

Sais-tu comment résoudre ca ?

Merci

Yann

tri_yann · Answer

Bonjout,

Résultat : 
Res = 0
Mon pC n'a pas de chrono haute performance   

Sais-tu comment résoudre ca ?

Merci

Yann

tri_yann · Answer

Merci

Yann

tri_yann · Answer

Pour info, le GetTickCount ne fonctionne pas non plus.

--------------------------
Private Declare Function GetTickCount Lib "kernel32" (X As Currency) As Boolean
--------------------------
Function Chrono()
Dim t As Currency
GetTickCount t
End Function
------------------------------
Résultat : t = 0

Yann

Gobillot · Answer

c'est pas tout à fait comme ça
GetTickCount donne le nombre de millisecondes qui se sont écoulées depuis le début de la session courante de Windows.

pour avoir le temps d'exécution  il faut calculer la différence:
durée = temps fin - temps début

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Chono_Click()
    Dim t As Long

    t = GetTickCount

'   le code à tester ici

    MsgBox "temps en millisecondes= " & (GetTickCount - t)

End Sub

Daniel

Chrono "QueryPerformanceCounter" ne fonctionne pas

7 réponses

Votre réponse

Discussions similaires