Contoh Procedure dan Function pada Delphi: Menghitung Volume Balok

Contoh Procedure dan Function pada Delphi: Menghitung Volume Balok

11.28
Alhamdulillah, selamat datang di blog saya. 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 kalau tanpa procedure dan function, Nah sekarang akan saya jelasin membuat program menghitung volume dengan function dan procedure. Aplikasi ini juga sebagai bahan untuk tugas Struktur Data pada perkuliahan kami.

Ok sekarang buat formnya dulu, tampilanya kurang lebih sbb:






Objek          Name             Caption
Label1         Label1           panjang
Label2         Label2           lebar
Label3         Label3           tinggi
Label4         Hasil              Hasil
Button1       Btok              Hitung
Button2       Btlagi            Input
Button3       btSelesai       Selesai
Form1         Formbalok    Volume Balok

Objek         Name              Text
Edit1          edpanjang          –
Edit2          edlebar               –
Edit3          edtinggi              –



Listing 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 HITUNG
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
procedure TFormbalok.btlagiClick(Sender: TObject);
begin
Bersihlayar;
end;
Program SELESAI
procedure TFormbalok.btselesaiClick(Sender: TObject);
begin
close;
end;