Thursday, 5 April 2012

Menghitung Volume dan Luas Permukaan balok pada Delphi

karen masih banyak yang harus di posting, maka langsung saja.
untuk daftar kode di ocnclick button hitung sebagai berikut :

procedure TForm1.HitungClick(Sender: TObject);
var
p,lebar,t,v,luas:integer;
begin
p:=StrToInt(edpanjang.Text);
lebar:=StrToInt(edlebar.Text);
t:=StrToInt(edtinggi.Text);

v:=p*lebar*t;
luas:=(2*p*lebar)+(2*p*t)+(2*lebar*t);

edvolume.Text:=IntToStr(v);
edluas.Text:=IntToStr(luas);

end;

ScreenShoot programnya seperti ini








yang mau download sourcecode lengkapnya, klik disini.

0 comments:

UbaidRahman