Calculatrice et opération

Version imprimable

Bonjour,

je veux faire une calculatrice . Je suis sous delphi 2005.
J'ai 1 seul label qui doit me permettre d'effectuer les opérations comme la calculatrice standard de Windows!
Mon problème est que je ne vois pas comment faire,

Lorsque j'appuie sur le bouton "2" , je dois choisir l'opération "+,-,/,*," et j'appuie sur le bouton "3", le résultat doit me s'afficher dans le label !

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
unit cal5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Label1: TLabel;
    Button16: TButton;
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.caption:=Button1.caption;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
          label1.caption:=Button2.caption;
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
close();
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
    label1.Caption:= button3.Caption ;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
             label1.Caption:= button4.Caption ;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
          label1.Caption:= button5.Caption ;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
      label1.Caption:= button6.Caption ;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
            label1.Caption:= button7.Caption ;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
          label1.Caption:= button8.Caption ;
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
           label1.Caption:= button9.Caption ;
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
          label1.Caption:= button10.Caption ;
end;
 
end.

Je ne vois pas comment faire sa lorsque je cliques sur le bouton "+" et à la fin le bouton "=" qui doit me rendre le résultat?

Ce que je cherche c'est comment on procède au niveau conception ?

24/04/2007, 10h48
Haywire
Bonjour, avant tout je te propose de regrouper toutes les procédures onClick sur les chiffres en une seule, puisqu'elles font toute le même traitement.
Code:

1 2 3 4 5 procedure TForm1.ButtonClick(Sender: TObject); begin label1.caption:=Sender.caption; end;
Il suffit alors d'attacher cette procédure à l'évenement onClick de chaque bouton dans l'inspecteur d'objet. Ainsi à chaque fois qu'on cliquera sur un bouton ce sera cette procédure qui sera appelée.

Ensuite il faudrait déclarer au moins 3 variables pour stocker les opérandes et l'opérateur des calculs, et éventuellement une 4e pour stocker le résultat à afficher.
24/04/2007, 10h51
philnext

Tes phrases ne sont pas claires (essaye sujet+verbe+complément).
Le principe c'est d'avoir des variables intermédiaires qui stockent tes saisies.
SI tu pars sur un principe simple 2 valeurs + 1 opération tu as un variable qui staocke la 1ere valeur, une qui stocke l'opération et une qui stocke la 2 eme valeur.
Dans tes évenements 'onClick' tu gères où tu en es de ton calcul (saisie de la valeur 1, de l'opération, de la valeur 2).
Commences par des choses simples style calculs à 1 chiffre puis après tu gères les autres cas de figures.
24/04/2007, 10h51
bdptaki

Je veuxécrir la procédure associée à l'événement OnClick qui ajoute le chiffre à la droite de la valeur déjà présente dans la zone d'édition.
Voila ce que je veux faire,

Merci pour ta répense mais pour l'instant je ne cherche pas à optimiser le programme, ( je suis débutant:mrgreen:, mais à prés avoir réussi cette étape j'optimiserai :D )
24/04/2007, 10h57
bdptaki

Citation:

Tes phrases ne sont pas claires (essaye sujet+verbe+complément).
Le principe c'est d'avoir des variables intermédiaires qui stockent tes saisies.
SI tu pars sur un principe simple 2 valeurs + 1 opération tu as un variable qui staocke la 1ere valeur, une qui stocke l'opération et une qui stocke la 2 eme valeur.
Dans tes évenements 'onClick' tu gères où tu en es de ton calcul (saisie de la valeur 1, de l'opération, de la valeur 2).
Commences par des choses simples style calculs à 1 chiffre puis après tu gères les autres cas de figures.

Le plus simple serait de passer par un Tedit, comme sa je rentre directement les chiffres que je veux pui je les stock dans une autre variable.
Cependant je ne veux pas procéder comme sa, j'ai un exo à faire qui m'impose de faire comme ce que j'ai décrit au préalable .
24/04/2007, 11h05
Haywire

Tu devras ajouter dans l'evenement onClick des boutons une instruction d'affectation.
En gros, quand tu cliques sur un chiffre, ça doit stocker ce chiffre dans une variable chiffre1, ou dans chiffre2. Pour savoir dans laquelle le chiffre doit etre stocké tu peux tester la valeur de la variable qui stocke l'opérateur.
Si cette variable contient un operateur c'est qu'il faut stocker le prochain chiffre dans chiffre2.
Bien sur pour que ça marche il faudra réinitialiser la variable qui stocke l'opérateur après chaque calcul.

A toi de réfléchir à la manière de représenter les opérateurs en mémoire (string, caractère, constante entière qui représente l'opération...).

C'est déjà un début de réflexion.
24/04/2007, 11h09
PadawanDuDelphi

Citation:

Je veuxécrir la procédure associée à l'événement OnClick qui ajoute le chiffre à la droite de la valeur déjà présente dans la zone d'édition.
Voila ce que je veux faire,

Donc en résumé tu souhaite pouvoir écrire "32" dans ton label si au préalable tu avais "3" et que tu tape sur la touche 2?

Code:

label1.Caption:=label1.Caption + sender.Caption;

A+.
24/04/2007, 11h23
bdptaki

oui c'est "3 + 2" que je veux afficher !

sinon "sender.Caption;" il sert à quoi ici ?
24/04/2007, 11h31
PadawanDuDelphi

Relit plus haut (la première réponse que tu as reçu)...
Sender c'est une sorte de pointeur qui te permet de savoir lequel de tes composants à appeler la procédure OnClick (ainsi tu peux regrouper toutes tes procédures OnClick de tes TButton sous une seule).
En gros sender vaudra button1 si tu click sur button1, button2 si tu click sur button2...

A+.

donc je dois enlevé toutes mes procédures concernant le onclick pour mes boutons !
Code:

1 2 3 4 5 6 procedure TForm1.Buttonclick(Sender: TObject);[Erreur] cal5.pas(143): E2003 Identificateur non déclaré : 'ButtonClick' var begin label1.caption:=Sender.caption;[Erreur] cal5.pas(145): E2003 Identificateur non déclaré : 'Sender' end;
Il faut les déclarer buttonclick , oui ok mais comment ??

24/04/2007, 11h58
PadawanDuDelphi

Le plus simple:
Tu gardes ta procédure pour un de tes boutons (le 1 par exemple).
Puis dans "inspecteur d'objet" => "Evenement => "OnClick" de tous tes boutons tu selectionnes la procedure de ton bouton1.

A+.
24/04/2007, 12h04
ero-sennin

1 pièce(s) jointe(s)

Salut,

Il y à un bout de temps déjà, j'ai réalisé une calculatrice (très basique).
Afin de mieux comprendre le fonctionnement, je te mets à disposition les sources ...
J'espère que celà t'aidera ...
24/04/2007, 12h46
Gilbert Geyer

Pour compléter l'info de 11h58 de PadawanDuDelphi sur l'utilisation de "inspecteur d'objet" ne pas oublier de remplacer dans le code l'instruction label1.caption := Sender.caption; par label1.caption := (Sender as TButton).caption;
24/04/2007, 14h24
bdptaki

hola , j'ai toutes informations que je voulais:yaisse2: ?

Merci beaucoup , je vais pouvoir faire m'amuser comme un petit fou looool !