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..."



@+