Rain's Blog

PROGRAM KALKULATOR DELPHI


type
  TForm1 = class(TForm)
    pnl1: TPanel;
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    btn12: TButton;
    btn13: TButton;
    btn14: TButton;
    btn15: TButton;
    btn16: TButton;
    Calculator_By_Listya: TLabel;
    ByListyaNurAmroeni: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure btn15Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c : Real;
  tambah,kurang,kali,bagi :Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'1';
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'2';
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'3';
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'4';
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'5';
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'6';
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'7';
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'8';
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'9';
end;

procedure TForm1.btn13Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'0';
end;

procedure TForm1.btn14Click(Sender: TObject);
begin
edt1.Text:='';
end;

procedure TForm1.btn15Click(Sender: TObject);
begin
b:=StrToFloat(edt1.Text);
if (tambah > 0) then
begin
  c:=a+b;
  edt1.Text:=FloatToStr(c);
  a:=0;
  b:=0;
  tambah:=0;
  end;
  if (kurang > 0) then
begin
  c:=a-b;
  edt1.Text:=FloatToStr(c);
  a:=0;
  b:=0;
  kurang:=0;
  end;
  if (kali > 0) then
begin
  c:=a*b;
  edt1.Text:=FloatToStr(c);
  a:=0;
  b:=0;
  kali:=0;
  end;
  if (bagi > 0) then
begin
  c:=a/b;
  edt1.Text:=FloatToStr(c);
  a:=0;
  b:=0;
  bagi:=0;
  end;



end;

procedure TForm1.btn4Click(Sender: TObject);
begin
a:=StrToFloat(edt1.Text);
tambah:=1;
edt1.Text:='';
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
a:=StrToFloat(edt1.Text);
kurang:=1;
edt1.Text:='';
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
a:=StrToFloat(edt1.Text);
kali:=1;
edt1.Text:='';
end;

procedure TForm1.btn16Click(Sender: TObject);
begin
a:=StrToFloat(edt1.Text);
bagi:=1;
edt1.Text:='';
end;

end.

HASIL RUN