3 – kata pasti khusus dalam unit CRT: clrscr(), gotoxy(), dll…

 

Bagian ini akan membahas:
- penggunaan kata pasti
- deskripsi dari kata pasti

Contoh:
1. Clrscr;
2. Gotoxy(_,_);
3. Textbackground();
4. Textcolor();
5. Readkey;
6. Delay();
7. Halt; Halt()

Penggunaan kata pasti
    Sebelum kita membahas pernyataan “if” dan perulangan, saya ingin memberi anda sedikit penjelasan dari beberapa fungsi di dalam pascal yang sangat berguna. Dan fungsi-fungsi ini mengharuskan program anda untuk menyertakan library “crt.tpu”. Untuk memasukkan sebuah library ke dalam program, anda harus menggunakan kata pasti “uses”, karena ini digunakan untuk memanggil fungsi-fungsi dan prosedur-prosedur di dalam sebuah library. dibawah ini adalah program dari pembahasan 2 (program 3) yang lebih baik dan user-friendly:

(Jika anda ingin melihat perbedaan kedua program, anda harus menjalankannya) dan melihat perbedaan diantara program ini dan program yang ada pada bagian 2.

library “crt” memiliki fungsi dan prosedur yang akan sering anda gunakan. Beberapa diantaranya ada di tabel berikut. Ada banyak library yang mirip, seperti “Strings” dan “Dos”

Deskripsi dari kata pasti berikut:
Dibawah ini tabel dari beberapa kata baru:

Kata pasti	Crt: Yes/No	Deskripsi
Clrscr	Yes	Membersihkan layar
Gotoxy(int,int)	Yes	Meletakkan cursor ke posisi yang diminta
Textbackground(word/int)	Yes	Warna background
Textcolor(word/int)	Yes	Warna teks
Readkey	Yes	Membaca sebuah tombol; dapat dimasukkan ke sebuah variabel
Delay(int)	Yes	Menunggu sampai waktu yang dimasukkan (Millisecond)
Halt(parameter)	No	Program diakhiri

key (tipe variabel)":
int – integer (-32768 sampai 32767), word - 0 sampai 65535.

Contoh masing-masing:

-Clrscr: (clearscreen)

writeln(‘ketika anda menekan enter, layar akan dibersikan!’);
readln;
clrscr;

-Gotoxy(int,int): (Pergi ke posisi x dan y)

gotoxy(10, 10);
writeln(‘posisi saat ini adalah 10 pixel dari sisi kiri layar, dan’);
writeln(‘dari atas layar.’);
readln;

-Textbackground(word/int): (warna background);

Textbackground(red); {word - red}
Writeln('Lihat perbedaannya');
Textbackground(5); {integer - 5}
ClrScr;
Writeln('Lihat perbedaannya'); Readln;

• Textcolor(word/int): (Warna teks);

Textcolor(red); {word - red}
Writeln('Warna teks');
Textcolor(5); {integer - 5}
Writeln('Warna teks'); Readln;

• Readkey: (Membaca sebuah tombol yang ditekan);

Example 1:

Writeln('Tekan sebuah tombol!!');
Readkey;

Example 2:

Writeln('Tekan sebuah tombol');
Keypress := readkey; {Tombol yang ditekan adalah string (boleh juga integer)}
Writeln(Keypress);

• Delay(int): (Jeda beberapa saat);

Writeln('1');
Delay(1000);{1000 milliseconds}
Writeln('2');
Delay(1000);
Writeln('3');
Readln;

• Halt(int): (program diakhiri dengan sebuah kode exit);

writeln('tekan enter dan program diakhiri!);
Readln;
Halt(0);

Perhatikan bahwa instruksi yang mengikuti ‘halt’ tida dieksekusi sejak program diakhiri ketika halt.