Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide Recherche
1975 connectés 

  FORUM HardWare.fr
  Programmation
  ADA

  Tableau de record et de type énumé

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Tableau de record et de type énumé

n°1486376
stupid_cod​er
<Dans le doute, reboot...>
Posté le 04-12-2006 à 22:11:22  profilanswer
 

Bonjour à tous,
 
J'ai déjà posté pour d'autres sujets en ada couronnés de succès, merci bien !
 
Cependant je découvre avec désarois un problème majeur dans mon exercice.
 
Suivant la classification des types, un type tableau peut il contenir un type énumaratif ?
 
Regardez le code suivant, les erreurs divers (type ou déclaration de variables) sont surements la source de mon soucis :
 

Code :
  1. WITH Ada.Text_IO; USE Ada.Text_IO;
  2. WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
  3. WITH Ada.Float_Text_IO; USE Ada.Float_Text_IO;
  6. PROCEDURE Cpte_Banquaire IS
  7.  
  8.    SUBTYPE Id_Banque IS Integer RANGE 100..500;
  9.    SUBTYPE Num_Banque IS Integer RANGE 1..100000;
  10.    SUBTYPE Solde_Cpte IS Float;
  11.    
  12.    TYPE T_En_Tete IS
  13.       RECORD
  14.       Bk:Id_Banque;
  15.       NBk:Num_Banque;
  16.       SC:Solde_Cpte;
  17.       END RECORD;
  18.    
  19.    SUBTYPE Num_Jour IS Integer RANGE 1..31; 
  20.    SUBTYPE Num_Mois IS Integer RANGE 1..12; 
  21.    SUBTYPE Num_Annee IS Integer RANGE 1900..2100;
  22.  
  23.  
  24.    TYPE T_Date IS
  25.    RECORD
  26.       jour:Num_Jour;
  27.       mois:Num_Mois;
  28.       Annee:Num_Annee;
  29.    END RECORD;
  30.  
  31.    TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);
  32.    TYPE T_Mode_Paiement IS (Cb, Cheque, Virement);
  33.  
  34.        
  35.    TYPE t_Nblignes IS
  36.    RECORD
  37.       Valeur:float;
  38.       Date:t_date;
  39.       Rubrique:T_Rubrique;
  40.       Mode_Paiement:T_Mode_Paiement;
  41.    END RECORD;
  42.  
  43.    TYPE T_nblignes_Comptable IS ARRAY (1..10) OF T_Nblignes;
  44.  
  45.    PROCEDURE Ligne_Comptable IS
  46.  
  47.       nblignes:T_Nblignes;
  48.       Date: T_Date;
  49.       rubrique:T_Rubrique;
  50.       mod_p:t_mode_paiement;
  51.    nblignes_Compta:T_nblignes_Comptable;     
  53.       begin
  54.          
  55.          FOR I IN 1..2 LOOP
  56.          
  57.       Put("Rentrer une date :" );
  58.          
  59.             New_Line;
  60.             Get(nblignes.Date.jour);
  61.             nblignes_Compta(I).Date.Jour:=Date.Jour;
  62.             nblignes_Compta(I).Date.mois:=Date.mois;
  63.             nblignes_Compta(I).Date.annee:=Date.annee;
  64.            
  65.        
  66.       Put("Rentrer une Valeur :" );
  67.             New_Line;
  68.             Get(nblignes.Valeur);
  69.             nblignes_compta(i).valeur:=nblignes.valeur;
  70.             New_Line;
  71.       Put("Rentrer une Rubrique :" );
  72.             New_Line;
  73.             Get(rubrique.Rubrique);
  74.             nblignes_Compta(I).rubrique:=rubrique.rubrique;
  75.       New_Line;
  76.       Put("Rentrer un mode de paiement :" );
  77.             New_Line;
  78.             Get(mode_p.Mode_Paiement);
  79.             nblignes_Compta(I).Mode_Paiement:=mode_p.mode_paiement;
  80.             New_Line;
  81.          END LOOP;
  82.       New_line;
  83.       Put("   Date   Valeur   Rubrique   Mode  " );
  84.       New_Line;
  86.      END Ligne_Comptable;
  87.      
  88. begin
  90.    Ligne_Comptable;
  92. END Cpte_Banquaire;


 
Au départ j'avais uniquement déclaré les variables nblignes_Compta et nblignes car nblignes_Compta est un tableau de nblignes.
 
