Chronometrer les fontions

[Fig]

Bonjour,

Je suis sûr que qques uns d'entre vous se sont déja penché sur le problème de savoir quel était entre deux codes ou deux instructions la plus rapide.
Je cherche un bout de code pour chronometrer précisement une éxecution.

par exemple :

Code : Tout sélectionner

[pseudo code ON]
startchrono()
for i=1 to 2000
instruction(s) à tester
next i

finchrono()

affiche le temps écoulé en msec.
[/pseudocode OFF]

Si quelqu'un a ça dans sa boite à outil, ça m'interresse

[Progi1984]

Code : Tout sélectionner

Global Chrono

Procedure StarChrono()
 chrono = EllapsedMillisecs()
endprocedure

Procedure StopChrono()
 fin = EllapsedMillisecs() - Chrono
 debug fin
endprocedure

[Fig]

heu qui c ki se tape encore l'air ?


c moa


Merci bien en tout cas

[Flype]

Code : Tout sélectionner

Global Chrono

Procedure StarChrono()
 chrono = EllapsedMillisecs()
endprocedure

Procedure StopChrono()
 fin = EllapsedMillisecs() - Chrono
 debug fin
endprocedure

oui en gros c'est çà.
sauf que - ATTENTION - on ne devrait jamais faire des tests de vitesse
avec le debugger activé !

donc vaut mieux un truc du genre :

Code : Tout sélectionner

Macro StarChrono()
  chrono = EllapsedMillisecs()
EndMacro

Macro StopChrono()
  MessageRequester("resultat", Str(EllapsedMillisecs() - chrono))
EndMacro

[Progi1984]

JE sais... ms j'ai fait ca de tete et rapidement !

Mais j'ai fait une erreur

PS : as tu vu cairo en MP ?

[Flype]

pas encore progi - je vais voir.

[Droopy]

Pour mesurer des valeurs inférieurs à la ms il y a ceci :

Code : Tout sélectionner

; Idea from Erix14 / Djes
; Return the time elapsed between Start & Stop in second
; 0.001 = 1 ms
; 0.000001=1 µs
; Caution ! : If the installed hardware supports a high-resolution performance counter
; MeasureHiResIntervalStart return 1 / 0 if no hardware support 
; Use this functions for measure interval < 1 ms

Global MeasureHiResIntervalTime.l

ProcedureDLL MeasureHiResIntervalStart()
  QueryPerformanceFrequency_(@retour)
  If retour <>0 : retour = 1 : EndIf
  QueryPerformanceCounter_(@MeasureHiResIntervalTime)  
  ProcedureReturn retour
EndProcedure

ProcedureDLL.f MeasureHiResIntervalStop()
  QueryPerformanceCounter_(@Temp)
  Difference=Temp-MeasureHiResIntervalTime
  QueryPerformanceFrequency_(@HiResTimerFrequency)
  Periode.f=1/HiResTimerFrequency
  DureeTotale.f=Difference*Periode
  ProcedureReturn DureeTotale
EndProcedure


;/ Test1 : For Next
If MeasureHiResIntervalStart()
  For n=0 To 10000
  Next n
  Debug MeasureHiResIntervalStop()
EndIf

;/ Test2 : Repeat : Until
If MeasureHiResIntervalStart()
  Repeat
    a+1
  Until a=10000
  Debug MeasureHiResIntervalStop()
EndIf

Debug "The fastest is For/Next"