besoin d'aide, j'ai un vb à rendre !!!

Question

excusez-moi de vous d&#233;ranger, je suis nouveau et &#233;tudiant en bts, je dois bientot rendre un programme vb et ai besoin de votre aide, je dois faire un distributeur de boissons, g&#233;rer les gobelets etc... mais le temps passe trop vite et j'ai besoin de kelk'un pour m'aider &#224; g&#233;rer le syst&#232;me de rendu de monnaie de la machine au centime pr&#232;s voila merci !

zippro4012 · Answer

Comment &#231;a ? Explique

ryosaebaxyz · Answer

ben ce sera un distributeur de boisson virtuel sous vb, fo entrer des pi&#232;ces et la machine doit restituer la monnaie ex : la boisson est &#224; 1,5&#8364;, je mets 1 pi&#232;ce de 2&#8364;, la machine doit me rendre 1 pi&#232;ce de 50 cents, bref, elle doit d&#233;composer la monnaie &#224; rendre en pi&#232;ce ! je sais ke c mal explik&#233;...

zippro4012 · Answer

plus lisiblement

'D&#233;ja il faut savoir la monnaie totale entr&#233;e par l'utilisateur
ValeurTotale = ValeurPiece(1) + ValeurPiece(2) + ...

'Ensuite il faut d&#233;terminer l'argent a rendre
ArgentARendre = ValeurTotale - ValeurBoisson

'Ensuite d&#233;composer ArgentARendre en 2,1,0.5,...

i = 0
Do
   Select case ArgentARendre
      Case Is >= 2 'Pour les pi&#232;ces de 2&#8364;
         ArgentARendre = ArgentARendre - 2
         PieceARendre(i) = 2
      Case Is >= 1 'Pour les piece de 1&#8364;
         ArgentARendre = ArgentARendre - 1
         PieceARendre(i) = 1
      'ect, ect, ... pour toutes les pi&#232;ces jusqu'a 0.01 (1 centime)
   End select
   i = i + 1

Loop while ArgentARendre > 0

 
Ca devrait marcher
Apr&#232;s, tu aura toutes les valeurs de pi&#232;ces dans le tableau PieceARendre

ryosaebaxyz · Answer

merci bcp de votre aide !

cqui789 · Answer

as-tu pense que certaines pieces peuvent etre epuisees et que certaines combinaisons ne marchent pas.

si tu n'as plus de 0,10 et que tu doit rendre 0,60 si tu rend une 0,50
tu est bloque. il faut en fait rendre 3x0,20 ou afficher "Faire
l'apoint"

desole si je pose plus probleme que de solution. c'est pour ca que beaucoup de machines ne rendent pas de 0,20

zippro4012 · Answer

Ha oui, en effet &#231;a complique tout !
Et que ferait la machine si elle doit rendre 0,01 sachant qu'elle n'a plus de pi&#232;ce de 0.01 ?

Je vais r&#233;fl&#233;chir au probl&#232;me...

cqui789 · Answer

Il faut un voyant qui dit "Faites l'apoint" quand tu n'est pas sur de pouvoir lui rendre la monaie.


bpnne chanse

Besoin d'aide, j'ai un vb à rendre !!!

7 réponses

Discussions similaires