Discussion :

[apple4ever]

Bonjour a tous, Je suis actuellement en licence d'informatique à orleans,
Je décoouvre le language ADA depuis a peine 1 mois et demi et nous devons réaliser un agenda.

Je commence donc par la specification "agenda.ads"
L'idée principale est la suivante : un agenda est un array de "rendez_vous"
Par la suite dans ce package je pense déclarer la fonction "ajouter un rendez vous" et quelques autres fonctions...

Seulement mon problème est le suivant, je ne sais pas comment délarer le type agenda, ce que j'ai fait ne fonctionne pas "voir code ci dessous".
Si une ame charitable pouvait m'éclairer ca m'aiderait beaucoup .

Merci.



with ada.Calendar;
use ada.Calendar;

package agenda is

type type_rendez_vous is (ponctuel,hebdomadaire,annulation);
type rendez_vous ( selon : type_rendez_vous ) is private;


private

type rendez_vous ( selon : type_rendez_vous ) is

record
date_debut : ada.Calendar.Time;
date_fin : ada.Calendar.Time;
numero : Integer;
motif_rdv : String(1..1000);

case selon is

when ponctuel => null;
when hebdomadaire => nombre_occurence : natural;
when annulation => nb_rdv_annules : natural;

end case;
end record;

type agenda is array(numero range<>) of rendez_vous; -- /!\

-- ne marche pas
-- probablement car type rendez_vous est private...
-- je souhaite trouver un moyen pour déclarer le type agenda
-- agenda est un array de rendez vous répertoriés selon leur numero.

end agenda;

[Invité]

Bonjour,

Le type rendez_vous étant paramétré, à la déclaration du tableau agenda, le compilateur demande le paramètre. Normal.
Une solution est de déclarer le tableau agenda comme un tableau de type accès au type rendez_vous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
   type rendez_vous_access is access rendez_vous;
 
   type agenda is array(numero range<>) of rendez_vous_access;

[Leonhart]

Bonjour,

Le type rendez_vous étant paramétré, à la déclaration du tableau agenda, le compilateur demande le paramètre. Normal.
Une solution est de déclarer le tableau agenda comme un tableau de type accès au type rendez_vous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
   type rendez_vous_access is access rendez_vous;
 
   type agenda is array(numero range<>) of rendez_vous_access;

A noter que pour faire un rapprochement avec le développement Objet, on peut assimiler un type access avec lesdits objets (malgré ce que diront les puristes de l'Ada).

Quand ensuite tu utilises ce type access lors d'un déclaration, tu crées une instance de cet objet. Du coup, on peut imaginer que tu déclares plusieurs rendez vous via le type access.

[apple4ever]

Merci bcp, a vous deux!

entre temps j'ai réussi a trouver une solution, dans la déclaration du type rendez_vous, j'initialise type_rendez_vous a Ponctuel,
du coup, plus de probleme de parametrage.

[Invité]

Merci bcp, a vous deux!

entre temps j'ai réussi a trouver une solution, dans la déclaration du type rendez_vous, j'initialise type_rendez_vous a Ponctuel,
du coup, plus de probleme de parametrage.

Bonjour,
Vérifie que le paramètre ne soit pas une constante.