Program Procedure dan Function di delphi

Procedure
Prosedur adalah suatu program terpisah dan berdiri dalam suatu blok program dan
befungsi sebagai sebuah sub program (program bagian). Penulisan prosedur diawali
dengan kata Procedure pada bagian deklarasi program dan cukup menuliskan nama prosedur
yang dibuat pada bagian Implementasi. Alasan penggunaan prosedur :
1. Digunakan untuk penggalan program yang akan digunakan secara berulang – ulang dalam suatu proses program.
2. Digunakan untuk memecah – mecah program menjadi sebuah modul program, sehingga listing program menjadi lebih sederhana.
Syarat penulisan nama procedure :
1. Harus diawali dengan karakter.
2. Untuk nama prosedur dengan menggunakan dua kata atau lebih penulisannya tidak boleh menggunakan spasi, harus digabung atau dihubungkan dengan underscore ( _ )
3. Tidak mengenal tanda baca.
Contoh :
a. Pendeklarasian Prosedur
Penulisan pendeklarian sebuah prosedur dalam Delphi ditempatkan setelah kata public
agar dapat dikenali oleh semua object yang ada dalam proses program tersebut. Penulisannya diawali dengan kata Procedure diikuti nama procedure.
Public
Procedure bersih;
b. Penulisan prosedur
Penulisan pogram prosedur terdapat dalam bagian
implementation,
Procedure TForml.Bersih;
Begin
Enama.text := “;
Ealamat.text := “;
Ekota := “;
End;
c. Pemanggilan Prosedur
Pemanggilan prosedur terdapat dalam bagian implementation, pada umumnya pemanggilan
prosedur terdapat dalam suatu ruang lingkup object yang mempunyai
sebuah event. Cara pemenggilannya cukup hanya dituliskan nama prosedurnya saja.
Procedure.TForm1.button1click(sender: Tobject);
Begin
Bersih;
End;
Pengertian Fungsi
Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan program
yang terpisah dari program utama dan berfungsi sebagai sebuah program bagian
dari program utama. Penulisan fungsi diawali dengan kata cadangan function dan
dideklarasikan dalam bagian deklarasi fungsi. Dan penulisan program fungsi
ditempatkan pada program utama. Satu ha yang perlu diperhatikan dalam penulisan
fungsi adalah harus diikuti dengan tipe datanya.
Bentuk Umum penulisan Fungsi
Function indentifier(daftar-parameter) : type;
Contoh :
Function hitung(var a,b : real) :real;
Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;.
oke sekarang saya akan memberi tutorialnya silahkan di simak
1. buka program Delphi/ other
2.buat sketsa / projectnya kira-kira gambarnya seperti berikut

3.klik button 2 kali untuk memasukkan sriptnya
unit procedur;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFormbalok = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
hasil: TLabel;
edpanjang: TEdit;
edlebar: TEdit;
edtinggi: TEdit;
Btok: TButton;
Btlagi: TButton;
Btselesai: TButton;
procedure BtokClick(Sender: TObject);
procedure BtlagiClick(Sender: TObject);
procedure BtselesaiClick(Sender: TObject);
private
{ Private declarations }
public
Procedure bersihlayar;
end;
var
Formbalok: TFormbalok;
implementation
{$R *.dfm}
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;
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;
procedure TFormbalok.btlagiClick(Sender: TObject);
begin
Bersihlayar;
end;
procedure TFormbalok.btselesaiClick(Sender: TObject);
begin
close;
end;
end.
kira-kira programnya akan jadi seperti berikut

apabila masih belumberhasil atau belum paham silahkan download filenya disini Munkin itu dulu penjelasan tentang Procedure dan function semoga bermanfaat. Apabila ada pertanyaan dapat ditanyakan lewat komentar.