darkeagle10 Je choisis l'option offensive | Bonjour,
Je suis en train de programmer un Sudoku en Pascal pour ma Fac (projet de fin d'année).
Actuellement je travaille avec l'environnement Dev Pascal (compilateur Free pascal), mais mon programme doit etre parfaitement portable, c'est à dire compilable aussi bien sous gnu pascal que sous free, sous Windows, Unix et Linux.
Pour le moment tout va bien (enfin je n'arrive pas à utiliser Dev pascal GNU, autre version de celle sur laquelle je bosse actuellement, suite à des problemes de chemins de dossiers, etc ... mais sous Unix (environnement SUN solaris), ca marche sans probleme avec gpc).
Le problème est le suivant : j'aimerais récupérer le Timestamp à la création d'un compte joueur, un autre lors de l'affichage de statistiques du joueur (ancienneté toussa  ), ainsi qu'en récupérer 2 autres en début et fin de partie, pour récupérer la durée de celle ci (oui je sais on a du le deviner  ).
Seulement je n'arrive pas à utiliser la commande GetTimeStamp, il me dit (le compilateur freepascal) que ca ne va pas, ou plus précisément :
"Identifier not found GETTIMESTAMP".
Alors qu'en me rendant sur cette page, on voit bien qu'il n'y a aucune unité utilisée, et que "ca marche" ...
Voici la source du fichier de test "test_time.pas" :
Code :
- Program temps;
- uses crt,sysutils,dos;
- Type TimeStamp =
- record
- DateValid,
- TimeValid : Boolean;
- Year : Integer;
- Month : 1 .. 12;
- Day : 1 .. 31;
- DayOfWeek : 0 .. 6; { 0 means Sunday }
- Hour : 0 .. 23;
- Minute : 0 .. 59;
- Second : 0 .. 61; { to allow for leap seconds }
- MicroSecond : 0 .. 999999;
- TimeZone : Integer; { in seconds east of UTC }
- DST : Boolean;
- TZName1, TZName2 : String[32];
- end;
- Var bidon : char;
- h1,m1,s1,c1,h2,m2,s2,c2 : word;
- h3,m3,s3 : integer;
- t3_seconds : longint;
- t1,t2 : TimeStamp;
- BEGIN
- bidon:='a';
- while bidon<>'e' do
- begin
- writeln('Veuillez taper sur n''importe quelle touche, sauf "e"');
- bidon:=readkey;
- GetTime(h1,m1,s1,c1);
- writeln('Veuillez a nouveau taper sur n''importe quelle touche, sauf "e"');
- bidon:=readkey;
- GetTime(h2,m2,s2,c2);
- h3:=3600*(h2-h1);
- m3:=60*(m2-m1);
- s3:=h3+m3+(s2-s1);
- writeln('Le temps qui s''est ecoule entre la premiere entree et la seconde est de : ');
- writeln(s3,' secondes.');
- writeln(' ');
- writeln('Veuillez taper sur n''importe quelle touche, sauf "e"');
- bidon:=readkey;
- GetTimeStamp (t1);
- writeln('Veuillez a nouveau taper sur n''importe quelle touche, sauf "e"');
- bidon:=readkey;
- GetTimeStamp (t2);
- t3_seconds:=(t2.Second)-(t1.Second);
- writeln('Le temps qui s''est ecoule entre la premiere entree et la seconde est de : ');
- writeln(t3_seconds,' secondes.');
- writeln(' ');
- writeln('Tapez "e" pour quitter, une autre touche pour recommencer');
- end;
- END.
|
Je fais donc appel à vous, j'aimerais en fait trouver une fonction/unité "universelle" qui puisse fonctionner avec n'importe quel compilateur, ou du moins une méthode pas trop compliquée pour faire ce que je veux, expliqué plus haut.
Merci d'avance à tout le monde  ---------------
Gates gave you the windows. GNU gave us the whole house.
|
