Unit CRT Pada Aplikasi Dos atau Console

Kali ini kita akan belajar tentang penggunaan unit CRT pada aplikasi dos atau console. Pada artikel sebelumnya di http://belajarlazarus.blogspot.com/2014/11/struk-dasar-bahasa-pemrograman-pascal.html diberikan contoh program yang menggunakan unit crt, dimana kita bisa tahu unit itu diletakkan setelah kata-tercadang USES.
Untuk mengingatnya berikut contoh programnya:

Program Deklarasi; {Judul Program}

{Bagian  Deklarasi}
Uses   Crt;                 {Deklarasi Unit}
Label  Loncat;              {Deklarasi Label)
Const  Phi = 3.14;          {Deklarasi Konstanta}
Type   Bilnyata = Real;     {Deklarasi Tipe}
Var    JariJari : Bilnyata; {Deklarasi Variabel}
{Deklarasi Potongan Program}
Procedure Luaslingkaran(Radius: Bilnyata);
Begin
  Clrscr;
  Writeln('Luas lingkaran = ', 0.5 * phi * Radius * Radius);
End;

{Bagian Pernyataan / Program Utama}
Begin
 Jarijari:= 7.25;
 Luaslingkaran(jarijari);
 Goto loncat;
 Writeln('Ini bagian yang diloncati');
 Loncat:
 Writeln('Selesai hitung luas lingkaran');
 Repeat until Keypressed;
End.

Mengapa menggunakan unit CRT? Sebab di unit terdapat prosedur dan fungsi CLRSCR dan KEYPRESSED, seandainya deklarasi Uses Crt; dihapus maka program akan error. Unit CRT adalah unit yang sangat sering digunakan pada aplikasi dos. Berikut sebagian daftar Prosedur dan Fungsi-nya yang sering digunakan, kalau mau baca secara lengkap cara penggunaannya bisa langsung ke http://lazarus-ccr.sourceforge.net/docs/rtl/crt/index-5.html

ClrScr          Berfungsi membersihkan layar monitor.
cursoroff       Menyembunyikan kursor.
cursoron        Menampulkan kursor.
GotoXY          Memindah posisi kursor pada layar monitor.
KeyPressed      Mengecek apakah tombol enter ditekan.
ReadKey         Membacak tombol keyboard yang ditekan.
TextBackground  Merubah warna background teks
TextColor       Merubah warna teks.
WhereX     Mengembalikan nilai X (horisontal) posisi kursor.
WhereY       Mengembalikan nilai Y (vertikal) posisi kursor.


Dan masih banyak lagi, pasti anda merasa, wah baru gini aja sudah banyak sekali yang perlu dihapalin, menurut aku hafal bukan hal utama yang penting paham konsepnya, sepanjang sejarah ujian pemrograman pasti openbook alias boleh nyontek, sebabnya mengapa? Soalnya gurunya sudah paham bahwa menghafal begitu banyak prosedur dan fungsi pasti hal yang sulit, makanya boleh nyontek. Yang penting paham konsepnya misal kalau menghadapi masalah A maka menggunakan prosedur A, mengenai bagaimana sintaks atau cara penulisan prosedur A kita bisa menconteknya. Apalagi di dunia internet, tinggal tanya saja mbah Google pasti ketemu :)

Membosankan ya belajar pascal, karena tidak kelihatan langsung hasilnya seperti aplikasi untuk windows. Yang sabar, setelah artikel penggunaan unit crt pada aplikasi dos atau console ini akan aku buatkan artikel untuk Lazarus. Jangan lupa dikomen kalau ada yang mau disharing disini!