Ada

Tableau de record et de type énumé

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Tableau de record et de type énumé

stupid_coder

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 :

WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
WITH Ada.Float_Text_IO; USE Ada.Float_Text_IO;
PROCEDURE Cpte_Banquaire IS
SUBTYPE Id_Banque IS Integer RANGE 100..500;
SUBTYPE Num_Banque IS Integer RANGE 1..100000;
SUBTYPE Solde_Cpte IS Float;
TYPE T_En_Tete IS
RECORD
Bk:Id_Banque;
NBk:Num_Banque;
SC:Solde_Cpte;
END RECORD;
SUBTYPE Num_Jour IS Integer RANGE 1..31;
SUBTYPE Num_Mois IS Integer RANGE 1..12;
SUBTYPE Num_Annee IS Integer RANGE 1900..2100;
TYPE T_Date IS
RECORD
jour:Num_Jour;
mois:Num_Mois;
Annee:Num_Annee;
END RECORD;
TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);
TYPE T_Mode_Paiement IS (Cb, Cheque, Virement);
TYPE t_Nblignes IS
RECORD
Valeur:float;
Date:t_date;
Rubrique:T_Rubrique;
Mode_Paiement:T_Mode_Paiement;
END RECORD;
TYPE T_nblignes_Comptable IS ARRAY (1..10) OF T_Nblignes;
PROCEDURE Ligne_Comptable IS
nblignes:T_Nblignes;
Date: T_Date;
rubrique:T_Rubrique;
mod_p:t_mode_paiement;
nblignes_Compta:T_nblignes_Comptable;
begin
FOR I IN 1..2 LOOP
Put("Rentrer une date :" );
New_Line;
Get(nblignes.Date.jour);
nblignes_Compta(I).Date.Jour:=Date.Jour;
nblignes_Compta(I).Date.mois:=Date.mois;
nblignes_Compta(I).Date.annee:=Date.annee;
Put("Rentrer une Valeur :" );
New_Line;
Get(nblignes.Valeur);
nblignes_compta(i).valeur:=nblignes.valeur;
New_Line;
Put("Rentrer une Rubrique :" );
New_Line;
Get(rubrique.Rubrique);
nblignes_Compta(I).rubrique:=rubrique.rubrique;
New_Line;
Put("Rentrer un mode de paiement :" );
New_Line;
Get(mode_p.Mode_Paiement);
nblignes_Compta(I).Mode_Paiement:=mode_p.mode_paiement;
New_Line;
END LOOP;
New_line;
Put(" Date Valeur Rubrique Mode " );
New_Line;
END Ligne_Comptable;
begin
Ligne_Comptable;
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.

Publicité

Profil supprimé

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.

stupid_coder

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.

Profil supprimé

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.

stupid_coder

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.

stupid_coder

Code :

WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
WITH Ada.Float_Text_IO; USE Ada.Float_Text_IO;
--with ada.Characters; use ada.Characters;
PROCEDURE Cpte_Banquaires IS
SUBTYPE Id_Banque IS Integer RANGE 100..500;
SUBTYPE Num_Banque IS Integer RANGE 1..100000;
SUBTYPE Solde_Cpte IS Float;
TYPE T_En_Tete IS
RECORD
Bk:Id_Banque;
NBk:Num_Banque;
SC:Solde_Cpte;
END RECORD;
SUBTYPE Num_Jour IS Integer RANGE 1..31;
SUBTYPE Num_Mois IS Integer RANGE 1..12;
SUBTYPE Num_Annee IS Integer RANGE 1900..2100;
TYPE T_Date IS
RECORD
jour:Num_Jour;
mois:Num_Mois;
Annee:Num_Annee;
END RECORD;
TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);
TYPE T_Mode_Paiement IS (Cb, Cheque, Virement);
TYPE t_Nblignes IS
RECORD
Valeur:float;
Date:t_date;
Rubrique:T_Rubrique;
Mode_Paiement:T_Mode_Paiement;
END RECORD;
TYPE T_Nblignes_Comptable IS ARRAY (1..10) OF T_Nblignes;
PROCEDURE Suivi_Banquaire IS
lignes_A:T_Nblignes_Comptable;
tab_B:t_Nblignes;
BEGIN
FOR I IN 1..1 LOOP
Put("Veuillez saisir le jour du retrait :" );
New_Line;
Get(tab_B.date.Jour);
lignes_A(I).date.Jour:=tab_B.date.Jour;
Get(tab_B.Date.Mois);
lignes_A(I).Date.Mois:=tab_B.Date.Mois;
Get(tab_B.Date.Annee);
lignes_A(I).Date.Annee:=tab_B.Date.Annee;
Put("Veuillez saisir une valeur :" );
New_Line;
Get(tab_b.Valeur);
lignes_A(I).Valeur:=tab_b.Valeur;
Put("Veuillez saisir une rubrique :" );
New_Line;
/*l'erreur est sur le "get" -problème "invalid parameter list in call"- si tu mets en commentaire les 2 lignes
en dessous alors le code est compilé.*/
Get(tab_B.Rubrique);
lignes_a(i).rubrique:=tab_B.Rubrique;
END LOOP;
New_Line;
Put(" date valeur rubrique mode " );
FOR I IN 1..1 LOOP
new_line;
Set_Col(1);
Put(lignes_A(I).Date.Jour,0);
PUT("/" );
Put(lignes_A(I).Date.Mois,0);
PUT("/" );
Put(lignes_A(I).Date.Annee,0);
SET_Col(15);
Put(lignes_A(I).Valeur,2,0,0);
Set_Col(20);
-- put(a(i).rubrique);
end loop;
END Suivi_Banquaire;
BEGIN
Suivi_Banquaire;
END Cpte_Banquaires;

Profil supprimé

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.

Profil supprimé

Code :

......
......
--En declarant ::= 
longeur_max_nom_valeur_type_T_Rubrique : constante integer := 10;
Rubrique : string (1..longeur_max_noms_valeurs_type_T_Rubrique) := (others => ascii.nul);
last_char : natural := 0;
.....
.....
-- Puis en faisant les appels suivant ::=
get_line(Rubrique,last_char);
Tab_B.Rubrique := T_Rubrique'value(to_uper(Rubrique(1..last_char)));
......
......

Par exemple de la solution 2

Message cité 1 fois

stupid_coder

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.

Profil supprimé

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.

Publicité

Profil supprimé

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.

stupid_coder

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

Profil supprimé

ce serait plutot dans standard.

Profil supprimé

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

Message cité 1 fois

stupid_coder

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 ?

stupid_coder

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 :

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

Profil supprimé

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

Profil supprimé

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 :

TYPE T_Rubrique IS (Salaire, Versement, Loisirs, Maison, Divers);

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

Profil supprimé

pour etre exact, c'est ::=

Code :

-- j'ai oublié d'oter 1 à last_char
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 Profil supprimé le 05-12-2006 à 18:46:08

stupid_coder

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

Profil supprimé

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)));

Profil supprimé

stupid_coder a écrit :

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

stupid_coder

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 !

Profil supprimé

Ma foix ....

Bonsoir coder

stupid_coder

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

Profil supprimé

Ok, je repasse plus tard ...

stupid_coder

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 :

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

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 :

/* toujours pas de formalisation... */
lignes_A:T_Nblignes_Comptable;
tab_B:t_Nblignes;

Je reprends ton appel get_line avec mes variables:

Code :

/*rien d'anormal jusqu'ici je pense... */
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 :

/* 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" :) */
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 !

Profil supprimé

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 :

/* toujours pas de formalisation... */
lignes_A:T_Nblignes_Comptable;
tab_B:t_Nblignes;

Je reprends ton appel get_line avec mes variables:

Code :

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

Code :

/* 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" :) */
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 Profil supprimé le 07-12-2006 à 23:26:15

Profil supprimé

:hello: Bonjour,

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

Message édité par Profil supprimé le 08-12-2006 à 09:14:07

stupid_coder

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

stupid_coder

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

Profil supprimé

yé, à plus coder :jap:

Publicité

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 IE	insérer des octets en debut de tableau
Tableau dynamique de caractères	[Résolu]Affichage d'un tableau
[EXCEL] Eliminer les doublons dans un tableau	Trier 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é

Page générée en 0.117 secondes