Cependant nblignes est un record avec des types énumérés et là ça coince.
 
Donc j'ai pensé appeler le type article directement, je sais c'est pas le truc le plus malin que j'ai fait.
 
L'erreur que je retrouve est "invalid prefix in selected component"test"".
J'en déduis une erreur dans la déclaration de ma variable, je pense devoir directement utiliser des types t_nblignes dans un tableau t_nblignes_compta dans mes déclarations et rien d'autre.
 
A vous de juger et d'éliminer le maillon faible...
Merci de votre aide.
 
 

mood
Publicité
Posté le 04-12-2006 à 22:11:22  profilanswer
 

n°1486570
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 11:57:11  profilanswer
 

salut stupid_coder, ... tu peut nous dire ce que fait ton programme et comment, en français s'il te plais
apres je décode ton code ... si j'y parviens.  

n°1486589
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 13:12:04  profilanswer
 

bonjour Jovalise,
dès que je fais le point sur le code, avec plus de clarté, je le poste avec des commentaires et de plus amples explications ce soir.
Merci.

n°1486607
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 13:38:23  profilanswer
 

Après d'eventuelles corrections ("mode_p" -> "mod_p" )
j'obtien le message suivant


gcc-3.4 -c main.adb
main.adb:73:20: invalid prefix in selected component "rubrique"
main.adb:74:45: invalid prefix in selected component "rubrique"
main.adb:78:20: invalid prefix in selected component "mod_p"
main.adb:79:50: invalid prefix in selected component "mod_p"
gnatmake: "main.adb" compilation error


je n'ai pas trouvé le component "test" dans le code.

n°1486634
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 14:36:01  profilanswer
 

j'ai du faire des changements de code en cours de route...
 
je te poste le dernier code, que j'ai refais, avec l'erreur donnée qui ressemble beaucoup à ce que tu cites.

n°1486645
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 14:45:24  profilanswer
 

Code :
  1. WITH Ada.Text_IO; USE Ada.Text_IO;
  2. WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
  3. WITH Ada.Float_Text_IO; USE Ada.Float_Text_IO;
  4. --with ada.Characters; use ada.Characters;
  6. PROCEDURE Cpte_Banquaires IS
  7.  
  8.    SUBTYPE Id_Banque IS Integer RANGE 100..500;
  9.    SUBTYPE Num_Banque IS Integer RANGE 1..100000;
  10.    SUBTYPE Solde_Cpte IS Float;
  11.    
  12.    TYPE T_En_Tete IS
  13.       RECORD
  14.       Bk:Id_Banque;
  15.       NBk:Num_Banque;
  16.       SC:Solde_Cpte;
  17.       END RECORD;
  18.    
  19.    SUBTYPE Num_Jour IS Integer RANGE 1..31; 
  20.    SUBTYPE Num_Mois IS Integer RANGE 1..12; 
  21.    SUBTYPE Num_Annee IS Integer RANGE 1900..2100;
  22.  
  23.  
  24.    TYPE T_Date IS
  25.    RECORD
  26.       jour:Num_Jour;
  27.       mois:Num_Mois;
  28.       Annee:Num_Annee;
  29.    END RECORD;
  30.  
  31.    TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);
  32.    TYPE T_Mode_Paiement IS (Cb, Cheque, Virement);
  33.  
  34.        
  35.    TYPE t_Nblignes IS
  36.    RECORD
  37.       Valeur:float;
  38.       Date:t_date;
  39.       Rubrique:T_Rubrique;
  40.       Mode_Paiement:T_Mode_Paiement;
  41.    END RECORD;
  42.  
  43.    TYPE T_Nblignes_Comptable IS ARRAY (1..10) OF T_Nblignes;
  44.  
  45.    PROCEDURE Suivi_Banquaire IS
  46.      
  47.       lignes_A:T_Nblignes_Comptable;
  48.       tab_B:t_Nblignes;
  49.      
  50.    BEGIN
  51.       FOR I IN 1..1 LOOP
  52.                    
  53.          Put("Veuillez saisir le jour du retrait :" );
  54.          New_Line;
  55.          Get(tab_B.date.Jour);
  56.          lignes_A(I).date.Jour:=tab_B.date.Jour;
  57.          Get(tab_B.Date.Mois);
  58.          lignes_A(I).Date.Mois:=tab_B.Date.Mois;
  59.          Get(tab_B.Date.Annee);
  60.          lignes_A(I).Date.Annee:=tab_B.Date.Annee;
  61.        
  62.          Put("Veuillez saisir une valeur :" );
  63.          New_Line;
  64.          Get(tab_b.Valeur);
  65.          lignes_A(I).Valeur:=tab_b.Valeur;
  66.        
  67.          Put("Veuillez saisir une rubrique :" );
  68.          New_Line;
  70. /*l'erreur est sur le "get" -problème "invalid parameter list in call"- si tu mets en commentaire les 2 lignes
  71. en dessous alors le code est compilé.*/
  73.          Get(tab_B.Rubrique);
  74.          lignes_a(i).rubrique:=tab_B.Rubrique;
  76.          END LOOP;
  77.       New_Line;
  78.      
  79.       Put("  date       valeur   rubrique   mode   " );
  80.       FOR I IN 1..1 LOOP
  81.          new_line;
  82.          Set_Col(1);
  83.          Put(lignes_A(I).Date.Jour,0);
  84.          PUT("/" );
  85.          Put(lignes_A(I).Date.Mois,0);
  86.          PUT("/" );
  87.          Put(lignes_A(I).Date.Annee,0);
  88.             SET_Col(15);
  89.          Put(lignes_A(I).Valeur,2,0,0);
  90.             Set_Col(20);
  91. --            put(a(i).rubrique);
  92.        
  93.       end loop;
  94.      
  95.       END Suivi_Banquaire;
  96. BEGIN
  97.    Suivi_Banquaire;
  98. END Cpte_Banquaires;


 
 

