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:

Info

• Cara Mencegah Flash CS4 Terkunci DI Windows 7
• Mesin Penukar Koin
• Masuk Bengkel , Motor Malah Gosong
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Proses Hamil Yang Bikin Ngakak
• Pesawat Terbang Yang Jadi Pajangan Di Halaman Rumah
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Membuat Kue Dengan Photoshop
• Uniknya Photoshop Di Dunia Nyata
• Rush di Tabrak Mio Sampai Nungging
• Cara Membuat Animasi Sederhana Di Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Mengetahui lama komputer dinyalakan dengan delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-4
• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3
• Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya
• Menyembunyikan File *.rar Di Dalam File Foto..
• Perhitungan Tabel Dengan Query Pada Delphi 7

Function

• Cara Membuat Integer to Binary Konverter dan Sebaliknya di Delphi
• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Mengetahui lama komputer dinyalakan dengan delphi 7

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7