Calculatrice

Déclarer variables suivants : signe, nb1, nb2, montant, egale  comme ci-dessous :

private

    { Déclarations privées }

  public

    { Déclarations publiques }

  end;

var

  Form1         : TForm1;  cette variable est déclaré par défaut ,

  Signe         : integer;

  nb1, nb2, montant       : real;

  egal          : boolean;

implementation

{$R *.dfm}

Pour les boutons de N° : 1 à 9

Double cliquer sur le bouton « 1 »  et écrire :

Procedure TForm1.SpeedButton12Click (Sender: TObject);

begin

        if egal then

                Edit1.Clear;

        Edit1.Text := Edit1.Text + '1';

        egal := false;

end;

même méthode pour les autres boutons   0 2 3 4 5 6 7 8 9

pour le bouton ‘=’ écrire :

procedure TForm1.SpeedButton15Click(Sender: TObject);

begin

        nb2 := StrToFloat(Edit1.Text);

        Case Signe of

                1 : montant := nb1/nb2;

                2 : montant := nb1*nb2;

                3 : montant := nb1-nb2;

                4 : montant := nb1+nb2;

        end;

        Edit1.Text := FloatToStr(montant);

        egal := true;

end;

pour le bouton « c »

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

        Edit1.Clear;

end;

pour le bouton    “ ,  ”  la virgule veuillez écrire ;

procedure TForm1.SpeedButton17Click(Sender: TObject);

begin

        Edit1.Text := Edit1.Text + ',';

        egal := false;

end;

poser la curseur  dans la form1 , aller dans l’inspecteur d’objet , dans l’onglet événement Chercher  OnShow  double cliquer et écrire

procedure TForm1.FormShow(Sender: TObject);

begin

        egal := false;

end;