aidez moi pour realiser les autres boutons è o6 m2
كود PHP:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
EditChiffres: TEdit;
ButtonEfface: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
ButtonVirgule: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
ButtonResultat: TButton;
ButtonDiv: TButton;
ButtonMulti: TButton;
ButtonMoins: TButton;
ButtonPlus: TButton;
Button1: TButton;
Button9: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure ButtonEffaceClick(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure ButtonVirguleClick(Sender: TObject);
procedure ButtonPlusClick(Sender: TObject);
procedure ButtonMoinsClick(Sender: TObject);
procedure ButtonMultiClick(Sender: TObject);
procedure ButtonDivClick(Sender: TObject);
procedure ButtonResultatClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
Operande1: Real;
Operation:string;
m1:real;
m2:real;
implementation
{$R *.DFM}
procedure TForm1.ButtonEffaceClick(Sender: TObject);
begin
EditChiffres.Text:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'1'
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'2'
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'3'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'4'
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'5'
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'6'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'7'
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'8'
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'9'
end;
procedure TForm1.ButtonVirguleClick(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+','
end;
procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='+';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMoinsClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='-';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMultiClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='*';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonDivClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='/';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonResultatClick(Sender: TObject);
var
Operande2:real;
begin
Operande2:=StrToFloat(EditChiffres.Text);
if Operation='+' then
m1:=(Operande1+Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='-' then
m1:=(Operande1-Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='*' then
m1:=(Operande1*Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='/' then
m1:=(Operande1/Operande2);
EditChiffres.Text:=FloatToStr(m1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EditChiffres.Text:=FloatToStr(m1);
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
m2:=m1;
EditChiffres.Text:=FloatToStr(m2)
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
m1:=0;
m2:=0 ;
EditChiffres.Text:=''
end;
end.