[ADA] utiliser l'heure

utiliser l'heure [ADA] - Ada - Programmation

Marsh Posté le 31-05-2004 à 08:20:36    

Bonjour
Je cherche comment faire pour qu'un programme utilise l'heure du système pour, par exemple, l'afficher à l'écran.
je fouille dans les paquages Calendar_io et d'autres mais impossible de comprendre comment ça marche !
Merci d'avance.

Reply

Marsh Posté le 31-05-2004 à 08:20:36   

Reply

Marsh Posté le 31-05-2004 à 08:47:09    

http://www.iuma.ulpgc.es/users/jmi [...] node29.htm
 
tu récupère un objet de type Time avec la funtion Clock.
 
ensuite, tu décomposes l'objet de type Time avec la procédure Split.
 
Split s'utilise avec des paramètres out, de la manière suivante :

Code :
  1. annee : Year_Number;
  2. mois : Mounth_Number;
  3. jour : Day_Number;
  4. secondes : Day_Duration;
  6. --- à l'utilisation (le temps est récupéré dans mon_time) :
  8. split(mon_time, annee, mois, jour, secondes);
  10. -- ici tu peux lire les données de années, mois, jour et secondes, ce sont des entiers.


---------------
trainoo.com, c'est fini
Reply

Marsh Posté le 31-05-2004 à 15:19:03    

martinus a écrit :

J'ai compilé mais mon programme me dit : 1970 7 28...

Code :
  1. with Text_Io;      use Text_Io;
  2. with Ada.Calendar; use Ada.Calendar;
  3. with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
  5. procedure Heure is
  7.    Mon_Time : Time;
  9.    Annee    : Year_Number;
  10.    Mois     : Month_Number;
  11.    Jour     : Day_Number;
  12.    Secondes : Day_Duration;
  14. begin
  16.   loop
  18.    -- à l'utilisation (le temps est récupéré dans mon_time) :
  20.    Split ( Mon_Time, Annee, Mois, Jour, Secondes );
  22.    -- ici tu peux lire les données de années, mois, jour et secondes, ce sont des entiers.
  24.    Put ( Integer'Image(Jour) );
  25.    Put ( Integer'Image(Mois) );
  26.    Put ( Integer'Image(Annee) );
  28.    delay 1.0;
  30.   end loop;
  32. end;


Et donc, la date n'est pas la bonne... C'est normal ?
Merci quand même.

Reply

Marsh Posté le 31-05-2004 à 15:50:58    

le monsieur t'a dit : :


tu récupères un objet de type Time avec la fonction Clock.
 
ensuite, tu décomposes l'objet de type Time avec la procédure Split.

c'est clair non ?


---------------
trainoo.com, c'est fini
Reply

Marsh Posté le 02-06-2004 à 19:03:20    

OK merci !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed