[Free Pascal] Chronomètre ? ( problème -> 00:00 ... )

**Van der Elst** · 09/04/2006, 21h59

Bonjour,
je commence la programmation en autodidacte (sous Freepascal).

Le projet sur lequel je travaille est un démineur et je cherche à y ajouter
un chronomètre.

J'ai essayé avec l'unité Dos ( fonction : gettime ( ... ); ) : je soustrais le temps actuel du temps initialisé au préalable :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Chronos ( TempsInit : word; var TempsActu : word );
var Hour,Min,Sec,HSec : word;
begin 
     GetTime(Hour,Min,Sec,HSec);
     Hour := Hour * 3600;
     Min := Min * 60;
     TempsActu := Hour + Min + Sec;
     gotoxy (2,2);
     textbackground (black); textcolor (white);
     write (TempsActu - TempsInit);
end;

Forcément un problème survient à minuit...
même problème si je demande la date ( 31 -> 1 )

En cherchant sur ce forum, j'ai également trouvé certaines fonctions de l'unité SysUtils capables de me donner l'heure et la date.

Ma question :
N'y a-t-il pas un autre moyen de construire un chronomètre ? Ou du
moins d'éviter ce bug ?

Je vois beaucoup de codes sources avec des Units, des Tobject : sender.. Je suis encore loin de maîtriser cela j'aimerais simplement obtenir un fichier '*.pas'

Merci pour votre attention,
pardonnez-moi de poser une question si 'simple'.

**denokan** · 10/04/2006, 00h46

il existe un compteur dans ton ordi que tu peux lire à tout moment ; ce compteur est initialisé 18,2 fois par seconde (je crois) et il suffit de le diviser pour trouver l'équivalence en secondes....
test ce code tu verras c tout simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses Crt; 
var 
Clock: Longint absolute $0040:$006C; 
 
begin 
ClrScr; 
repeat 
GotoXY(1, 1); 
Write(Clock / ($1234DD / $10000):0:0);
until KeyPressed; 
ReadKey; 
end.

**Van der Elst** · 10/04/2006, 08h02

messages d'erreur lors de la compilation :

Tool:0: test.pas:4: error: 30: Compilation aborted
Tool:0: test.pas:4: error: 30: Syntax error, ";" expected but ":" found
Tool:0: test.pas:4: error: 30: absolute can only be associated with a var or const

l'erreur vient du ':' entre $0040 et $006C

merci quand meme

**denokan** · 10/04/2006, 10h15

effectivement mon prog ne fonctionne pas sous freepascal... et ne semble pas pouvoir être adapté. comme alternative tu peux essayer de faire un fonction qui convertisse une date obtenue pas GetTime en un nombre de secondes écoulée depuis une date zéro (le 0/01/1900 au hasard ?), ainsi tu pourra faire une soustraction entre deux nombres de secondes sans te soucier des changements de jour.

**Alcatîz** · 10/04/2006, 11h09

Bonjour !

Envoyé par denokan

effectivement mon prog ne fonctionne pas sous freepascal... et ne semble pas pouvoir être adapté

En effet, pas en mode protégé.
Peut-être en allant lire directement le port 71h ? (heure système dans la CMOS).

Sinon, au lieu de GetTime, tu peux utiliser GetTimeOfDay, qui renvoie un simple compteur de secondes depuis le 1er janvier 1970.

**Van der Elst** · 10/04/2006, 12h05

pourriez-vous préciser l'utilisation de la fonction GetTimeOfday

je n'ai rien trouvé dans la documentation du site freepascal.org
à ce sujet

mon compilateur me renvoi ceci :
Tool:0: test.pas:15: error: 6: Identifier not found "GetTimeOfDay"

dois je l'utiliser comme la fonction GetTime ?
(...
var Hour,Min,Sec,HSec : word;
...
GetTimeOfDay(Hour,Min,Sec,HSec);
...)

**denokan** · 10/04/2006, 13h09

ceci semble fonctionner

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
18
 
uses
  SysUtils;
 
var
  Debut : Double;
  Quit : Boolean;
  Ligne : String;
 
BEGIN
  Debut := Now;
  repeat
   WriteLn('secondes : ', FormatDateTime('s', Now - debut));
   WriteLn('Appuyez une touche (q pour quitter) puis entr‚e.');
   ReadLn(Ligne);
   if Ligne = 'q' then Quit:=True;
  until Quit;
END.