Membuat Unit dalam Bahasa Pascal

Kamis, Agustus 16, 2012 Unknown 5 Comments

Ternyata, saya ga jadi posting I/O string :D Tapi saya akan membahas tentang "Membuat Unit dalam Bahasa Pascal". Check this out!

APA ITU UNIT ?

unit itu merupakan suatu modul program yang terpisah dan digunakan untuk menyimpan proses-proses tertentu yang berkaitan *bener gak?. biasanya nih, unit itu dibuat untuk program yang lumayan gede sehingga program dapat lebih bersifat modular dan mudah untuk dibaca.  

STRUKTUR UNIT

sebelum membuat unit,kita harus tau dulu struktur dari unit itu sendiri. unit memiliki struktur tertetu dalam proses pembuatannya. umumnya sih, unit terbagi jadi tiga bagian, yaitu interface, implementation dan initiliazation, bentuk umumnya bisa seperti ini Bagian Interface Bagian ini tuh isinya daftar unit yang akan digunakan, deklarasi konstanta maupun variabel(bila ada) dan prototipe prosedur dan fungsi. jadi pada bagian ini, prosedur ataupun fungsi hanya dikenalkan saja dan implementasinya baru akan ditulis di dalem bagian implementation. contoh prototipe prosedur dan fungsi seperti ini

function tambah(x, y:integer):integer;
function kali(x, y:integer):integer;
procedure tukar(var x, y:integer);

nah, yang perlu diperhatikan adalah, bagian ini (interface) harus ada di setiap pembentukan setiap unit. Bagian Implementation Sama kaya bagian interface, implementation juga dapat berisi daftar unit yang akan digunakan, deklarasi konstanta maupun variabel(bila ada) dan implementasi dari prosedur maupun fungsi yang sebelumnya udah dideklarasikan pada bagian interface dengan menuliskan prototipenya. contohnya kaya gini nih

function tambah(x, y:integer):integer;
begin
  tambah:=x+y;
end;

function kali(x, y:integer):integer;
begin
  kali:=x*y;
end;

procedure tukar(var x, y:integer);
var
  z:integer;
begin
  z:=x;
  x:=y;
  y:=z;
end;

oh iya, bagian implementation ini juga harus ada dalam setiap pembentukan unit. Bagian Initialization Kalau bagian ini sih sifatnya opsional. jadi bisa dituliskan, bisa juga ngga. fungsi dari bagian initialization ini sendiiri sih buat melakukan inisialisasi nilai terhadap variabel global yang ada didalam unit. nih contoh pengisian inisialisasi pada bagian ini

begin
  x:=0;
  y:=0;
  nama:='';
  ...
end.

catatan : bagian initialization ini berada di dalam blok begin-end.  

MEMBUAT DAN MENGGUNAKAN UNIT

Supaya anda lebih memahami konsep mengenai pembuatan unit, nanti kita akan buat sebuat contoh unit sederhana sekaligus penerapannya di dalam contoh program.

unit contoh;

interface
   
   function tambah(x, y:integer);integer;
   function kali(x, y:integer):integer;
   procedure tukar(var x, y:integer);

implementation
   
function tambah(x, y:integer):integer;
begin
  tambah:=x+y;
end;

function kali(x, y:integer):integer;
begin
  kali:=x*y;
end;

procedure tukar(var x, y:integer);
var
  z:integer;
begin
  z:=x;
  x:=y;
  y:=z;
end;

(di sini kita tidak menyertakan bagian initialization)
end.

nah, kalau sudah selesai.. simpan file tersebut dengan nama CONTOH.PAS. yang harus diingat adalah nama file harus sama dengan nama unit. lalu, cukup kompilasi saja unit tsb, bukan dijalankan. Sekarang, kita akan buat program yang akan menggunakan unit yang telah kita buat sebelumnya.

program CobaUnit;

uses
  crt; {menggunakan unit crt}
  contoh; {menggunakan unit contoh}

var
  hasiltambah, hasilkali:integer;
begin
  clrscr;
  hasiltambah:=tambah(5, 10);
  hasilkali  :=kali(5,10);
  writeln('5 + 10 = ',hasiltambah);
  writeln('5 x 10 = ',hasilkali);
  readln;
end,

kalau program di atas dijalankan, maka hasilnya adalah

5 + 10 = 15
5 x 10 = 50

Jika anda merasa bingung, coba dilihat kembali materi seputar Variabel, Tipe Data, dan Procedure and Function. Yang saya ingin tekankan disini adalah bagaimana suatu unit bekerja.

Mungkin itu saja yang bisa saya bahas dalam postingan kali ini, semoga bermanfaat :D