Thursday 7 November 2013

Assalamu'alikum wr.wb.
Program menghitung luas dan keliling persegi panjang dengan delphi, desain formnya adalah sebagai berikut:



Baris Program, botton1 untuk hitung, button2 untuk reset, dan button3 untuk close:

procedure TfrmPersegiPanjang.btnHitungClick(Sender: TObject);
var Panjang, Lebar, Luas, Keliling: Real;
begin
    Panjang:=StrToFloat(edtPanjang.Text);
    Lebar:=StrToFloat(edtLebar.Text);
    Luas:=Panjang*Lebar;
    Keliling:=(Panjang+Lebar)*2;
    edtLuas.Text:=FloatToStr(Luas);
    edtKeliling.Text:=FloatToStr(Keliling);
end;
procedure TfrmPersegiPanjang.btnResetClick(Sender: TObject);
begin
    edtPanjang.Text:='';
    edtLebar.Text:='';
    edtLuas.Text:='';
    edtKeliling.Text:='';
    edtPanjang.SetFocus;
end;
procedure TfrmPersegiPanjang.btnCloseClick(Sender: TObject);
begin
     close;
end;
end.

Tampilan



Sekian yang dapat saya sampaikan semoga bermanfaat, wassalamu'alikum wr.wb.

2 comments: