Condition temporelle : comparaition de date + ou

Marsh Posté le 04-06-2015 à 01:15:51

Bonjour bonsoir.

Je me présente, je rigole.

Je dois jouer des note à heure fixes, mais passé un certain délais, je joue pas la note.

Voici ma condition avec Ada.

Code :

if (Dated_Buffer(Buffer_iter).Hour +
      Dated_Buffer(Buffer_iter).Date) <= Clock then
      if Dated_Buffer(Buffer_iter).Hour +
         Dated_Buffer(Buffer_iter).Date <= Clock - 0.1 then
 
          Driver.Receive(Dated_Buffer(Buffer_Iter).Message);
 
      else
        Lost_Count := Lost_Count + 1;
    end if;
end if;

Je ne parvien pas à determiner si je dois placer un + ou un moins et ou pour pas jouer les note passé depuis ? il faudrait même zéro.

En tout cas j'ai un problème.
Je vais tester autre chose en attendant votre réponse.

Et je suis en train de tester ceci :

Code :

if (Dated_Buffer(Buffer_iter).Hour +
     Dated_Buffer(Buffer_iter).Date) <= Clock + 0.1 then
    if Dated_Buffer(Buffer_iter).Hour +
       Dated_Buffer(Buffer_iter).Date >= Clock - 0.01 then

Message édité par par l'anneau de l'ia le 04-06-2015 à 01:22:04

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

Reply

Marsh Posté le 04-06-2015 à 01:15:51

Reply

Marsh Posté le 04-06-2015 à 01:29:31

Comme ça c'est pas mal a priori :

Code :

if (Dated_Buffer(Buffer_iter).Hour +
     Dated_Buffer(Buffer_iter).Date) <= Clock + 0.1 then
   if Dated_Buffer(Buffer_iter).Hour +
      Dated_Buffer(Buffer_iter).Date >= Clock + 0.01 then

Mais j'ai encode des messages qui remplissent pas les conditions.

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

Reply

Marsh Posté le 04-06-2015 à 08:36:04

Bon ! Là j'ai mit ça :

Code :

if (Dated_Buffer(Buffer_iter).Hour +
     Dated_Buffer(Buffer_iter).Date) <= Clock - 2.0 then
      if Dated_Buffer(Buffer_iter).Hour +
         Dated_Buffer(Buffer_iter).Date >= Clock - 2.5 then

Pendant un moment c'était mieux.
Puis avec le temps ça c'est dégrader, j'arrive encore en retard après 5 minutes. j'ai un problème de timing.

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

Reply

Marsh Posté le 04-06-2015 à 16:52:59

J'ai fait différemment finalement, j'ai créé un type tache avec une attente active qui découle sur le message à envoyer.

Code :

type Dated_Message_Type;
      task type Event_Type(Dated_Message : access Dated_Message_Type) is
         entry Initialize(Message : in Long; Date : in Time; Hour : in Duration);
         entry Exhausted;
      end Event_Type;
 
 
      type Dated_Message_Type is limited
         record
            Message : Interfaces.C.Long := 0;
            Hour    : Duration := 0.0;
            Date    : Time := Clock;
            Event   : Event_Type(Dated_Message_Type'Access);
         end record;
 
      type Dated_Messages_Set is array (Positive range <> ) of access Dated_Message_Type;
 
      task body Event_Type is
      begin
         accept Initialize(Message : in Long; Date : in Time; Hour : in Duration) do
            Dated_Message.Message := Message;
            Dated_Message.Date := Date;
            Dated_Message.Hour := Hour;
         end Initialize;
         delay until Dated_Message.Date + Dated_Message.Hour;
         Driver.Receive(Dated_Message.Message);
         accept Exhausted;
      end Event_Type;

C'est à peu près ce que j'avais fait au départ mais je n'y arrivais pas alors j'ai pris le problème autrement, pour finalement intégrer la solution de départ.

Message édité par par l'anneau de l'ia le 04-06-2015 à 16:53:11

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

Reply

Condition temporelle : comparaition de date + ou - delais.

Sujets relatifs:

Leave a Replay