delphi7

Procedure dan Function

Ini adalah materi MK.PEMVIS kelas A Selanjutnya Sengaja saya tidak buat dalam bentuk Slide,
Materi ini disajikan setelah materi minggu kemarin tentang Array..

Procedure dan Function, mengapa harus mempelajari itu???
ini alasannya..

Penulisan atau penambahan secara manual suatu   lebih baik dilakukan saat menyelesaikan suatu permasalahan yang membutuhkan operasi tertentu secara berulang kali, penambahan procedure atau function  yang sesuai dengan kebutuhan dapat mempermudah ketika mengembangkan project serta pencarian bug dalam project tersebut.

Apakah Procedure  itu?.. dan apakah Function  itu?..

Procedure adalah.. sekumpulan statement, variabel, parameter yang dijadikan satu
untuk mengerjakan satu atau lebih operasi.
sedangkan
function adalah..  sekumpulan statement, variabel, parameter yang dijadikan satu untuk
mengerjakan satu atau lebih operasi dan mempunyai satu feedback atau nilai balik,
feedback bisa ber tipe data apa saja sesuai deklarasi.

Dari definisi yg saya jelaskan di atas, procedure atau function mempunyai perbedaan  yaitu pada feedback atau nilai balik, tidak seperti function,  procedure hanya mengerjakan operasi tanpa mengembalikan nilai.

Cara penulisan nya gimana ya???

Deklarasi :

procedure NamaProcedure(Parameter : TipeData);

function NamaFunction(Parameter : TipeData) : TipeDataFeedback;

deklarasi procedure dan function ditulis pada block public declaration, private, dan protected.

jadi masih di sebelah atas dibandingkan dengan koding-koding yang biasanya ditulis manual.

Ini Contohnya:

type
TForm1 = class(TForm)
private
procedure NamaProcedure(Parameter : TipeData);
public
function NamaFunction(Parameter : TipeData) : TipeDataFeedback;
protected
{ Protected declarations }
end;

Implementasi :

kata implementasi itu sudah ada sebelumnya so tidak usah di gonta-ganti, kemudian di lanjut dengan :

procedure TForm1.NamaProcedure(Parameter : TipeData);
begin

end;

procedure TForm1.NamaFunction(Parameter : TipeData): TipeDataFeedback;
begin

end;

Procedure dan Function tersebut tidak akan jalan dengan dengan sendirinya, kalau tidak dipanggil atau bahasa pemrogramannya di eksekusi,
berikut contoh pengeksekusiannya saya misal kan manggil procedure saat event button click pada suatu form

procedure TForm1.Button1Click(Sender: TObject);
begin
NamaProcedure(NamaParameter);
end;

Masih Bingung kah??

Contoh implementasi lengkapnya dapat didownload di  Procedure Function

jika masih ada yang perlu ditanyakan silahkan tinggalkan komentar..

NB: File tersebut ber ekstensi .pdf setelah di download silahkan ekstensi file di ganti .zip

Best Regards :)

Share

2 thoughts on “Procedure dan Function

Leave a Reply

Your email address will not be published. Required fields are marked *