Function (fungsi) dan prpcedure adalah suatu rutin yang biasanya dipakai sebagai alat untuk
melakukan tugas tertentu dan/atau mendapatkan nilai tertentu. Kita sering
menggunakan procedure yang berhubungan dengan event, seperti procedure untuk
mengontrol program ketika tombol di tekan.
- Procedure
digunakan untuk koding program yang digunakan berulang-ulang, pendeklarasian procedure
dituliskan setelah kata –Public.
- Function Mirip dengan Procedure bedanya Function mengembalikan suatu nilai, sedangkan procedure tidak.
- Function Mirip dengan Procedure bedanya Function mengembalikan suatu nilai, sedangkan procedure tidak.
Berikut Contoh program penggunaan
procedure dan funtion
Desain form seperti dibawah ini :
Atur propertisnya seperti ini :
nama
|
propertis
|
keterangan
|
Label1
|
Caption
|
Procedure Dan Funtion
|
Label2
|
Caption
|
Masukkan Angka
|
Label3
|
Caption
|
Di Pangkat
|
Label4
|
Caption
|
Hasil Pangkat
|
Edit1
|
Text
|
Di kosongkan
|
Edit2
|
Text
|
Di kosongkan
|
Edit3
|
Text
|
Di kosongkan
|
Edit4
|
Text
|
Di kosongkan
|
Edit5
|
Text
|
Di kosongkan
|
Edit6
|
Text
|
Di kosongkan
|
Button1
|
Caption
|
Procedure
|
Button2
|
Caption
|
Procedure 1
|
Button3
|
Caption
|
Function
|
Button4
|
Caption
|
Function 1
|
Klik dua kali Button1(Procedure)
kemudian isi script seperti ini :
procedure TForm1.Button1Click(Sender:
TObject);
var
a,b,i,c:integer;
begin
i:=1;
c:=1;
a:=strtoint(Edit2.Text);
b:=strtoint(Edit1.Text);
While i<=a do
begin
c:=c*b;
i:=i+1;
end;
edit3.Text:=inttostr(c);
end;
Kemudian buwat Procedure dan Function
sendiri pada bagian di bawah Public Declaration seperti ini :
Setelah itu tulis script dibawah ini
tepat dibawah script button1 tadi :
procedure TForm1.pangkat1(p,l:string);
var
a,b,c,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i<=a do
begin
c:=c*b;
i:=i+1;
end;
edit4.text:=inttostr(c);
end;
function
TForm1.pangkat2(p,l:string):string;
var
a,b,c,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i<=a do
begin
c:=c*b;
i:=i+1;
end;
pangkat2:=inttostr(c);
end;
function
TForm1.pangkat3(p,l:integer):integer;
var
a,b,c,i:integer;
begin
i:=1;
c:=1;
while i<=l do
begin
c:=c*p;
i:=i+1;
end;
pangkat3:=c;
end;
Kemudia klik dua kali pada button2(Procedure
1) dan isi script dibawah ini :
procedure TForm1.Button2Click(Sender:
TObject);
begin
pangkat1(edit2.Text,edit1.Text);
end;
Kemudia klik dua kali pada button3(Function)
dan isi script dibawah ini :
procedure TForm1.Button3Click(Sender:
TObject);
begin
edit5.Text:=pangkat2(Edit2.Text,edit1.Text);
end;
Kemudia klik dua kali pada
button4(Function 1) dan isi script dibawah ini :
procedure TForm1.Button4Click(Sender:
TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=pangkat3(a,b);
edit6.Text:=inttostr(c);
end;
Jika di Run(f9) Hasilnya Seperti ini
:
Catatan :
-Tombol Procedure menggunakan procedure
otomatis ketika mengklik button1.
-Tombol Procedure 1 menggunakan
procedure buatan yang sedah kita bwat.
-Tombol Funtion menggunakan function
yang telah kita buwat sendiri(masih menggunakan variabel String).
-Tombol Funtion menggunakan function
yang telah kita buwat sendiri(masih menggunakan variabel integer).
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.
NB : Kritik dan Saran bisa di komentar.
0 komentar:
Post a Comment