n°1486743
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 17:15:06  profilanswer
 

Pour ta question "Suivant la classification des types, un type tableau peut il contenir un type énumaratif ?", la classification des types et la possibilité de construire des tableaux d'lement de type enumératif n'on pas de relation. Mais oui, on peut construire des tableaux d'élément de type énumératif.
 
Pour le problème de la ligne 73, tu as au moins 3 solutions.
la premiere c'est de reecrire la fonction get pour le type T_Rubrique comme tu veux.
la deuxieme c'est de saisir un entier correspondant à la position de la valeur du type.
la troisiemme, c'est de saisir une chaine de caractere representant le non de la veur du type, du faire un uper_case et de comparer cette chaine avec le non de la valeur du type T_Rubrique.
Si je ne me suis pas bien exprimé, d'abord, désolé, puis, je peut te montrer un exemple.

n°1486766
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 17:39:24  profilanswer
 

Code :
  1. ......
  2. ......
  3. --En declarant ::= 
  4. longeur_max_nom_valeur_type_T_Rubrique : constante integer := 10;
  5. Rubrique : string (1..longeur_max_noms_valeurs_type_T_Rubrique) := (others => ascii.nul);
  6. last_char : natural := 0;
  7. .....
  8. .....
  9. -- Puis en faisant les appels suivant ::=
  10. get_line(Rubrique,last_char);
  11. Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char)));
  12. ......
  13. ......


Par exemple de la solution 2

Message cité 1 fois
n°1486768
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 17:41:43  profilanswer
 

Jovalise,
 
Si je comprends bien, l'utilisation du type t_rUbrique n'est pas exploitable dans l'état actuel...
 
Actuellement le get ne prend en compte que les integer, float ou string en gros ?
Donc créer une fonction get qui prenne les types énumératif.

n°1486781
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 17:54:15  profilanswer
 

Et bien, si je ne me trompe pas, oui, je ne connais pas de librairie qui propose une fonction get pour le type T_Rubrique. Soit, on te la fournit, soit tu l'implémente. ... Il me semble que c'est ça.

n°1486786
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:01:48  profilanswer
 

Mais comme tu peux le voir, l'attribut Value qui s'appique à des types enumérés, renvoie la valeur qui porte le nom donné en parametre.

n°1486787
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 18:02:23  profilanswer
 

tout ce qui touche au type énumération est il compris dans ada.text_io ?

n°1486788
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:04:08  profilanswer
 

ce serait plutot dans standard.

n°1486790
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:06:40  profilanswer
 

Mais je comprend pas trops la question en fait, je suis un amateur moi sais-tu  :jap:

Message cité 1 fois
n°1486791
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 18:07:49  profilanswer
 

