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;