MINI CALCULTRICE BASIC

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var ADDN1, ADDN2, ADDResultat : Real;
begin
 Try
  ADDN1 := StrToFloat(Edit1.Text);
  ADDN2 := StrToFloat(Edit2.Text);
  ADDResultat := ADDN1 + ADDN2;
  Edit3.Text := FloatToStr(ADDResultat);
 Except
  Edit3.Text := 'Erreur';
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key='.') or (Key=',') Then
  Key := DecimalSeparator;
  If not (Key in [#8, '0'..'9', DecimalSeparator])then
  Key:=#0;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.Apropos1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var SOUN1, SOUN2, SOUResultat : Real;
begin
 Try
  SOUN1 := StrToFloat(Edit4.Text);
  SOUN2 := StrToFloat(Edit5.Text);
  SOUResultat := SOUN1 - SOUN2;
  Edit6.Text := FloatToStr(SOUResultat);
 Except
  Edit6.Text := 'Erreur'; 
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var MULN1, MULN2, MULResultat : Real;
begin
 Try
  MULN1 := StrToFloat(Edit7.Text);
  MULN2 := StrToFloat(Edit8.Text);
  MULResultat := MULN1 * MULN2;
  Edit9.Text := FloatToStr(MULResultat);
 Except
  Edit9.Text := 'Erreur';
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
Var DIVN1, DIVN2, DIVResultat : Real;
begin
 Try
  DIVN1 := StrToFloat(Edit10.Text);
  DIVN2 := StrToFloat(Edit11.Text);
  DIVResultat := DIVN1 / DIVN2;
  Edit12.Text := FloatToStr(DIVResultat);
 Except
  Edit12.Text := 'Erreur';
end;
end;

end. 

Télécharger le zip