dis moi, je ne t'ai pas expliqué le rendu de ce programme; mais quand tu le compiles (en mettant en commentaire les 2 lignes incriminées), le résultat est explicite ?

n°1486793
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 18:15:18  profilanswer
 

jovalise a écrit :

Mais je comprend pas trops la question en fait, je suis un amateur moi sais-tu  :jap:


 
Je pense que tu as bien ciblé ma demande en répondant autour de ce type énumératif bloquant dans le code.
Le fait est que l'on doit faire une sortie (get) sur un type énumératif, t_rubrique.
 

Code :
  1. TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);


 
Si je comprends ton code, je peux mettre salaire, versement ou loisirs... dans ta chaine de caractère sans me soucier de la longueur (car variable la longueur...) tant qu'elle est inférieur ou égalé à 10 ?

Message cité 1 fois
n°1486795
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:20:27  profilanswer
 

Ok, j'avais pas fais attention,
 
Pourquoi le nom de T_NbLignes, ça veux dire quoi Nb
T_NbLignes je suppose, devrait s'appeler T_Ligne(s)_Comptable, ... un ligne est une ligne .. une chaine ... quelquonque, T_Ligne(s)_Comptable ... un ligne comptable et, T_NbLignes_Comptable devrait s'appeler T_Tab_Ligne(s)_Comptable.
Moi je ferais comme ça. Le (s) c'est soit tu parle de l'objet ... donc au singulié ... soit tu parle de l'ensemble des objet ... de la classe ... et c'est au pluriel. Mais c'est perso
 
Si non c'est bon... besoin d'autre chose ...  :heink:

Message cité 1 fois
n°1486797
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:26:59  profilanswer
 

stupid_coder a écrit :

Je pense que tu as bien ciblé ma demande en répondant autour de ce type énumératif bloquant dans le code.
Le fait est que l'on doit faire une sortie (get) sur un type énumératif, t_rubrique.
 

Code :
  1. TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);


 
Si je comprends ton code, je peux mettre salaire, versement ou loisirs... dans ta chaine de caractère sans me soucier de la longueur (car variable la longueur...) tant qu'elle est inférieur ou égalé à 10 ?


 
Oui, tout à fait ... me semble t-il, à moins que j'ai oublié un détail.

n°1486804
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:32:23  profilanswer
 

pour etre exact, c'est ::=
 

Code :
  1. -- j'ai oublié d'oter 1 à last_char
  2. Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char-1)));


 
Mais je sais plus, il faut que je teste  :pt1cable:
 
Voila j'ai testé et c'est faux, c'est bien "Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char)));" qu'il faut ecrire.


Message édité par jovalise le 05-12-2006 à 18:46:08
n°1486806
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 18:35:02  profilanswer
 

jovalise a écrit :

Ok, j'avais pas fais attention,
 
Pourquoi le nom de T_NbLignes, ça veux dire quoi Nb
T_NbLignes je suppose, devrait s'appeler T_Ligne(s)_Comptable, ... un ligne est une ligne .. une chaine ... quelquonque, T_Ligne(s)_Comptable ... un ligne comptable et, T_NbLignes_Comptable devrait s'appeler T_Tab_Ligne(s)_Comptable.
Moi je ferais comme ça. Le (s) c'est soit tu parle de l'objet ... donc au singulié ... soit tu parle de l'ensemble des objet ... de la classe ... et c'est au pluriel. Mais c'est perso
 
Si non c'est bon... besoin d'autre chose ...  :heink:


 
Oui effectivement j'utilise "tab_..." pour un tableau et "T_..." pour un type en temps normal...
Ensuite je voulais faire simple sans faire attention à une quelconque formalisation, qui dit au passage est très très bien pour la lecture du code comme pour sa compréhension.
 
Le "Nb" et autres font référence aux consignes de l'exercice, bête et discipliné...

Message cité 1 fois
n°1486808
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:44:16  profilanswer
 

j'utilise Nbr comme abréviation de Nombre, c'est pour ça que je te demandais ça.
 
Si non, c'est bien "Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char)));" et non pas "Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char-1)));

n°1486810
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:48:25  profilanswer
 

stupid_coder a écrit :

Oui effectivement j'utilise "tab_..." pour un tableau et "T_..." pour un type en temps normal...
Ensuite je voulais faire simple sans faire attention à une quelconque formalisation, qui dit au passage est très très bien pour la lecture du code comme pour sa compréhension.
 
Le "Nb" et autres font référence aux consignes de l'exercice, bête et discipliné...


 
Parce qu'un "type 'tableau' is array () of ..... " c'est pas un type peut-etre ??  :heink:

n°1486813
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 18:53:41  profilanswer
 

je sais je sais... il y a "type" et "type".
Le tableau est spécial pour moi.
Il est définit en temps que conteneur, regroupe des données, donc je lui attribue une place de choix dans le code, bien distinguer les types et... les types tableaux !

n°1486814
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 18:55:02  profilanswer
 

Ma foix ....
 
Bonsoir coder

n°1486817
stupid_cod​er
<Dans le doute, reboot...>
Posté le 05-12-2006 à 19:02:48  profilanswer
 

je risque de reposter après avoir fait un petit lifting au code, en fin de soirée...
bonne soirée...

n°1486820
jovalise
Par l'anneau de l'i.a.
Posté le 05-12-2006 à 19:11:51  profilanswer
 

Ok, je repasse plus tard ...  

n°1488281
stupid_cod​er
<Dans le doute, reboot...>
Posté le 07-12-2006 à 20:29:47  profilanswer
 

jovalise a écrit :

Code :
  1. ......
  2. ......
  3. --En declarant ::= 
  4. longeur_max_nom_valeur_type_T_Rubrique : constante integer := 10;
  5. Rubrique : string (1..longeur_max_noms_valeurs_type_T_Rubrique) := (others => ascii.nul);
  6. last_char : natural := 0;
  7. .....
  8. .....
  9. -- Puis en faisant les appels suivant ::=
  10. get_line(Rubrique,last_char);
  11. Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char)));
  12. ......
  13. ......


Par exemple de la solution 2


 
Bonjour Jovalise,
 
J'ai fait le lifting comme prévu.
Cependant j'obtiens un "constraint_error explicit raise" durant l'execution du programme, je valide une valeur décimale ( Get(tab_b.Valeur); ) et après c'est le drame...
 
J'utilise la déclaration suivante :
 

Code :
  1. /*<<<<<<<<<<<<<<<Pour utilisation du type t_rubrique>>>>>>>>>>>>>>>>>>*/
  2.    max_T_Rubrique : Constant Integer := 10;
  3.    str_Rubrique : String (1..max_T_Rubrique) := (OTHERS => Ascii.Nul);
  4.    Last_Char : Natural := 0;
  5. /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>*/


 
Au passage j'aimerais connaitre le " OTHERS => Ascii.Nul" . Kesako ?
 
Ensuite, avant le begin je déclare les variables suivantes, elles ne changent pas je crois :
 

Code :
  1. /* toujours pas de formalisation... */
  2. lignes_A:T_Nblignes_Comptable;
  3.       tab_B:t_Nblignes;


 
Je reprends ton appel get_line avec mes variables:
 

Code :
  1. /*rien d'anormal jusqu'ici je pense... */
  2. Get_Line(str_Rubrique,Last_Char);


 
Pour finir, j'ai refais une partie de la dernière ligne car celle que tu proposais ne mentionnais pas le type "T_Nblignes_Comptable" représenté par "lignes_A "
Comme c'est un tableau indicé, nous avons :
 

Code :
  1. /* nous affectons la valeur T_Rubrique'Value(To_Upper(str_Rubrique(1..Last_Char à l'adresse mémoire lignes_A(i).Rubrique .A noter to_upper avec 2 "p" :) */
  3. lignes_A(i).Rubrique := T_Rubrique'Value(To_Upper(str_Rubrique(1..Last_Char)));


Pas de problème de compilation mais un "CONSTRAINT_ERROR EXPLICIT RAISE" comme annoncé au début.
 
Je me trompe surement avec le type t_nblignes, qui est un record avec notre fameux type énumératif t_rubrique, et le str_rubrique qui est un string.
 
Je comprends pas toute la ligne T_Rubrique'Value(To_Upper(str_Rubrique(1..Last_Char))); :
str_Rubrique(1..Last_Char) valeur du get_line gardé en mémoire -ok
To_Upper on met en majuscule les caractères -ok
T_Rubrique'Value est la transformatioin d'un type string en type t_rubrique car rubrique est un string jusqu'ici...
 
Merci de tes réponses, je continue à bucher dessus...

Message cité 1 fois

