Mémoriser des chiffres !Résolu

Question

Voila mon petit probl&#232;me, j&#8217;ai une Form avec 


3 TEdit : le TEdit1 sert entrer des chiffres


              le TEdit2 sert de compteur pour savoir le nombre de chiffres rentr&#233;s


              le TEdit3 sert &#224; visualiser le r&#233;sultat


3 TButton : le TButton1 sert &#224; m&#233;moriser les chiffres du TEdit1


                  le TButton2 sert &#224; calculer la somme de tout les chiffres m&#233;moris&#233;s


                  le TButton3 sert &#224; tout effacer


Cela s&#8217;apparente &#224; une calculatrice sauf que tant qu&#8217;on n&#8217;a pas appuy&#233; sur le TButton3 le TEdit3 reste &#224; 0.


Donc si on appuie sur le TButton3, le r&#233;sultat s&#8217;affiche. Et si l&#8217;on ajoute d&#8217;autre chiffres et qu&#8217;on appui de nouveau sur TButton3 il faut que la nouvelle somme calcul&#233;e vienne s&#8217;ajouter &#224; la pr&#233;c&#233;dente.
Ca parrait simple mais &#231;a fait deux jours que je me casse les dents dessus 

Please HELP!!!!

cs_Kenavo · Accepted Answer

Salut,

Quand la taille de ton tableau est nulle, la boucle for ne tourne pas (for i :=  0 to -1) et comme x n'est pas initialis&#233; .....


 procedure  TForm1.BtCalculerClick(Sender: TObject);
var i, x: integer;
begin

  x : = 0;  

  for i:= 0 to (Length(TabValue)-1) do
    x:= x+TabValue[i];
  EdResultat.Text:=FloatToStr(x);
 end; 



Ken@vo


<hr size ="2" width="100%">
Code, Code, Codec !

http://www.pourflorenceethussein.org/

vincentstryckmans · Answer

Plusieurs pistes et questions :

Je suppose que TButton3 efface les chiffres m&#233;moris&#233;s et pas leur somme, tu ne le pr&#233;cise pas ?



Si tu places la somme dans le TEdit3, pourquoi ne r&#233;cup&#233;res-tu pas son
contenu pour l'additionner &#224; la nouvelle somme des valeurs entr&#233;es dans
TEdit1.



Ne devrais-tu pas pr&#233;voir deux effacement : un pour les chiffres introduits, l'autre pour la somme.

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

Niki2001 · Answer

D&#233;j&#224;, premier conseil, nomme tes edits et tes boutons! EdSaisie, EdNombre, EdResultat, BtMemoriser, BtCalculer, EdEffacer. Ce sera beaucoup plus clair.
Ensuite, utilise la propri&#233;t&#233; Tag de tes edits: met le tag de ton Edit2 &#224; la propri&#233;t&#233; qu'il affiche. Comme &#231;a, tu n'as plus qu'&#224; faire un Edit2.Tag+1 &#224; chaque click sur Button1 et &#224; faire un IntToStr. De m&#234;me, met le Tag de ton Edit3 sur le r&#233;sultat pour additionner a chaque clic sur Bouton1. Tu n'auras plus qu'&#224; l'afficher &#224; chaque click sur Button3;

Si vraiment tu n'y arrives pas, j'ai mis dessous un exemple de ce que j'aurais fait. Mais bon, c'est pas int&#233;ressant si on ne fait pas ses programmes soi-m&#234;me.

En r&#233;sum&#233;, tu pourrais faire un truc comme &#231;a:
BtMemoriserClick:
begin
     EdNombre.Tag:= EdNombre.Tag+1;
     EdNombre.Text:= IntToStr(EdNombre.Tag);
     EdResultat.Tag:= EdResultat.Tag+StrToInt(EdSaisie.Text);
     EdSaisie.Clear;
end;

BtCalculerClick:
begin
     If EdSaisie.Text<>'' then
        BtMemoriserClick(BtMemoriser);
     EdResultat.Text:= IntToStr(EdResultat.Tag);
end;

BtEffacerClick:
begin
     EdSaisie.Clear;
     EdNomBre.Tag:= 0;
     EdNombre.Text:= '0';
     EdResultat.Tag:= 0;
     EdResultat.Text:= '0';
end;

m_cyril1 · Answer

Merci Niki 2001, c'est cool &#231;a "marche"!
Mais je me suis mal exprim&#233; avec mon histoire de m&#233;moriser 
En faite il faut que ces chiffres soient m&#233;moris&#233;s dans des variables que j'appelerais Ei o&#249; i varie de 1 &#224; n (n &#233;tant le chiffres final du compteur), parce qu' apr&#232;s j'aurais d'autres op&#233;rations plus compliqu&#233;es &#224; faire avec ces Ei

vincentstryckmans · Answer

Niki 2001 a raison pour les noms des composants.



C'est &#233;galement valable pour tes variables. Ei cela ne veut pas dire
grand chose surtout &#224; la personne qui devra plonger (ou toi m&#234;me) ton
code dans 3 &#224; 4 ans.



Si la r&#233;ponse de Nikki 2001 t'agr&#233;e, accepte l&#224; STP. 

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

m_cyril1 · Answer

Dans le domaine ou je travail les Ei sont des variables courantes, tout la vingtaine autres variables portant un indice i, que je manipule sur papier. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


Ca peut m&#234;me &#234;tre pire parce que j'ai m&#234;me des variables a 4 indices comme par exemple Zijkl ou chaque indice i, j, k et l varie de 1 &#224; 3 et ou il faudrait rajouter un cinqui&#232;me indices pour mon programme! 


Je n&#8217;en dirais pas plus sur cette histoire de variables indic&#233;s, sinon je risque de gaffer, et vu que c&#8217;est un projet industriel je peut avoir des ennuis.
C&#8217;est vrai &#231;a r&#233;ponse me va pour une addition, mais j'ai d'autre op&#233;rations &#224; faire ces chiffres, et ils ne seront pas tous r&#233;utilis&#233;s dans certaines op&#233;rations qui seront effectu&#233;s plus tard, c'est pour &#231;a  qu&#8217;il faut qu&#8217;ils soient stock&#233;s dans des Ei 
o&#249; i varie de 1 &#224; n (n &#233;tant le chiffres final du compteur). 
En gros il faut qu&#8217;a chaque fois qu&#8217;on clique sur M&#233;moriser cela cr&#233;&#233; une variable Ei !!!!


Exemple :


10 dans Edsaisie click M&#233;moriser => cr&#233;er E1 et m&#233;moriser 10 dans E1 (E1=10)


23 dans Edsaisie click M&#233;moriser => cr&#233;er E2 et m&#233;moriser 23 dans E2 (E2=23)


&#8230;


76 dans Edsaisie click M&#233;moriser => cr&#233;er Ei et m&#233;moriser 76 dans Ei (Ei=76)


&#8230;


57 
dans Edsaisie click M&#233;moriser => cr&#233;er En et m&#233;moriser 57 dans En (En=76) 
ou n &#233;tant le dernier chiffre apparaissant dans le compteur.


Et donc quand on fait Calculer on a Resultat=E1+E2+&#8230;Ei+&#8230;+En avec l&#8217;exemple &#231;a donne


Resultat=10+23+&#8230;+76+&#8230;+57


C&#8217;est tout !
J'esp&#232;re que cette derni&#232;re explication est un peu plus claire 

Merci  !!!!

PS: D&#233;sol&#233; pour ce ton aust&#232;re et peu agressif mais j&#8217;ai 3 personnes sur le dos a qui je doit rendre des comptes quasiment tout les jours.

slachz · Answer

tu creer un tableau dynamique:

var TabValue: array of integer;



et tu definis la longeur du tableau avec setlenght:

SetLength(TabValue, n);



ou n est la taille du tableau..



j'espere que ca repond a ta question ^^

m_cyril1 · Answer

Ca que tr&#232;s peut de temps que j'ai commenc&#233; &#224; faire de la programmation (environ 3semaines) et je n'avait fait qu'un peut de C avant (juste les bases et encore) alors je suis un peu perdu 
Don &#231;a parrait b&#234;te comme questions, mais comment il faut faire pour ranger les chiffres et les r&#233;utilis&#233;s avec la fonction TabValue  (un exemple m'aiderais beaucoup)
Et comme je l'ai "dit" dans le message pr&#233;c&#233;dant j'aurais au final une vingtaine de variables comme mais Ei , &#231;a ne risque pas de poser un probl&#232;me

Niki2001 · Answer

C'est tr&#232;s simple (en th&#233;orie): tu fais SetLength(TabValue, n) pour lui attribuer une taille (que tu pourras bien s&#251;r modifier &#224; chaque fois que tu ajoute un chiffre). Ensuite, tu fais TabValue[x] pour acc&#233;der au xi&#232;me nombre m&#233;moris&#233;. Donc &#224; chaque fois que tu m&#233;morise un nombre tu fais:
Inc(n);
SetLength(TabValue, n);
Remarque!! L'index commence &#224; z&#233;ro! Donc, le dernier nombre du tableau sera n-1!
Donc:
TabValue[n-1]:= x;
Bonne chance!

Niki2001 · Answer

Dernier truc! Pour additionner tous les nombres,il faut cr&#233;er une boucle:
var
   i, x: integer;
for i:=0 to (Length(TabValue)-1) do
   x:= x+TabValue[i];
Voila!
Sur ce...

m_cyril1 · Answer

J'ai reppris tes notations (suite au premier message) et j'ai fait &#231;a:

procedure TForm1.BtMemoriserClick(Sender: TObject);
var TabValue: array of integer;
var n:Integer;
begin
Inc(n);
SetLength(TabValue, n);
TabValue[n]:= StrToInt(EdSaisie.Text);
EdNombre.Text:=IntToStr(StrToInt(EdNombre.Text)+1);
EdSaisie.Clear;
end;

 procedure  TForm1.BtCalculerClick(Sender: TObject);
var TabValue: array of integer;
var i, x: integer;
begin
  for i: =0 to (Length(TabValue) -1) do
    x:=  x+TabValue[i];
    EdResultat.Text:=FloatToStr(x);
 end; 


procedure TForm1.EdEffacerClick(Sender: TObject);
begin
  EdSaisie.Clear;
  EdResultat.Clear;
  EdNombre.Text: ='0';
end;

Ca ne fonctionne pas, et je ne vois pas pourquoi   
La je commence vraiment &#224; devinir fou 

PS: Et la d&#233;claration du TabValue il faut la faire o&#249; (avant toutes les proc&#233;dures?) et peut  ton donner un autre nom que TabValue

Niki2001 · Answer

En fait le probl&#232;me vient du fait que (et je crois que tu l'avais senti) TabValue et n doivent &#234;tre d&#233;clar&#233;s avant toutes les proc&#233;dures. Ensuite, quelques autres erreurs:
      -tu doit faire TabValue[n-1] pour acc&#233;der au dernier nombre du tableau, car l'index commence &#224; 0 (par exmple s'il y a 2 nombres, les index seront 0 et 1).
      -  quand tu fais: EdNombre.Text:=IntToStr(StrToInt(EdNombre.Text)+1); pourquoi ne pas faire directement IntToStr(n)? puisque n repr&#233;sente le nombre en question.
      - je viens de penser, si tu veux que l'on puisse rentrer des nombres d&#233;cimaux (je pense &#231;a en voyant que tu fais FloatToStr), il faut d&#233;clarer TabValue: array of extended et faire un StrToFloat au lieu d'un StrToInt dans BtMemoriserClick.

   Je pense que &#231;a devrait aller mais s'il y a un probl&#232;me n'h&#233;site pas!

m_cyril1 · Answer

Je viens de modifier le code en :
var TabValue: array of integer;
var n:Integer;

procedure TForm1.BtMemoriserClick(Sender: TObject);
begin
Inc(n);
SetLength(TabValue, n);
TabValue[n-1]:= StrToInt(EdSaisie.Text);
EdNombre.Text:=IntToStr(n);
EdSaisie.Clear;
end;

 procedure  TForm1.BtCalculerClick(Sender: TObject);
var i, x: integer;
begin
  for i: =0 to (Length(TabValue) -1) do
    x:=  x+TabValue[i];
    EdResultat.Text:=FloatToStr(x);
 end; 
procedure TForm1.EdEffacerClick(Sender: TObject);
begin
  EdSaisie.Clear;
  EdResultat.Clear;
  EdNombre.Text: ='0';
end;
Quand on clique sur Calculer dans le EdResultat il y a 4358304 qui apparait sa c'est si on n'a pas restr&#233; de nombres et s'il y a des nombres m&#233;moris&#233;s, par exemple 10,on fait Calculer et on a 4358314. Je ne comprend toujours pas  
Et si toi tu devais tapper un code pour ce probl&#232;me &#231;a donnerait quoi

japee · Answer

C'est tout bon, ton code, tu as juste oubli&#233; d'initialiser n := 0.



procedure TForm1.FormCreate(Sender: TObject);

begin

  n := 0;

  edResult.Clear;

  edSaisie.Text := '0';

  edNombre.Text := '0';

end;



procedure TForm1.btnEffacerClick(Sender: TObject);

begin

  n := 0;

  edResult.Clear;

  edSaisie.Text := '0';

  edNombre.Text := '0';

end;



Ou plus &#233;l&#233;gant, tu fais une procedure que tu n'oublies pas de d&#233;clarer dans la section private :



private

    { D&#233;clarations priv&#233;es }

    procedure TForm1.InitialiseCalculs;



implementation



{$R *.DFM}



procedure TForm1.InitialiseCalculs;

begin

  n := 0;

  edResult.Clear;

  edSaisie.Text := '0';

  edNombre.Text := '0';

end;



// que tu appelles dans:



procedure TForm1.FormCreate(Sender: TObject);


begin


  InitialiseCalculs;


end;



procedure TForm1.btnEffacerClick(Sender: TObject);


begin


  InitialiseCalculs;


end;



Bonne prog'

japee · Answer

Zut !



Tu enl&#232;ves TForm1 dans la d&#233;claration:



private

    { D&#233;clarations priv&#233;es }

    procedure InitialiseCalculs;




Bonne prog'

japee · Answer

En fait, en se penchant un peu sur le probl&#232;me, il ne faut pas oublier
de r&#233;initialiser la longueur du tableau, sinon... petit bug ! 



procedure TForm1.InitialiseCalculs;

begin

  n := 0;

  SetLength(TabValue, n);

  edResult.Text := '0';

  edSaisie.Text := '0';

  edNombre.Text := '0';

end;



Bonne prog'

m_cyril1 · Answer

On y est presque 
Avec la premi&#232;re astuce que tu m'as donn&#233;e et en rempla&#231;ant n par x et en le d&#233;clarant  avec n on s'en rapproche.
Exemple on m&#233;morise 10 et 20 et clique sur calculer et on a bien 30. Et si on m&#233;morise 70 apr&#232;s calcul on devrait obtenir 100 et bien non on a 130.
Comme je l'ai dit tout &#224; l'heure je deviens fou  !!!
J'ai m&#234;me essayer de mettre des conditions du style si EdResultat=0, mais &#231;a donne le m&#234;me probl&#232;me qu'au dessus.
Je sais pas/plus quoi essayer

japee · Answer

"Comme je l'ai dit tout &#224; l'heure je deviens fou  !!!"




C'est vraiment dommage... je te donnais la solution dans mes posts.

INITIALISATION !

m_cyril1 · Answer

Non pas d'accord!!! 


Revoici le code avec la deuxi&#232;me solution et il y a toujours le probl&#232;me du 4358324 (et non 4358304) apr&#232;s avoir cliqu&#233; sur Calculer.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


 type 
    TForm1  = class(TForm)
    EdSaisie: TEdit;
    EdNombre: TEdit;
    EdResultat: TEdit;
    BtMemoriser: TButton;
    BtCalculer: TButton;
    BtEffacer: TButton;
    procedure Form1Create(Sender: TObject);
    procedure BtMemoriserClick(Sender: TObject);
    procedure BtCalculerClick(Sender: TObject);
    procedure BtEffacerClick(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
    procedure InitialiseCalculs;
  public
    { D&#233;clarations publiques }
  end;


var Form1: TForm1;
var TabValue: array of integer;
var n:Integer;


implementation


{$R *.dfm}


procedure TForm1.InitialiseCalculs;
begin
  n:= 0;
  SetLength(TabValue, n);
  edResultat.Text:='0';
  edNombre.Text:='0';
  edSaisie.Clear;
 end; 


procedure TForm1.Form1Create(Sender: TObject);
begin
  InitialiseCalculs;
end;


procedure TForm1.BtMemoriserClick(Sender: TObject);
begin
Inc(n);
SetLength(TabValue, n);
TabValue[n-1]: =StrToInt(EdSaisie.Text);
EdNombre.Text:= IntToStr(n);
EdSaisie.Clear;
 end; 


procedure TForm1.BtCalculerClick(Sender: TObject);
var i, x: integer;
begin
      for i: =0 to (Length(TabValue)-1) do
      x:=  x+TabValue[i];
      EdResultat.Text:=FloatToStr(x);
 end; 


procedure TForm1.BtEffacerClick(Sender: TObject);
begin
  InitialiseCalculs;
end;


end.

Et je pense que lorsque l'on fait Calculer sans avoir m&#233;moriser de chiffres, on devrait avoir un message d'erreur, vu que par d&#233;faut (d'apr&#233;s l'aide de Delphi) le TabValue[0] =vide. Donc c'est qu'il y a un probl&#232;me.
PS: D'apr&#232;s une doc que j'ai trouv&#233; sur Delphi la variable n lorsqu'on utilise la fonction Inc(n) est automatiquement mis &#224; z&#233;ro &#224; l'ouverte, parcontre c'est vrai qu'il faut remettre n &#224; 0 qu'on fait effacer. Je pense plutot que &#231;a vient de l'initialisation de x

m_cyril1 · Answer

Hay&#233; J'ai trouv&#233; et la solution est:

type
    TForm1 =   class (TForm)
    EdSaisie: TEdit;
    EdNombre: TEdit;
    EdResultat: TEdit;
    EdVoir: TEdit;
    EdNumero: TEdit;
    BtMemoriser: TButton;
    BtCalculer: TButton;
    BtEffacer: TButton;
    BtVoir: TButton;
    BtQuitter: TButton;
    procedure BtQuitterClick(Sender: TObject);
    procedure BtMemoriserClick(Sender: TObject);
    procedure BtCalculerClick(Sender: TObject);
    procedure BtEffacerClick(Sender: TObject);
    procedure BtVoirClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
    procedure InitialiseCalculs;
  public
    { D&#233;clarations publiques }  end;<?xml:namespace prefix  o ns  "urn:schemas-microsoft-com:office:office" />


 var
  Form1: TForm1;
var TabValue: array of integer;
var n,x:Integer;


implementation


{$R *.dfm}


procedure 
TForm1.InitialiseCalculs;
begin

  n: =0;
  x:= 0;
  SetLength(TabValue, n);
  EdResultat.Text:='0';
  EdNombre.Text:='0';
  EdSaisie.Clear;
 end; 


procedure
 TForm1.Form1Create(Sender: TObject);
begin

  InitialiseCalculs;
end;


procedure TForm1.BtMemoriserClick(Sender: TObject);
begin

   
x: =0;
   Inc(n);
   SetLength(TabValue, n);
   TabValue[n-1]:= StrToInt(EdSaisie.Text);
   EdNombre.Text:=IntToStr(n);
   EdSaisie.Clear;
 end; 


procedure
 TForm1.BtCalculerClick(Sender: TObject);
var i: integer;
begin

   for i: =0 to (Length(TabValue)-1) do
      x:=  x+TabValue[i];
      EdResultat.Text:=FloatToStr(x);
 end; 


procedure
 TForm1.BtEffacerClick(Sender: TObject);
begin

  InitialiseCalculs;
end;

procedure
 TForm1.BtVoirClick(Sender: TObject);
begin
  EdVoir.Text: =IntToStr(TabValue[StrToInt(EdNumero.Text)-1]);
end;


procedure
 TForm1.BtQuitterClick(Sender: TObject);
begin

  Close;
end;

end.


 Il  reste un tout petit probl&#232;me, c&#8217;est quand on clique une deuxi&#232;me fois sur calculer  bah mon initialisation est dans les choux, mais je pense qu&#8217;avec un If et un Else je devrais m&#8217;en sortir (je l&#8217;esp&#232;re).



J'ai m&#234;me rajout&#233; deux Tedit (EdNumero et EdVoir) et 2 deux TButton (BtQuitter et 
BtVoir). 
BtQuitter qui sert tout simplement &#224; fermer (j&#8217;aurais peut &#234;tre du &#233;vit&#233; de le pr&#233;ciser)  et  BtVoir permet de voir  un chiffre m&#233;moris&#233; en fonction de son num&#233;ro mais je n&#8217;ai pas encore trouv&#233; les condition pour &#233;viter d&#8217;avoir une quand TabValue est vide.


 


Par contre c&#8217;est cool de m&#8217;avoir montr&#233; comment fonctionne une proc&#233;dure priv&#233;e, parce que je vais en avoir besoin.

m_cyril1 · Answer

Ah! merci Kenavo c'est encore plus simple que ce que j'ai fait , et il n'y a plus de probl&#232;me de calcul.

Niki2001 · Answer

Petites corrections sans grandes importances:
   -pourquoi FloatToStr? un simple IntToStr doit suffire.
   -si tu veux que ton bouton serve &#224; quitter, pas la peine d'&#233;crire un &#233;v&#233;nement, il suffit de mettre sa propri&#233;t&#233; Cancel &#224; true (dans l'inspecteur d'objets).
   -enfin, je ne comprend pas pourquoi tu met ta variable x en globale. elle ne sert que dans une proc&#233;dure et change &#224; chaque fois. Tu n'as qu'&#224; faire x:= 0 au d&#233;but de BtCalculerClick
Je suis content que ton probl&#232;me soit r&#233;solu!

m_cyril1 · Answer

D&#233;sol&#233; j'ai envoy&#233; mon message et je n'avais pas vu Kenavo m'avais donn&#233; la solution  et le FloatToStr c'est parce que j'&#233;tais entrein de modifier le code pour faire la m&#234;me chose mais avec des r&#233;els.

Niki2001 · Answer

Tu peux donc accepter une r&#233;ponse pour que ton probl&#232;me soit officiellement r&#233;solu.
Sur ce...

Mémoriser des chiffres !

24 réponses

Votre réponse

Discussions similaires