Mengenal Procedure dan Function Pada Delphi 7

Selamat pagi agan-agan , hari jumat yang sangat menyenangkan.Cuaca cerah , udara segar , cocok untuk posting blog.Kali ini saya ingin memberikan penjelasan sederhana mengenal procedure dan function , perbedaan keduanya , serta cara menggunakannya pada delphi 7.Tutorial kali ini khusus untuk agan newbie yang awam akan delphi 7.Namun bila ada master yang mau ikut menimpali silahkan di tunggu sekali komentarnya.Lalu tunggu apalagi !? Mari kita mulai.

Agar penjelasannya lebih mudah , mari kita membahasanya sembari praktek.Learning by doing gan.Kalo gitu , buka dong delphi 7 nya.Pertama , saya ingin membahasa mengenai procedure terlebih dahulu.Yang saya tau , procedure adalah perintah untuk menjalankan rutin pada delphi 7 dimana rutin tersebut tidak mengembalikan nilai.Procedure itu function yang tidak mengembalikan nilai.Bila pada bahasa pemrograman lain semisal java , function yang tidak mengembalikan nilai selalu ditambahkan void pada pendeklarasiannya.Sebagai tanda bahwa function tersebut tidak mengembalikan nilai.Kegunaan procedure sendiri ialah untuk mempersingkat koding kita.Membuat waktu koding lebih efisien.Dan memudahkan untuk koreksi bila ada bugs atau kesalahan ketika koding.Jika anda bingung dengan penjelasan saya , kita contohkan saja dengan membuat sebuah procedure.Udah di buka delphi 7 nya !? Tambahkan 2 buah komponen button dan 1 buah komponen edit kedalam form1.Oia , cara penulisan procedure yang saya buat tidaklah baku dan mutlak.Banyak cara untuk menuliskan procedure.Namun , itu tergantung  coding-style anda saja.Bila anda suka , silahkan ikuti cara saya.Sudah di tambahkan button dan edit-nya !? Selanjutnya , kita akan membuat procedure yang berfungsi untuk menampilkan pesan.Tambahkan kode dibawah ini setelah {$R *.dfm}

procedure tampilPesan;
begin
  with Form1 do  //mengenalkan form1 dengan procedure
    begin
      if Edit1.Text<>'' then   //agar edit1 memiliki nilai
        begin
          ShowMessage(Edit1.Text); //munculkan pesan yang di isi pada edit1
        end;
    end;
end;

Selanjutnya kita akan memanggil/trigger procedure tersebut pada button1.Double-klik button satu dan ketikan kode berikut.

procedure TForm1.Button1Click(Sender: TObject);
begin
  tampilPesan; //bila button1 di tekan , maka procedure tampil pesan di panggil
end;

Jalankan program dan isi edit1 dengan kata apa saja.Lalu tekan button1.Muncul pesan sesuai yang anda ketikan bukan !? Terminate program lalu double-klik button2.Panggil kembali procedure tampilPesan seperti pada button1.Lalu jalankan program dan tes seperti tadi.Ketika edit1 telah di isi dan kita menekan button1 dan button2 , maka akan muncul pesan sesuai yang kita inputkan pada edit1.Artinya , kita hanya perlu memanggil procedure untuk melakukan rutin yang berulang-ulang.Bayangkan bila kita membuat program dengan rutin yang berulang sampai pulhan kali.Daripada sibuk kopas koding , lebih baik membuat satu procedure dan memanggilnya ketika dibutuhkan.Contoh yang saya berikan memang sangat sederhana , yang terpenting adalah anda paham kegunaan procedure , agar program yang dibuat lebih efisien.Selanjutnya kita akan membahas function.Penjelasannya hampir sama dengan procedure , bedanya function mengembalikan nilai.Maksudnya !? Mending praktek lagi yuk.Buat program baru pada delphi 7.Tambahkan 2 buah edit dan 1 buah button pada form1.Kita akan membuat function untuk menghitung luas segitiga.Ketikan kode berikut setelah {$R *.dfm}

function luasSegitiga(alas,tinggi:Double):Double; //function yang di buat bertipe float/double
var hasil:Double; //menambahkan variabel hasil sebagai nilai dari perhitungan
begin
  hasil:=0.5*alas*tinggi;  //rumus luas segitiga , setengah*alas*tinggi , bener gitu kan!?hehehe
  Result:=hasil;   //Hasil yang dikembalikan dari function
end;

Setelah itu double-klik button satu lalu ketikan kode berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
  if(Edit1.Text<>'')and(Edit2.Text<>'')then  //function dipanggil , bila edit1 dan edit2 tidak kosong
    begin
      {menampilkan pesan hasil perhitungan function.Karena function bertipe float/double
      sedangkan message bertipe string , maka tipe datanya di rubah dengan cara
      FloatToStr.dan karena edit1 dan edit2 bertipe string , sedangkan function luasSegitiga
      bertipe float , maka tipe datanya di rubah dengan cara StrToFloat}
      ShowMessage('Luas segitiganya adalah : '+FloatToStr(luasSegitiga(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text))));
    end;
end;

Jalankan program lalu masukan angka pada edit1 dan edit2.Setelah itu tekan button1.Maka akan muncul pesan berisi hasil/luas segitiga dari angka yang di masukan pada edit1 dan edit2.Cukup mudah bukan !?Memang contoh yang saya berikan sangatlah sederhana.Seperti yang saya ucapkan , yang terpenting untuk saat ini adalah pemahaman mengenai procedure dan function.Sekian tutorial kali ini semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya: