Procedure dan Fungsi Unit Crt Freepascal

1. Clreol

Deklarasi: procedure clreol

Deskripsi: menghapus dari posisi kursor diletakan sampai baris terakhir sintak.dan kursor tidak tetap di posisi kursor diletakan

contoh program

Program satu;

uses Crt;

{program penggunaan prosedur clreol}

var

 I,J:integer;

begin

 For I:=1 to 15 do

  For J:=1 to 80 do

   begin

   gotoxy(j,i);

   Write (j mod 10);

   end;

 Window(5,5,75,12);

 Write(’garis ini akan dihapus dari’,

      ’sini sampai sebelah kanan windows’);

 GotoXY(27,WherexY);

 ReadKey;

 ClrEol;

 WriteLn;

end.

2. Clrscr

Deklarasi:procedure Clrscr;

Deskripsi: membersihkan layar kerja

contoh program

program dua;

user crt;

{program penggunaan clrscr}

begin

 writeln('rivai ganteng');

 readkey;

 clrscr;

 writeln('baris pertama telah terhapus');

end.

3. Delay

Deklarasi:procedure delay(Ms:Word)

Deskripsi:memberi jeda waktu pada saat program di eksekusi

contoh program

program 3;

uses crt;

{program memberi jeda pada program}

var

  i:longint;

begin

 writeln('menghitung mundur');

 for i:=10 downto 1 do

  begin

   writeln(i);

   delay(3000); {menunggu selama tiga detik}

  end;

 writeln('door');

end.

4. Gotoxy

Deklarasi: procedure gotoxy(x : byte; y: byte)

Deskripsi: mengatur posisi kursor pada tampilan

contoh program

Program 4;

uses Crt;

{program penggunaan function gotoxy}

begin

 ClrScr;

 GotoXY(10,10);

 Write(’10,10’);

 GotoXY(70,20);

 Write (’70,20’);

 GotoXY(1,22);

end.

5. Readkey

Deklarasi:function readkey:char)

Deskripsi:membaca char yang telah di masukan lewat keyboard

contoh program

Program 5;

uses Crt;

{program penggunaan function readkey}

var

  ch:char;

begin

  writeln(’Tekan kiri/kanan,Esc=keluar’) ;

  repeat

    ch:=ReadKey;

    case ch of

     #0 : begin

            ch:=ReadKey; {membaca code}

            case ch of

            #75:WriteLn(’kiri’);

            #77:WriteLn(’kanan’);

           end;

         end;

     #27:WriteLn(’keluar’);

    end;

   until ch=#27 {keluar}

end.