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.

Related Posts by Categories