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.
Hasil Program:
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?
Comments
Post a Comment