Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy.

Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat.



Berikut pemakaian gotoxy pada program pascal.

uses crt ;
type
    mahasiswa = record
       nim    : string[8] ;
       nama   : string[30] ;
       jenjang: string[2] ;
       prodi  : string[30] ;
       Nilai  : byte       ;
    end;

var
   recMhs : array[1..30] of mahasiswa ;
   ket    : string[10];
   i      : byte ;

Begin
     for i:= 1 to 12 do
     begin
          Write('NIM       : '); readln(recMhs[i].nim) ;
          Write('Nama      : '); readln(recMhs[i].nama) ;
          Write('Jenjang   : '); readln(recMhs[i].jenjang) ;
          Write('Prodi     : '); readln(recMhs[i].prodi) ;
          Write('Nilai     : '); readln(recMhs[i].nilai) ;
     End;

     clrscr ;
     gotoxy(1,1) ; write('Informasi Mahasiswa') ;
     gotoxy(1,2) ; write('----------------------------------------------------------------------------') ;
     gotoxy(1,3) ; write('No NIM            Nama        Jenjang     Prodi          Nilai  Keterangan') ;
     gotoxy(1,4) ; write('----------------------------------------------------------------------------') ;
     for i := 1 to 12 do
     begin
        with recMhs[i] do
        begin
           if nilai>=50 then
              ket := 'Lulus'
           else
              ket := 'Gagal' ;

           gotoxy(1 ,4+i) ; write (i:2,' ',nim:8,' ', nama);
           gotoxy(33,4+i) ; write(jenjang,' ',prodi);
           gotoxy(59,4+i) ; write(nilai:3,' ',ket) ;
        end;
     end;
     gotoxy(1,5+i) ; write ('----------------------------------------------------------------------------') ;
     readln;
end.

Pemakaian gotoxy pada program pascal diatas hanya diperuntukkan pada bagian informasi saja. Namun hasil akhir akan terlihat rapi.

Demikianlah artikel pemakaian gotoxy pada program Pascal ini. Bagaimana anda suka belajar bahasa pemrograman?


Sumber : Mesran.Net