Welcome to Abdul Malik Ikhsan's Blog

penggunaan “function” pada delphi

Posted in Tutorial Delphi by samsonasik on June 15, 2007

Atas permintaan dari pembaca yang budiman, berikut saya tampilkan sedikit ulasan tentang function di delphi, ambil contoh aplikasi mencari  volume balok, berarti kita buat dulu function hitungvolumebalok-nya , berikut contoh syntax-sisnya…:
****************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label4: TLabel;
   
    //deklarasi function    
    function hitungvolumebalok(panjang,lebar,tinggi:integer):integer;
   
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//panggil function
function TForm1.hitungvolumebalok(panjang,lebar,tinggi:integer):integer;
var volume:integer;
begin
     volume:=panjang*lebar*tinggi;
     //panggil hasil, result adalah method default.
     result:=volume;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   //jalankan 
   if ((Edit1.Text=”) or (Edit2.Text=”) or (edit3.Text=”)) then
   showmessage(‘masukkan dulu angkanya’)
   else
   label4.Caption:=inttostr(hitungvolumebalok(StrToInt(Edit1.Text),StrToInt(edit2.Text),StrToInt(edit3.Text)));
end;

{ error handlingnya }
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in[‘0’..’9′]) then
key:=#0;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in[‘0’..’9′]) then
key:=#0;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in[‘0’..’9′]) then
key:=#0;

end;

end.

//berikut tampilan programnya…

function-photo.jpg

Advertisements

10 Responses

Subscribe to comments with RSS.

  1. verinska said, on June 12, 2008 at 3:01 am

    makasih..

  2. johanericka said, on August 28, 2009 at 3:13 am

    bisa tolong dijelaskan bedanya procedure tanpa parameter, procedure dengan parameter dan function ??
    karena saya baru di delphi dan ingin porting program pascal saya ke delphi (saya menggunakan delphi 7)
    jika berkenan mohon dikirimkan ke email saya di johanericka [at] yahoo.com (ganti [at] dengan @ untuk menghindari spam)

    terima kasih

  3. samsonasik said, on August 28, 2009 at 6:57 pm

    ehm.., mungkin pembahasannya harus dimulai dari konsep dari function dan procedure itu sendiri.
    function & procedure adalah method, method adalah blok program yang bisa kita panggil di manapun asal method nya diikutsertakan (di include), apapun bahasa pemrogramannya. PERBEDAANYA, function mengembalikan sebuah nilai, sedangkan procedure, tidak mengembalikan nilai.

    Nah, tentang parameter, parameter adalah informasi yang dilewatkan via list argument yang nantinya akan diproses oleh function / procedure (biasanya) diletakkan sesudah nama method. Parameter dibagi menjadi 2, yaitu by value, dan by reference. Secara default, parameter biasanya by value ( jadi jika value argument berubah, ia tidak akan mengubah value variable di luar function / procedure). Sedang by reference, ketika ada pengisian variable oleh function / procedure, ia akan mengubah pula variable di luar function / procedure. Cara pengisian parameter tentulah boleh berbeda-beda untuk setiap bahasa pemrograman.

    semoga membantu.

  4. Kurniawan said, on April 30, 2010 at 1:50 am

    Maksudnya mengembalikan nilai apa?? Bisa dicontohkan??

  5. samsonasik said, on May 3, 2010 at 4:31 am

    misal seperti contoh di atas :
    //nilai yang dilewatkan di function adalah parameter2 yang nanti bisa diproses oleh function tersebut ( dan memberikan umpan balik sebuah nilai lain 🙂 )
    function TForm1.hitungvolumebalok(panjang,lebar,tinggi:integer):integer;
    var volume:integer;
    begin
    volume:=panjang*lebar*tinggi;
    //hasil dari parameter yang dilewatkan 🙂
    result:=volume;
    end;
    ——–
    semoga membantu.

  6. indep said, on January 11, 2011 at 7:11 pm

    function TForm1.hitungvolumebalok(panjang,lebar,tinggi:integer):integer;
    var volume:integer;
    begin
    volume:=panjang*lebar*tinggi;
    //hasil dari parameter yang dilewatkan 🙂
    result:=volume;
    end;
    ——–
    perhitungan tidak langsung result:=panjang*lebar*tinggi?

  7. samsonasik said, on January 16, 2011 at 4:05 am

    bisa jg seperti itu. dengan menampung di variable, kita bisa lebih leluasa mengubah nilai nya jika memiliki default value 🙂

  8. nurul lg belajar delphi said, on August 5, 2011 at 4:40 pm

    bisa tidak ya parameter fungsinya sebuah array..?tolong jawab nah..

  9. samsonasik said, on August 6, 2011 at 9:20 am

    bisa saja, misal :

     type
       TDataArray = array[0..6] of integer;
    
    //panggil function
    function TForm1.getProses(theparam:TDataArray):integer;
    begin
         ///execute...
    end;
    
  10. Riza Wara Elzati said, on April 22, 2012 at 2:25 pm

    ringkasan penjelasan berbentuk artikel kok gak diikiutsertakan disini , biar lebih terperinci


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: