Discussion :

[delphino7]

bonjour

j'ai ecris un program ppour créer une calculatrice simple ( addition, multiplication, division, soustraction )

voila le program ne se compile pas il s'arrete a ce program

Code :

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

Str(N3, edit1.text);

zt en bas il maffiche le code erreur suivant

Code :

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

la partie gauche n'est pas affectable

voila le source

Code :

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

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
public
    { Déclarations publiques }
    TF , Erreur , Signe: integer;
     N1 , N2 , N3  : real;
     S : string ;
  end;
 
var
  Form1: TForm1;
  TF : integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button7Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '7'
 else begin
       edit1.Text := '7';
       TF := 0;
       end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if (TF=0) then edit1.Text := edit1.Text + '1'
 else begin
       edit1.Text := '1';
       TF := 0;
       end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if (TF=0) then edit1.Text := edit1.Text + '2'
 else begin
       edit1.Text := '2';
       TF := 0;
       end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '3'
 else begin
       edit1.Text := '3';
       TF := 0;
       end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '4'
 else begin
       edit1.Text := '4';
       TF := 0;
       end;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '5'
 else begin
       edit1.Text := '5';
       TF := 0;
       end;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '6'
 else begin
       edit1.Text := '6';
       TF := 0;
       end;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '8'
 else begin
       edit1.Text := '8';
       TF := 0;
       end;
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
if (TF=0) then edit1.Text := edit1.Text + '9'
 else begin
       edit1.Text := '9';
       TF := 0;
       end;
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
val(edit1.Text, N1 , Erreur);
TF := 1;
Signe := 1 ;
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
val(edit1.Text, N1 , Erreur);
TF := 1;
Signe := 2 ;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
  val(edit1.Text, N1 , Erreur);
TF := 1;
Signe := 3 ;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
val(edit1.Text, N1 , Erreur);
TF := 1;
Signe := 4;
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
edit1.Text := '';
N1 := 0;
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
val(edit1.Text , N2 , Erreur);
case Signe of
 1 : N3 := N1 / N2 ;
 2 : N3 := N1 * N2 ;
 3 : N3 := N1 + N2 ;
 4 : N3 := N1 - N2 ;
end;
 Str(N3, edit1.text);
Edit1.Text:=S ;
TF := 1;
 
end;

si quelqu'un peu m'aider ? !!!


merci

[Graffito]

Passe par une string intermédiare.

Code :

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

1
2
3
4
var ss : string ;
...
Str(N3, ss);
edit1.text=ss  ;

[delphino7]

sa ce compile mais y a un petit probleme quand je fait un calcule exemple

Code :

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

5 + 2

sa donne sa

Code :

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

 7.00000000000000E+0000

!!!!!!!!!!!!!!!!!!!!!!

[ero-sennin]

Salut,

Par défaut, Str affiche le résultat sous la forme exponentielle.
Si tu veux plus de souplesse pour le formatage des données, je te conseille de te tourner vers la fonction FormatFloat...

F1 sur les différentes méthodes t'expliqueront en détails ce qu'elles font.

[Paul TOTH]

argh !

désolé mais moi ça m'arrache les yeux un code comme ça

la propriété Caption de tes boutons est très probablement un chiffre de 0 à 9

donc tu peux faire pointer tous tes boutons sur la même méthode OnClick et utiliser TButton(Sender).Caption comme paramètre au lieu d'écrire 10 fois le même code !

Sinon il y a un clone de la calculatrice Windows dans LE livre

[Droïde Système7]

argh !

désolé mais moi ça m'arrache les yeux un code comme ça

la propriété Caption de tes boutons est très probablement un chiffre de 0 à 9

donc tu peux faire pointer tous tes boutons sur la même méthode OnClick et utiliser TButton(Sender).Caption comme paramètre au lieu d'écrire 10 fois le même code !

Sinon il y a un clone de la calculatrice Windows dans LE livre

Salut,

Idem Paul, mais ça me désole surtout au niveau de :

j'ai ecris un program ppour créer une calculatrice simple ( addition, multiplication, division, soustraction )

Tu as écrit ?

Tu pourrais au moins donner la source de l'ouvrage dans lequel tu as puisé ce code : Borland Delphi 7 (Éditions CampusPress) de Michel Martin, en page 85.

Si tu as trouvé ce code ailleurs, merci de me MP.

C'est un peu comme si je testais un code contenu dans le gros bouquin de Paul TOTH et d'Olivier, qu'ensuite je revienne dire : "J'ai écrit..."



@+

[delphino7]

oui c'est delphi 7 de borland !!!!

je ne vais pas dire le contraire !!!

[delphino7]

Code :

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

donc tu peux faire pointer tous tes boutons sur la même méthode OnClick et utiliser TButton(Sender).Caption comme paramètre au lieu d'écrire 10 fois le même code !

peut tu me donné un exemple de cette méthode ?

merci

[Droïde Système7]

oui c'est delphi 7 de borland !!!!

je ne vais pas dire le contraire !!!

Par contre, puisque tu sembles esquiver, il est de bon ton de citer ses sources de code.

Ton "delphi 7 de borland" ci-dessus ne veut rien dire

[delphino7]

je ne fait pas attention a sa le plus important et le code source je veux savoir il est le probleme ?!! merci

Code :

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

donc tu peux faire pointer tous tes boutons sur la même méthode OnClick et utiliser TButton(Sender).Caption comme paramètre au lieu d'écrire 10 fois le même code !

es qu'il ya quelqu'un qui peu me montré cette methode merci ?

[Droïde Système7]

je ne fait pas attention a sa le ...[...]

Même si le code est sous © ?

[ero-sennin]

Paul Toth t'as plus ou moins expliqué comment faire...

Tu déclares un seul événement OnClik (par exemple Button1Click) qui permettra d'ajouter les nombres selon l'astuce :

Code :

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

Edit1.Text = TButton(Sender).Caption

Il suffit de faire pointer de définir la méthode Button1Click pour chaque bouton représentant l'ajout d'un chiffre; cela se faisant dans l'inspecteur d'objet...

Petite remarque tout de même, essaie de nommer tes composants, histoire de s'y retrouver un peu (surtout pour la maintenance), car Button1Click, Button2Click, etc... c'est pas très parlant

[delphino7]

Code :

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

Si tu veux plus de souplesse pour le formatage des données, je te conseille de te tourner vers la fonction FormatFloat...

mais je peu utilisé sa tu peu me donné un exemple merci ?

[ero-sennin]

Code :

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

Si tu veux plus de souplesse pour le formatage des données, je te conseille de te tourner vers la fonction FormatFloat...

mais je peu utilisé sa tu peu me donné un exemple merci ?

Fait un petit effort s'il te plaît. Tout est expliqué. Il suffit de faire F1 sur la méthode ...

[Archimède]

un coup de main parce que tu les as agacés... ce qui est normal.
Déjà, tu pompes du code que tu t'appropries... et d'autre part tu choisis le bouquin concurrent de Paul Toth (+olivier Dahan) qui s'investit largement sur le forum de manière bénévole...
En plus, il t'apprend indirectement à coder plus proprement par rapport ce qui est proposé dans ce dit bouquin que tout le monde possède avec DELPHI 7 STUDIO...

Code :

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

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
 
  Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure ButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.ButtonClick(Sender: TObject);
begin
 with TButton(sender) do Caption:=inttostr(tag);
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i := 1 to 5 do (FindComponent('Button'+Inttostr(i)) as TButton).Tag:=i;
end;
 
end.

Ici, tu changes le titre de chaque bouton en cliquant dessus. (1,2,3...)
Tu te sers de sender qui joue le rôle du facteur et chaque événement onclick des boutons est lié à la même procedure ButtonClick.

Excuse pour formatFloat, c'est sans commentaire en effet

[delphino7]

je vais essayé merci