---------------
...pour les miracles ? prévoir un délai !
n°1488329
jovalise
Par l'anneau de l'i.a.
Posté le 07-12-2006 à 23:18:36  profilanswer
 

stupid_coder a écrit :


Au passage j'aimerais connaitre le " OTHERS => Ascii.Nul" . Kesako ?


 
ben on affecte le caractere nul au reste des variable, comme on specifit pas de variable en particulier OTHERS represente toute les variables.
 

stupid_coder a écrit :


Ensuite, avant le begin je déclare les variables suivantes, elles ne changent pas je crois :
 

Code :
  1. /* toujours pas de formalisation... */
  2. lignes_A:T_Nblignes_Comptable;
  3.       tab_B:t_Nblignes;


 
Je reprends ton appel get_line avec mes variables:
 

Code :
  1. /*rien d'anormal jusqu'ici je pense... */
  2. Get_Line(str_Rubrique,Last_Char);


 
Pour finir, j'ai refais une partie de la dernière ligne car celle que tu proposais ne mentionnais pas le type "T_Nblignes_Comptable" représenté par "lignes_A "
Comme c'est un tableau indicé, nous avons :
 

Code :
  1. /* nous affectons la valeur T_Rubrique'Value(To_Upper(str_Rubrique(1..Last_Char à l'adresse mémoire lignes_A(i).Rubrique .A noter to_upper avec 2 "p" :) */
  3. lignes_A(i).Rubrique := T_Rubrique'Value(To_Upper(str_Rubrique(1..Last_Char)));




Tout ceci semble correct ... de memoire ...

stupid_coder a écrit :


Je comprends pas toute la ligne T_Rubrique'Value(To_Upper(str_Rubrique(1..Last_Char))); :


On affecte la valeur retourné par l'attribut 'Value auquel on donne la mise en majuscule de la valeur du tableau de caracteres str_Rubrique du premier au dernier caractere saisie au clavier ou ailleur à la variablr Rubrique numéro i du tableau Ligne_A.

stupid_coder a écrit :


T_Rubrique'Value est la transformatioin d'un type string en type t_rubrique car rubrique est un string jusqu'ici...


c'est pas la transformation, c'est une fonctionnalité Ada, une transformation serait ::=  
Rubrique := t_rubrique(str_Rubrique(1..Last_Char))
C'est une conversion, mais Ada, n'accepte pas cette conversion.
l'attribut 'Value propose de prendre la representation source "graphique" accepté par le langage des valeur du type et de retourner la valeur correspondante du type de base du type de Rubrique.
 
 
Je regarde ce qui ne va pas exactement d'ici demain  :hello:


Message édité par jovalise le 07-12-2006 à 23:26:15
n°1488390
jovalise
Par l'anneau de l'i.a.
Posté le 08-12-2006 à 09:13:49  profilanswer
 

:hello: Bonjour,
 
A priori, il suffit d'inserer un "Skip_Line" avant de faire le get de rubrique, et ça roule.


Message édité par jovalise le 08-12-2006 à 09:14:07
n°1488422
stupid_cod​er
&lt;Dans le doute, reboot...&gt;
Posté le 08-12-2006 à 10:34:19  profilanswer
 

yes! je vais essayer et je te tiens au courant.
merci

n°1488850
stupid_cod​er
&lt;Dans le doute, reboot...&gt;
Posté le 08-12-2006 à 19:21:50  profilanswer
 

c'est bien ça !
Je reviendrais prendre quelques consils, tu est efficace Jovalise, merci encore !

n°1488851
jovalise
Par l'anneau de l'i.a.
Posté le 08-12-2006 à 19:31:58  profilanswer
 

yé, à plus coder  :jap:

mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  ADA

  Tableau de record et de type énumé

 

Sujets relatifs
[HTML] Informations sur les input type FILE [Liens inside]Comment trier un tableau ?
Affichage bordure tableau IEinsérer des octets en debut de tableau
Tableau dynamique de caractères[Résolu]Affichage d'un tableau
[EXCEL] Eliminer les doublons dans un tableauTrier un tableau sous excel horizontalement avec VBA(résolu)
inserer un tableau dans un forum...remplacer type d'accesseur PHP objet
Plus de sujets relatifs à : Tableau de record et de type énumé

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.416 secondes

Hit-Parade
Copyright © 1997-2012 Hardware.fr SARL / Groupe LDLC / LesNumeriques.com / Version anglaise du site: BeHardware