Contoh Procedure dan Function pada Delphi: Menghitung Volume Balok

Assalamu’alaikum Wr Wb
Alhamdulillah, selamat datang di blog saya.. kemarin saya sudah menjelaskan pengertian antara function dan procedure. Nah untuk kali ini saya akan menjelaskan contohnya. Saya tidak akan membuat contoh yang rumit, cukup kita aplikasikan ke program menghitung volume balok. Mugkin rekan-rekan dah bisa klu tanpa procedure dan function, Nah sekarang akan saya jelasin membuat program menghitung volume dengan function dan procedure.
Ok sekarang buat formnya dulu, tampilanya kurang lebih sbb:

Atur propertisnya di object inspector seperti berikut:

Objek	Name	Caption
Label1	Label1	panjang
Label2	Label2	lebar
Label3	Label3	tinggi
Label4	hasil	Hasil
Button1	Btok	ok
Button2	Btlagi	Input lagi
Button3	btSelesai	Selesai
Form1	Formbalok	Volume balok

Objek	Name	Text
Edit1	edpanjang	-
Edit2	Edlebar	-
Edit3	edtinggi	-

Linsting Program
Untuk programnya perama kita buat procedure dulu,, yaitu bersih layar yang berfungsi membersihkan layar
Masuk ke code editor laludi bawahnya public ketikkan
Procedure bersihlayar;
Lalu di bawahnya implementation, dibawahnya tulisan hijau ketikkan program berikut:

procedure Tformbalok.Bersihlayar;
 begin
 edpanjang.Text:='';
 edlebar.Text:='';
 edtinggi.Text:='';
 edpanjang.SetFocus;
 end;
 function Volume(x,y,z:real):real;
 begin
 Volume:=x*y*z;
 end;

Program di tombol OK
Double click button ok, lalu ketikkan program berikut:

procedure TFormbalok.btokClick(Sender: TObject);
var p,l,t,V:real;
begin
 p:=StrToFloat(edpanjang.Text) ;
 l:=StrToFloat(edlebar.Text) ;
 t:=StrToFloat(edtinggi.Text) ;
 V:= Volume(p,l,t);
 Hasil.Caption :='Volumenya adalah '+ FloatToStr(v)+'';
end;

Program di tombol input lagi

procedure TFormbalok.btlagiClick(Sender: TObject);
begin
Bersihlayar;
end;

Program Selesai

procedure TFormbalok.btselesaiClick(Sender: TObject);
begin
close;
end;

screenshot programnya seperti berikut:

Klu dijalankan seperti berikut:

Nah mungkin itu tadi contoh sederhana mengenai procedure dan function, smoga bermanfaat. Apabila ada pertanyaan dapat ditanyakan lewat komentar.
Ok termakasih atas kunjunganya, apabila ada salah kata saya mohon ma’af. Tetap semangat dan jangan mudah menyerah….
Wassalamu’alaikum Wr Wb