Algo

[Algo/Ada] Itération et modulo.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Algo/Ada] Itération et modulo.

Profil supprimé

Bonjour,
J'avais ce code : http://jovalise.net/sources/alchem [...] oducer.adb
Pour corriger mon problème j'ai délcaré un nouveau type Extended_Step_Index_Type dérivé de Step_Index_Type comprenant zéro, et j'ai modifier l'ago comme suit : http://jovalise.net/sources/alchem [...] ducer2.adb
Je voudrais savoir si il n'y aurait pas une solution pour m'éviter de déclarer ce nouveau type.

Les problème sous jacent de la première version sont, selon l'ordre d'exécution testé, une incrémentation de "part" avant la fin ou au début de celle-ci.
Donc, soit il manque la ou les première notes, soit il manque les dernière.

Les soures complète : ici

Je vous met un peut de code pour faire joli.

Previsious code :

Code :

--
            or
           delay until Start_Time;
           Start_Time := Start_Time + Quantum;
           Clear(The_Vector);
           
           
           
           The_Vector := Step_Of(Parts(The_Part).all, Current_Step);           
           
           Sheduler_Process.Receive(The_Vector, Current_step);                      
                      
           if Current_Step + 1 > Step_Index_Type'Last then
          Current_Step := 1;
           else
          Current_Step := Current_Step + 1;
          
           end if;                      
           
           if (Current_Step mod 32) = 0 then
          The_Part := Wrap_Succ(The_Part);
           end if;
           
        end select;

Current code :

Code :

--
        or
           delay until Start_Time;
           Start_Time := Start_Time + Quantum;
           Clear(The_Vector);
           
           Current_Step := Current_Step + 1;
           
           if (Current_Step mod 32) = 0 then
             The_Part := Wrap_Succ(The_Part);
           end if;
           
                      
           The_Vector := Step_Of(Parts(The_Part).all, Current_Step);           
           
           Sheduler_Process.Receive(The_Vector, Current_step);                                                                             
           
           
           if Current_Step + 1 > Step_Index_Type'Last then
          Current_Step := 0;                    
           end if;                                            
 
           
           
        end select;

Si vous avez du temps, s'il vous plaît ! Merci.

Publicité

Profil supprimé

Ah, mais en plus ça résoud pas mon problème.
J'arrive pas a suivre ce que j'ai écrit.

Profil supprimé

Un code qui marche, a priori celui qui va de soit. Je ne sais pas pourquoi ni comment je me suis mis à chercher ailleurs.

Code :

--
            or
           delay until Start_Time;
           Start_Time := Start_Time + Quantum;
           Clear(The_Vector);
           
           if (Current_Step mod Parts(The_Part).all'length) = 0 then
             The_Part := Wrap_Succ(The_Part);
           end if;
           
           The_Vector := Step_Of(Parts(The_Part).all, Current_Step);           
           
           Sheduler_Process.Receive(The_Vector, Current_Step);                                                                                        
           
           if Current_Step + 1 > Step_Index_Type'Last then
          Current_Step := 1;                    
           else
          Current_Step := Current_Step + 1;
           end if;                                                                  
           
        end select;

J'ai remplacé le litéral "32" par la variable ad'hoc, mais 'était pas ça je pense bref, mon problème semble résolu.
Je vais poursuivre les tests. Merci

Message édité par Profil supprimé le 18-10-2012 à 16:43:10

Profil supprimé

Ben non enfait, ça marche toujour pas, je saute encore quelque chose.
Alors, je connais une soluce mais attention ça tache....

je peut déclarer une variable entre 1 et Parts(The_Part).all'length qui va suivre le (step_index mod (Parts(The_Part).all'length) et incrémenté The_Part quand la variable atteind Parts(The_Part).all'length. Ah, enfin, je crois.

Mais donc, ça tache un peut. Une soluce de votre côté ?

Profil supprimé

Arf même avec ça, j'y arrive pas.

Bravo à celui qui trouve. Genre, une bise de jovalise. [:jovalise:1]

Message édité par Profil supprimé le 18-10-2012 à 17:44:07

Profil supprimé

Alors ... J'ai trouvé... Il y a l'ordre des start dans le main.
Mais aussi la fonction Step_Of à réviser pour renvoyer la bonne valeur lorsque step mod step_seq'length = 0.
Et j'ai simplement copier le test dans l'entré initialize dans le or delay de mon select.

Merci pour votre patience...

Profil supprimé

Rho ! Ca coupe encore à la première rotation de step_index. Et c'est aléatoire parceque j'ai test et ça passait.

Bref.... Désolé.

FORUM HardWare.fr

Programmation

Algo

[Algo/Ada] Itération et modulo.

Sujets relatifs
[Ada] Multiple with clause.	[C/Ada] Traduction de C avec Ada de la bibliothèque portmidi.
Python numpy ecriture résultat avec itération	Traduction du C vers Ada
[Ada] Cookie manquant ou vide	algo calcul de volume objet 3d
conseil algo pour un projet	Problème Run-time library configuration error sous GNAT GPS Ada
Plus de 500 exemples de code Ada disponibles sur Rosetta	Excel - Algo/prog pour résoudre une équation
Plus de sujets relatifs à : [Algo/Ada] Itération et modulo.

Page générée en 0.074 secondes