PENGGUNAAN FUNGSI GOTOXY PADA PASCAL

Oleh peistar

Thursday, 28 April 2016

Bagikan :

Tweet

GotoXY adalah suatu cara untuk meletekkan tataletak atau koordinat kusor pada layar program komputer, dengan manfaatkan teknik GotoXY ini kita dapat lebih mudah meletakan posisi program sesuai dengan keinginan kita, selain itu tampilan hasil program kita akan lebih rapi dan bagus kelihatannya.

Goto :

X : Menentukan posisi kolom

Y : Menentukan posisi baris

Contoh :

Seumpananya kita akan meletakan titik koordinat atau posisi tulisan yang isinya “Saya Sedang Belajar Program”  dengan koordinat X : 25 dan Y : 10 untuk lebih jelasnya dapat saudara lihat seperti tampilan gambar dibawah ini.

Tampilan Output

Sintax Program

Silahkan Copy Sintax Program menggunakan Fungsi GotoXY dibawah ini :

Sintax Program :

Uses Crt;

Begin

Clrscr;

                GotoXY(25,10);Write (‘Saya Sedang Belajar Program’);

Readkey;

End.

Contoh Sealnjutnya dapat saudara lihat pada gambar dibawah ini :

Pada gambar dibawah ini merupakan penggabungan dari Fungsi GotoXY dengan Looping

Tampilan Output

Sintax Program

 Silahkan Copy Sintax Program menggunakan Fungsi GotoXY dibawah ini :

Sintax Program :

Uses Crt;

Var NIS, NAMA, ALAMAT, NoTlpn : String;

    A : Integer;

Begin

    For A := 1 To 3 Do

Begin

Clrscr;

GotoXY(28,10);Writeln ('Halaman =',A);

GotoXY(25,11);Write ('------------------------------');

GotoXY(25,12);Write ('NIS          =');Readln(NIS);

GotoXY(25,13);Write ('NAMA SISWA   =');Readln(NAMA);

GotoXY(25,14);Write ('ALAMAT       =');Readln(ALAMAT);

GotoXY(25,15);Write ('No. TLPN     =');Readln(NoTlpn);

GotoXY(25,16);Write ('------------------------------');

end;

Readln;

End.

Demikianlah tutorial yang singkat ini semoga bermanfaat bagi kita semua akhir kata penulis ucapkan terimakasih banyak atas kunjungan saudara salam kompak selalu untuk kita semua. Wasalaaammm...!!!

Tag : Pemrograman Pascal