Projet Distributeur orienté objet

Version imprimable

04/04/2008, 14h31
antoine2405

Projet Distributeur orienté objet

Bonjour tout le monde.

Je souhaite développer une application sur un distributeur de boisson en Delphi orienté objet.

Donc pour l'instant j'ai 4 classes
-Produit
-boissons hérite de produit
-bonbon hérite de produit
-monnaie

Et la je ne sais pas quoi faire.

Merci de m'aider stp

Cordialement,
04/04/2008, 14h49
ShaiLeTroll

C'est un projet scolaire ?

Commence par étudier le fonctionnement d'un distributeur, les actions qu'il peut avoir, ...

- Saisie d'une touche sur clavier de sélection (par code ou par touche prédéfini)
- Affichage de la somme à payer
- Gestion de l'insertion de monnaie
- Livraison du Produit
- Restitution Monnaie ...

avec ce tu constitue un MOT (Modèle Organisationnel de Traitement)

En parallèle, tu défini les données :

- Stock Actuel et Stock Maximal par Type de Produit
- Réserve de Monnaie

avec cela tu constiture un MCD (Modèle Conceptuel de Données)

De cela tu peux en découler des classes de données et de traitement, ainsi que les interactions entre-elles ...
04/04/2008, 21h01
antoine2405

Oula ca fait pas mal de chose a penser.

Oui c'est pour une projet scolaire.

Tu penses que l'on peut le réaliser en combien de temps un projet comme ca?

Merci encore pour la reponse rapide

cordialement,
04/04/2008, 21h34
Kephuro

Ca dépend. Si ton programme doit juste délivrer ce qu'il doit délivrer quand on clique sur le bon bouton, gérer la monnaie, le rendu de la monnaie, gestion du stock....

Une heure ou deux ? Si tu maitrises un minimum le Delphi.
05/04/2008, 12h31
antoine2405

Je connais un minumum delphi et pourtant je ne pense pas pouvoir réaliser en 1 ou 2 heure le projet.....
05/04/2008, 16h20
antoine2405

J'ai un petit problème d'analyse.
Tout d'abord, j'ai décider de programmer un distributeur qui fournit des produit.
Parmit c'est produit on a soit des accessoire soit du matériel (ipod, Zune.....)

Donc j'utilise un Héritage(polymorphisme) entre produit et accessoire, matériel.

Mais le problème est que je n'arrive pas a trouver d'élément différent dans accessoire et matériel.

Je m'explique.

Donc la classe produit a en privée:libellé, nbrest, nbmax, prix
les classes Accessoires et matériaux reprennent exactement les même donnée de la classe produit mais je n'arrive pas a trouvé d'élément qui les différencies.

Avez vous une idée?

Pour compléter le projet, j'ai une classe portemonnaie comprenant en privée lavaleur, le nbr, le nbrmax, enfin j'ai une dernière classe Distributeur comprenant en privée 2 tableaux, l'un sur les produit et l'autre sur lesportemonnaie.

Est ce que je suis pour l'instant dans le vrai ou totalement dans le vent?

Pour vous donnée un exemple voici une vidéo ^^
http://fr.youtube.com/watch?v=p82Y7hJgVM4
05/04/2008, 22h09
Teo

Bonjour

Citation:

Envoyé par antoine2405

J'ai un petit problème d'analyse.

Donc j'utilise un Héritage(polymorphisme) entre produit et accessoire, matériel.

Mais le problème est que je n'arrive pas a trouver d'élément différent dans accessoire et matériel.

Je m'explique.

Donc la classe produit a en privée:libellé, nbrest, nbmax, prix
les classes Accessoires et matériaux reprennent exactement les même donnée de la classe produit mais je n'arrive pas a trouvé d'élément qui les différencies.

Il me semble que si Accessoires et Materiaux n'ont pas de differences, peut etre qu'ils doivent tout simplement etre tous les deux de Classe "PRODUIT", dans ce cas, inutil de les deriver de "produit".
06/04/2008, 12h19
Aka Guymelef

En premier lieu il faut faire comme ShaiLeTroll l'a indiqué et bien découper chaque fonctionnalité que doit faire le distributeur. Vu que c'est un projet scolaire, je suppose que vous devez avoir des contraintes à remplir et que vous devez donc intégrer.

