tambahan saja..

procedure sebenarnya juga bisa mengembalikan nilai melalui
parameter/argumen, contoh dlm vb:

public sub test(byref nilai as integer)
   nilai = 10
end sub


saat procedure diatas dipanggil sbb:

dim x as integer
x = 5
call test(x)

maka nilai x setelah procedure itu dipanggil adalah 10 (bukan 5 lagi),
ini berarti procedure tersebut mengembalikan nilai. kalau ingin
procedure tersebut tidak menyembalikan nilai, kita bisa ganti keyword
byref dengan byval (kalau tidak dituliskan,default di vb6 adalah byref).

memang perbedaan paling nyata antara function dan procedure, kalo
function setidaknya HARUS mengembalikan 1 nilai.

buat saya pribadi, saya menggunakan function untuk suatu proses yang
menghasilkan sesuatu, nilai yang dikembalikan function bisa saja hasil
proses/perhitungan, kode kesalahan, atau true/false. 

sedang procedure saya gunakan untuk memotong bagian yang besar ke
dalam sub2 bagian, misalnya procedure untuk cetak header laporan. 

yang penting jika kita coding dengan paradigma modular programming
yang menggunakan function/procedure, selalu usahakan
function/procedurenya dapat di RE-USE.

CMIIW

best,
jn

http://jokonurjadi.blogspot.com


--- In [email protected], "Kenjiro H" <[EMAIL PROTECTED]> wrote:
>
> sebenernya dulu konsep si microsoft (waktu masih zaman dos), didalam
> pemrograman basic hanya ada istilah function....., dimana function
itu ada
> yang dapat mengembalikan nilai, dan ada yang tidak mengembalikan nilai.
> Kemudian bermunculan bahasa pemrograman baru (misalnya pascal) yang
> mengistilahkan procedure untuk fungsi yang tidak mengembalikan nilai,
> akhirnya disepakati oleh umum bahwa istilah prosedur adalah function
yang
> tidak mengembalikan nilai, sedangkan function adalah function yang
> mengembalikan nilai....., kedengarannya aneh, tapi begitu kenyataannya,
> hahahhaha
> 
> ps. biar jelas pakai contoh di pascal aja, kalau mau nulis prosedur dan
> fungsi pakai cara yang berbeda sbb :
> 
> procedure A
> begin
>    ShowMessage('Halo !');
> end
> 
> function B : Integer
> begin
>    ShowMessage('Halo');
>    result := 10;
> end
> 
> jadinya kita bisa buat :
> X := A; // Ini engga bisa
> X := B; // Ini bisa, X bakalan jadi 10
> 
> 
> begitu kira-kira........
> 
> 
> 2008/6/24 via76ers <[EMAIL PROTECTED]>:
> 
> >   Dear all,
> > Saya sudah membaca beberapa artikel mengenai prosedure dan function..
> > tapi kok gak ngerti2 juga ya..
> > Mungkin ada temen2 yang bisa bantu jelasin....?
> > sekalian contoh dan penggunaannya ya.. biar lebih ngerti..
> >
> > regards
> > Aji
> >  
> >
>


Kirim email ke