UNIT UNIT STANDAR Unit System Sebenarnya adalah pustaka

UNIT

UNIT STANDAR

Unit System Sebenarnya adalah pustaka dari runtime Turbo Pascal yang mendukung semua proses yang dibutuhkan pada waktu runtime. Unit system berisi semua prosedur dan fungsi standar turbo pascal. Unit system ini akan secara otomatis digunakan didalam program, sehingga boleh tidak disebutkan didalam anak kalimat Uses.

Unit Crt Digunakan untuk memanipulasi layer teks ( windowing, peletakkan cursor dilayar, color untuk teks, kode extanded keyboard dan lainnya). Unit standar crt hanya dapat digunakan oleh program yang digunakan dikomputer IBM PC, IBM AT, IBM PS/2 atau yang kompatibel dengannya.

Prosedur standar yang menggunakan unit crt adalah : Sound Text. Background Clr. Scr Text. Color Delay Text. Mode No. Sound Goto. XY

Fungsi standar yang menggunakan unit Crt adalah : Key. Pressed Read. Key Where. X Where. Y

Unit Printer Merupakan unit yang sangat kecil dirancang untuk penggunaan printer didalam program. Contoh : Uses printer ; Begin Writeln ( Lst, ‘Hallo’ ) ; Writeln ( Lst, ‘-------‘ ) ; End.

Unit Dos Digunakan bila akan menggunakan prosedur-prosedur dan fungsi-fungsi standar yang berhubungan dengan DOS call, semacam Det. Time, Set. Time, Disk. Size, Disk. Free dan lainnya.

Contoh : Uses Dos ; Begin Writeln ( Disk. Free(0), ‘ byte sisa isi disk ‘ ) ; End.

Contoh : Uses Dos, crt ; Begin clrscr; writeln(‘Versi dos yang digunakan = ‘, Lo(Dos. Version)’. ’Hi(Dos. Version)); End.

Contoh : Uses Dos, crt ; var Th, Bl, Hr, satuminggu : word; Begin End. clrscr; Get. Date(Th, Bl, Hr, satuminggu); Writeln('Tanggal hari ini = ', Hr: 2, '-', Bl: 2, '-', Th: 4 ); Write('Hari = '); Case satuminggu of 1 : Writeln('Senin'); 2 : Writeln('Selasa'); 3 : Writeln('Rabu'); 4 : Writeln('Kamis'); 5 : Writeln('Jumat'); 6 : Writeln('Sabtu'); 7 : Writeln('Minggu'); End; readln;

Uses Dos, crt ; var Jam, Menit, Detik, Seper : word; Begin clrscr; Writeln('Jam yang ditampilkan pada komputer'); Writeln('Tekan sembarang tombol untuk menghentikan'); Goto. XY(5, 5); Writeln('Jam saat ini = '); Repeat Textcolor(100); Get. Time(Jam, Menit, Detik, Seper); Goto. XY(20, 5); Writeln(Jam: 2, ': ', Menit: 2, ': ', Detik: 2, ': ', Seper: 2); Until Key. Pressed; readln; End.

Menciptakan UNIT

Merupakan modul pustaka yang dapat diakses dalam konsep pemrograman modular. Unit merupakan kumpulan dari prosedur dan fungsi (untuk berbagai deklarasi/definisi seperti variabel dan tipe) yang dapat dikompilasi secara terpisah. Keuntungan dengan adanya unit, program (berupa fungsi dan procedur) yang memakai fasilitas dalam unit akan dikompilasi lebih cepat, sebab bagian dari unit tidak ikut dikompilasi lagi.

Fungsi Unit Menciptakan pustaka yang berisi suatu deklarasi maupun sub rutin. Mengurangi jumlah kode yang harus dikompilasi. Memudahkan pengembangan yang melibatkan banyak program.

Struktur Unit UNIT nama_unit; INTERFACE USES daftar_nama_unit; {bagian deklarasi yang bersifat global} IMPLEMENTATION {Bagian deklarasi yang bersifat lokal dan implementasi dari subprogram yang terdapat pada bagian interface} BEGIN (* bagian inisialisasi *) END.

Keterangan Bagian Interface Bagian interface merupakan bagian penghubung antara unit dengan unit lain atau program. Jika unit mengandung prosedur atau fungsi yang dapat diakses oleh program atau unit lain, hanya kepala/judul prosedur/fungsi yang berada pada bagian interface. Adapun tubuh fungsi berada pada bagian implementation.

Bagian Implementation Bagian implementation berisi : • Bagian tubuh dari fungsi atau prosedur yang kepalanya dideklarasikan pada bagian interface • Deklarasi konstanta, tipe, variabel, prosedurdan fungsi yang bersifat lokal (hanya dikenal dibagian implementation) Bagian ini dapat menggunakan semua fasilitas yang ada pada bgian interface (seperti deklarasi variabel dan tipe) dan juga fasilitas yang terdapat pada unit yang dilibatkan pada bagian interface.

Bagian Inisialisasi Bagian ini bisa terdiri kata tercadang END saja yang diakhiri dengan titik. Dan menyatakan unit tidak mengandung kode inisialisasi.

Contoh Unit nama; Interface Type Warna = (Putih, Hitam, Merah); Des = 0. . 9; Const Name ='Mr. Yuli Praptomo'; Var PTS : String[25]; Function Nyata (Nilai : Real): Real; Implementation Function Nyata; Begin if Nilai >= 0 Then Nyata : = Nilai else Nyata : = -Nilai; end.

Program Guna_Unit; Uses nama; var Nilai : Real; i : Des; Bentuk : Warna; Begin Nilai : = -5; PTS : = 'STMIK EL RAHMA'; Writeln(Name); Writeln('Nilai Nyata ', Nilai: 2: 2, ' = ', Nyata(Nilai): 2: 2); Writeln; for i : = 1 to 2 do for Bentuk : = Putih to Merah do writeln(PTS); readln; end.

Unit Contoh; Interface Uses Crt; var nama : String; Procedure Hapus. Layar; Function Kapital(st : String) : String; Implementation Procedure Hapus. Layar; Begin clrscr; end; Function Kapital(st : String) : String; Var i : Integer; tmp : String; Begin tmp : = ' '; for i : = 1 to Length(st) do tmp : = tmp + Up. Case(st[i]); Kapital : = tmp; end; begin nama : = 'STMIK EL RAHMA YOGYAKARTA'; end.

Uses contoh; begin Hapus. Layar; writeln(Kapital('sekolah tinggi manajemen informatika & komputer')); writeln(nama); readln; end.

Next …