Ensuite la première des choses à penser c'est les conteneurs (et non pas l'affichage !) et ici les classes conteneurs puisqu'il faut penser POO.

Donc effectivement une classe Distributeur qui sert de grand conteneur pour tout. Ce dernier possède un tableau d'objet Produit (classe de base). Chaque Produit possède donc un nom, un prix et un stock courant (et éventuellement un stock max) et une position dans le distributeur (qui peut correspondre à son indice dans le tableau mais c'est de mieux de l'avoir dans l'objet directement comme ça on peut le savoir directement et ça rend les choses plus simples pour l'affichage par exemple).
Pour illustrer le principe d'héritage, on pourrait très bien avoir deux classes Bonbon et Boisson et chacune définirait son prix dans le constructeur (0,50€ pour les bonbons, 1,00€ pour les boissons).

Un autre objet présent dans le Distributeur serait le Monnayeur, l'objet qui gère le rendu de la monnaie après achat (ou annulation). Ce dernier peut être assez complexe si on veut les choses bien car en réalité, ce n'est pas juste le stock d'argent présent dans la machine, je met ça et ça coûte et je rends ça. Non un monnayeur stocke pour chaque type de pièce (0,05, 0,10, 0,20, 0,50, 1,00 et 2,00) un nombre de pièce disponible et rend les pièces en nombre et en type correspondant à la valeur à rendre. De même il devrait être capable d'alerter lorsqu'il passe en statut "plus de monnaie".
06/04/2008, 21h59
antoine2405

En faite j'ai comme contrainte de l'héritage ( polymorphisme) et voila tout ^^

Donc sans être original j'aurai fait un vrai distributeur ( avec boisson, bonbon...) mais bon ça fait trop simple.

C'est pour ça que j'ai voulu introduire une Classe Accessoire et une Classe Matériel ( baladeur MP3 ....).

Avez vous des idée original que je pourrai introduire????

Merci quand même de vos réponses.

Cordialement,
07/04/2008, 15h20
Kaféine

Ok voici mon distributeur :

TDistributeurUniversel

TProduitGratuit => TRienEstGratuitDansCeMonde

TProduitPayant => TMatos
=> TBouffe
=> TGonzesse

TMatos => TLecteur => TLecteurMP3 => TIPod
=> TCreative

=> TLecteurCD => TLecteurCDSony

TBouffe => TClacosse => TFromageQuiPu
=> TSandwich => TSodebo

TGonzesse => TPasJolie => TGertrude
=> TJolie => TCindyCrawford (ce produit est cher :\)
07/04/2008, 16h47
antoine2405

8O
07/04/2008, 17h00
Aka Guymelef

Ha ben ça t'avais demandé un truc original, fallait t'y attendre ^^

Nan plus sérieusement si j'étais toi je m'appliquerais déjà à coder mon distributeur qui donne des bonbons et des boissons et le fun tu verras après. Mais si ta problématique c'est d'avoir des idée pour avoir des héritages, tu peux déjà pas mal faire rien qu'avec ça :

TProduit
=> TConfiserie
=> TSachet
=> TBarre
=> TBoisson
=> TBouteille
=> TCanette

Etc... en cherchant un peu je suis sûr qu'on peut trouver les différences qui permettent de faire les catégories et d'en découler les héritages ;)
07/04/2008, 21h09
antoine2405

Merci, je pense que dans un premier temps je vais partir sur un sujet comme ça.
Mais bon en espérant que j' y arrive a développé l'application.

Je vous tiens au courant si j'ai un problème.

Merci encore
24/04/2008, 19h08
antoine2405

bonjour,

Le projet avance petit a petit, en meme temps je ne l'ai retouché que aujourd'hui

Bref je suis un peu perdu.

J'arrive a afficher les prix des différents objet en vente mais après je ne sais pas trop quoi faire.

Faut il que je m'occupe que de rendre la monnaie ou il y a un autre concept que j'oublie ?

merci

Cordialement,

J'ai cet fois ci un probléme d'héritage (polymorphisme) et je ne sais pas du tout d'ou ca vient.

S'il y a une personne qui pourrait m'aider ca serait avec plaisir.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
unit distributeur;
 
interface
 {DEBUT dÈclaration des diffÈrente classe}
type
Produit=class
  Private
    lelibelle:string;
    lenbrest:integer;
    lenbmax:integer;
    leprix:integer;
  Public
    Constructor create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer);
    function get_prix():integer;
     procedure maj_nbr(erreur:boolean); virtual;
    end;
 
type
Accessoire=class(Produit)
  Private
  lamarque_acc:string;
  Public
    Constructor create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer;Unemarque_acc:string );
  procedure maj_nbr(erreur:boolean);override;
  end;
 
type
Materiel=class(Produit)
  Private
letype_mat:string;
  Public
    Constructor create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer; Untype_mat:string );
   procedure maj_nbr(erreur:boolean);override;
  end;
 
type
Portemonnaie=class
  Private
    lavaleur:integer;
    lenbr:integer;
    lenbrmax:integer;
  Public
    Constructor create(Unevaleur:integer; Unnbr:integer; Unnbrmax:integer);
    function get_valeur():integer;
    function get_nbrpiece():integer;
    function get_nbrmax():integer;
    procedure ajout(Unnbpiece:integer);
    procedure supp(Unnbpiece:integer);
    end;
 
type
Distributeur_objet=class
  Private
  lesproduit:array[1..9]of Produit;
  lesportemonnaie:array[1..5]of Portemonnaie;
  Public
    Constructor create2();
    Constructor create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer);
    Function get_produit(Unlibelle:string;distributeur:Distributeur_objet):integer;
    Function get_prix(Unevaleur:integer;distributeur:Distributeur_objet):integer;
    Function get_total(distributeur:Distributeur_objet):integer;
    Procedure maj_nbr2(Unlibelle:string;distributeur:Distributeur_objet;erreur:boolean);
 
  end;
 
 {FIN dÈclaration des diffÈrente class}
implementation
 {DEBUT class PRODUIT}
constructor Produit.create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer);
  begin
  lelibelle:=Unlibelle;
  lenbrest:=Unnbrest;
  lenbmax:=Unnbmax;
  leprix:=Unprix;
  end;
 
function Produit.get_prix():integer;
begin
result:=leprix;
end;
 
procedure Produit.maj_nbr(erreur:boolean);
  begin
 
  end;
 
procedure Materiel.maj_nbr(erreur:boolean);
begin
If lenbrest=0 then
begin
erreur:=true ;
 
end
else
begin
   lenbrest:=lenbrest-1;
erreur:=false ;
end;
end;
procedure Accessoire.maj_nbr(erreur:boolean);
begin
If lenbrest=0 then
begin
erreur:=true ;
 
end
else
begin
   lenbrest:=lenbrest-1;
erreur:=false ;
end;
end;
 
 {FIN class PRODUIT}
 
 {DEBUT class ACCESSOIRE}
constructor Accessoire.create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer; Unemarque_acc:string);
begin
inherited create(Unlibelle,Unnbrest,Unnbmax,Unprix);
lamarque_acc:=Unemarque_acc;
end;
 
 {FIN class ACCESSOIRE}
 
 {DEBUT class MATERIEL}
constructor Materiel.create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer; Untype_mat:string);
begin
 
inherited create(Unlibelle,Unnbrest,Unnbmax,Unprix);
letype_mat:=Untype_mat;
 
end;
 {FIN class MATERIEL}
 
 
 
  {DEBUT class PORTEMONNAIE}
 
Constructor Portemonnaie.create(Unevaleur:integer; Unnbr:integer; Unnbrmax:integer);
begin
lavaleur:=Unevaleur;
lenbr:=Unnbr;
lenbrmax:=Unnbrmax;
end;
 
function Portemonnaie.get_valeur():integer;
begin
result:=lavaleur;
end;
 
function Portemonnaie.get_nbrpiece():integer;
begin
result:=lenbr;
end;
 
function Portemonnaie.get_nbrmax():integer;
begin
result:=lenbrmax;
end;
 
procedure Portemonnaie.ajout(Unnbpiece:integer);
begin
lenbr:=lenbr+Unnbpiece;
end;
 
procedure Portemonnaie.supp(Unnbpiece:integer);
begin
lenbr:=lenbr-Unnbpiece;
end;
 
  {FIN class PORTEMONNAIE}
 
 
 
 
 {DEBUT class DISTRIBUTEUR}
 Constructor Distributeur_objet.create2();
begin
lesproduit[1]:= Materiel.create('iPod Shuffle',0,20,50,'mp3');
lesproduit[2]:= Materiel.create('iPod Nano',5,100,150,'mp3');
lesproduit[3]:= Materiel.create('ipod Classic',5,20,250,'mp3');
lesproduit[4]:= Materiel.create('iTouch',5,20,350,'mp3');
lesproduit[5]:= Materiel.create('iPhone',5,400,450,'telephone');
lesproduit[6]:= Accessoire.create('Ecouteur Apple',5,30,30,'Apple');
lesproduit[7]:= Accessoire.create('Chargeur Apple',5,30,50,'Apple');
lesproduit[8]:= Accessoire.create('Etui Larobe',5,30,30,'Larobe');
lesproduit[9]:= Accessoire.create('Chaussette Apple',5,30,20,'Apple');
 
lesportemonnaie[1]:= Portemonnaie.create(100,5,100);
lesportemonnaie[2]:= Portemonnaie.create(50,10,100);
lesportemonnaie[3]:= Portemonnaie.create(20,10,100);
lesportemonnaie[4]:= Portemonnaie.create(10,10,100);
lesportemonnaie[5]:= Portemonnaie.create(5,10,100);
end;
 
 
Constructor Distributeur_objet.create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer);
begin
lesproduit[1]:= Materiel.create('iPod Shuffle',1,20,50,'mp3');
lesproduit[2]:= Materiel.create('iPod Nano',5,100,150,'mp3');
lesproduit[3]:= Materiel.create('ipod Classic',5,20,250,'mp3');
lesproduit[4]:= Materiel.create('iTouch',5,20,350,'mp3');
lesproduit[5]:= Materiel.create('iPhone',5,400,450,'telephone');
lesproduit[6]:= Accessoire.create('Ecouteur Apple',5,30,30,'Apple');
lesproduit[7]:= Accessoire.create('Chargeur Apple',5,30,50,'Apple');
lesproduit[8]:= Accessoire.create('Etui Larobe',5,30,30,'Larobe');
lesproduit[9]:= Accessoire.create('Chaussette Apple',5,30,20,'Apple');
 
lesportemonnaie[1]:= Portemonnaie.create(100,5,100);
lesportemonnaie[2]:= Portemonnaie.create(50,10,100);
lesportemonnaie[3]:= Portemonnaie.create(20,10,100);
lesportemonnaie[4]:= Portemonnaie.create(10,10,100);
lesportemonnaie[5]:= Portemonnaie.create(5,10,100);
end;
 
    Function Distributeur_objet.get_produit(Unlibelle:string;distributeur:Distributeur_objet):integer ;
     begin
  If (Unlibelle='ipod Shuffle') then   result:=distributeur.lesproduit[1].get_prix()
  else if (Unlibelle='ipod Nano') then  result:=distributeur.lesproduit[2].get_prix()
  else if (Unlibelle='ipod Classic') then result:=distributeur.lesproduit[3].get_prix()
  else if (Unlibelle='iTouch') then result:=distributeur.lesproduit[4].get_prix()
  else if (Unlibelle='iPhone') then result:=distributeur.lesproduit[5].get_prix()
  else if (Unlibelle='Ecouteur Apple') then result:=distributeur.lesproduit[6].get_prix()
  else if (Unlibelle='Chargeur Apple') then result:=distributeur.lesproduit[7].get_prix()
  else if (Unlibelle='Etui Larobe') then result:=distributeur.lesproduit[8].get_prix()
  else if (Unlibelle='Chaussette Apple') then result:=distributeur.lesproduit[9].get_prix()
 end;
 
 
 
   Function Distributeur_objet.get_prix(Unevaleur:integer;distributeur:Distributeur_objet):integer;
    begin
   case Unevaleur of
   100 : result:=distributeur.lesportemonnaie[1].get_valeur() ;
   50:   result:=distributeur.lesportemonnaie[2].get_valeur() ;
   20:  result:=distributeur.lesportemonnaie[3].get_valeur() ;
   10  :   result:=distributeur.lesportemonnaie[4].get_valeur() ;
   5 :   result:=distributeur.lesportemonnaie[5].get_valeur() ;
   end;
    end;
 
   Function Distributeur_objet.get_total(distributeur:Distributeur_objet):integer;
    begin
 
   result:=distributeur.lesportemonnaie[1].get_valeur()*distributeur.lesportemonnaie[1].get_nbrpiece() +
distributeur.lesportemonnaie[2].get_valeur()*distributeur.lesportemonnaie[2].get_nbrpiece() +
distributeur.lesportemonnaie[3].get_valeur()*distributeur.lesportemonnaie[3].get_nbrpiece()   +
distributeur.lesportemonnaie[4].get_valeur()*distributeur.lesportemonnaie[4].get_nbrpiece()    +
distributeur.lesportemonnaie[5].get_valeur()*distributeur.lesportemonnaie[5].get_nbrpiece() ;
   end;
 
   Procedure Distributeur_objet.maj_nbr2(Unlibelle:string;distributeur:Distributeur_objet;erreur:boolean);
 
   Begin
 
    If (Unlibelle='ipod Shuffle') then  distributeur.lesproduit[1].maj_nbr(erreur)
 // else if (Unlibelle='ipod Nano') then distributeur.lesproduit[2].maj_nbr(erreur)
 // else if (Unlibelle='ipod Classic') then distributeur.lesproduit[3].maj_nbr(erreur)
 // else if (Unlibelle='iTouch') then distributeur.lesproduit[4].maj_nbr(erreur)
 // else if (Unlibelle='iPhone') then distributeur.lesproduit[5].maj_nbr(erreur)
 // else if (Unlibelle='Ecouteur Apple') then distributeur.lesproduit[6].maj_nbr(erreur)
 // else if (Unlibelle='Chargeur Apple') then distributeur.lesproduit[7].maj_nbr(erreur)
 // else if (Unlibelle='Etui Larobe') then distributeur.lesproduit[8].maj_nbr(erreur)
  // else if (Unlibelle='Chaussette Apple') then distributeur.lesproduit[9].maj_nbr(erreur)
  end;
 
  {FIN class DISTRIBUTEUR}
  end.

P.S : j'en profite aussi pour savoir ce que vous en pensez? Est ce compréhensible???

Citation:

Envoyé par antoine2405

P.S : j'en profite aussi pour savoir ce que vous en pensez? Est ce compréhensible???

Alors, euh, le nom des classes doivent être précéder d'un T donc TProduit, TAccessoire, ... c'est un règle tacite en delphi ...
Le _ n'est pas non plus considéré comme valable ... GetPrix, MajNbr, c'est la casse qui indique la rupture des mots ... et il existe les property
les mots clés de la visibilité doivent être écrit en minuscule
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 type TProduit = class private Flelibelle:string; Flenbrest:integer; Flenbmax:integer; Fleprix:integer; protected procedure SetNbRest(Value: Integer); public constructor Create(Unlibelle:string; Unnbrest:integer; Unnbmax:integer; Unprix:integer); property Libelle: string read FLeLibelle write FLeLibelle; property Libelle: string read Flenbrest write SetNbRest; property Libelle: string read Flenbmax; property Libelle: string read Fleprix; end;
Ensuite avant d'aller plus loin, reprend les bases
MAUVAIS :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure Materiel.maj_nbr(erreur:boolean); begin If lenbrest=0 then begin erreur:=true ; // Ecrire dans Erreur ne sert à rien, il manque var ou out end else begin lenbrest:=lenbrest-1; erreur:=false ; end; end;
BON :
Code:

1 2 3 4 5 6 function Materiel.maj_nbr(): boolean; // True OK, False Erreur ... begin Result := lenbrest > 0; if Result then Dec(lenbrest); end;
ENCORE MIEUX:
Code:

1 2 3 4 5 6 7 procedure TMateriel.SetNbRest(); begin if lenbrest > 0 then Dec(lenbrest) else raise EMatereilInvalidNbRestError.Create(); end;
Enfin les IF sur le libelle, tu n'exploites pas du tout le polymorphisme, pourquoi commencer par quelque chose de si compliquer, consulte les TUTORIELS !

PS : Je suis exigeant et intransigeant, je reproduis ce qu'à fait mon tuteur avec moi, cela m'a servi, et je lui en suis reconnaissant ...