عود ميمونة لي لكل من يريد صنع برنامج ب delphi -يتفضل وطلبه مقبول

[bellamina21]

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.