Contoh Program Delphi Menghitung Volume dan Luas Permukaan Balok

 - Ini yang saya gunakan untuk menjalankan programnya merupakan program aplikasi delphi 7, yang mana saya akan Mencoba Menghitung Volume dan Luas Permukaan Balok, sebelum anda mencoba terlebih dahulu harus mengetahui rumus dari Permukaan balok tersebut dan Diagram alir atau flowchart nya. kalau sudah tahu langsung aja deh di coba program buatan ini Contoh Program Delphi Menghitung Volume dan Luas Permukaan Balok :

Contoh Program Delphi Menghitung Volume dan Luas Permukaan Balok

//Letakan coding ini di implementation atau di form create nya

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
var
kode:integer;
P,L,T,VOL,LUAS:REAL;
SVOL,SLUAS:STRING;
begin
VAL(EDIT1.Text,P,KODE);
VAL(EDIT2.Text,L,KODE);
VAL(EDIT3.Text,T,KODE);
VOL:=P*L*T;
LUAS:=(2*P*L)+(2*P*T)+(2*L*T);
STR(VOL:10:2,SVOL);
STR(LUAS:10:2,SLUAS);
EDIT4.Text:=SVOL;
EDIT5.Text:=SLUAS;
end;