Friday 8 November 2013

Assalamu'alikum wr.wb.
Program kalkulator menggunakan delphi dengan desain formnya sebagai berikut:


Baris program
procedure TfrmKalkulatorSederhana.btnAplusBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A+B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAminBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A-B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAkaliBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A*B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAbagiBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A/B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAmodBClick(Sender: TObject);
var A, B, C  : integer;
begin
   A:=StrToInt(edtA.Text);
   B:=StrToInt(edtB.Text);
   C:=A mod B;
   edtC.Text:=IntToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnResetClick(Sender: TObject);
begin
  edtA.Text := '';
  edtB.Text := '';
  edtC.Text := '';
  edtA.SetFocus;
end;
procedure TfrmKalkulatorSederhana.btnCloseClick(Sender: TObject);
begin
     close
end;
end.

Tampilan program:



Sekian yang dapat saya sampaikan tentang pembuatan program kalkulator sederhana menggunakan delphi, semoga bermanfaat. Wassalamu'alikum wr.wb.

Program luas dan keliling persegi panjang

1 comments: