Discussion :

[kmitz]

Bonjour,

J'aimerais savoir combien de tps un de mes programmes met pour s'exécuter.. Quelque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
begin
 
tempsDebut:=time;
 
repeat
....{boucle principale}
until
 
tempsFin:=time;
 
writeln('Temps de calcul:',tempsFin-tempsDebut,' secondes');
 
end;

Je pensais utiliser la fonction time, mais on ne peux pas obtenir une précision à la seconde (ça retourne qqc de la forme xxxx,xx, où la partie fractionnaire représente le nombre d'heure écoulé depuis 12am je crois).

Comment faire pour obtenir une précision à la seconde?

Merci.

[Eric Sigoillot]

Salut

A supposer que tu utilises Turbo Pascal. On se sert de du nombre de tops d'horloge (18.2 par seconde).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  ClockFreq = $1234DD / 65536;
 
var
  GetTickCount: Longint absolute $0040:$006C;
 
var
  C: Longint;
 
begin
  C := GetTickCount;
  { ... }
  C := GetTickCount - C;
 
  WriteLn('Secondes écoulées : ', (C / ClockFreq):0:3);
  ReadLn;
end.

@++

[kmitz]

Je développe sous Delphi, tu penses que ça peux marcher?

[Alcatîz]

Bonjour !

Une question similaire a été postée sur le forum Delphi :
http://www.developpez.net/forums/vie...ighlight=timer
La fonction API GetTickCount() est utilisée.

[kmitz]

GetTickCount ça marche, merci!