Langkah-langkah Membuat dan Mengatur Tata Letak atau Titik Koordinat kursor pada Program Turbo Pascal

Baiklah, kali ini kita akan membuat dan mengatur bagaimana caranya agar Tata letak kursor pada Program pascal saat membuat program itu tidak saja selalu di garis tepi bagian kiri saja. Penggunaan Rumus untuk menentukan titik koordinat kursor tentunya tidaklah terlalu sulit, mungkin akan sangat mudah jika kita mempraktekkannya Langsung. Silahkan Disimak..

Masih ingat dengan Program yang saya buat sebelumnya  

Cara Menggunakan IF Then Else pada Pemrograman Pascal

Kita akan Mengambil Contoh dari program tersebut dan memasang Rumus untuk menentukan Titik Koordinat atau Tata Letak.
Ini Merupakan Kode Script pada Program Tersebut :

Uses crt;
var npm, nama, kode :string;

begin
clrscr;
writeln;
writeln('DATA PENERIMAAN MAHASISWA BARU');
writeln('----------------------------------------------------------');
write   ('NPM                                                   = ');readln(npm);
write   ('Nama Mahasiswa                             = ');readln(nama);
write   ('Kode Jurusan  [TI/MI/TS/PWK]   = ');readln(kode);
if (kode ='TI') then
begin
writeln ('Jurusan        = Teknik Informatika');
end
else if (kode ='MI') then
begin
writeln ('Jurusan       = Manajamen Informatika');
end
else if (kode ='TS') then
begin
writeln ('Jurusan       = Teknik Sipil')
end
else if (kode='PWK') then
begin
writeln ('Jurusan      =Perencanaan Wilayah danKota');
end;
writeln('--------------------------------------------------------------');
readln;
end.


Nah, Seperti kode diatas sudah disiapkan oleh saya, Sekarang kita akan Menggunakan Tata Letak atau titik Koordinat untuk Membuat Program tidak hanya berada di garis tepi sebelah kiri, tetapi bisa kita pindahkan dengan membuatnya di Tengah dan lainnya.
Untuk itu disini kita akan menggunakan Rumus yakninya Goto XY, yang mana pengertiannya saja digunakan untuk memindahkan tata letak atau koordinat kursor pada layar.

Untuk cara penggunaannya cukup mudah, Gunakanlah seperti cara dibawah ini :sebagai keterangannya adalah X adalah Baris dan Y adalah Kolom.
misal untuk meletakkan Program sedikit menengah, masukkanlah rumus goto XY (10,11);
jadi secara otomatis baris dan program akan terletak pada titik baris 10 dan kolom 11

Untuk melihat yang elbih mudahnya silahkan salin kode script tentang Data Penerimaan Mahasiswa Baru diatas. Lalu tambahkanlah rumus Goto XY dan tentukan baris dan kolomnya.

Uses crt;
var npm, nama, kode :string;

begin
clrscr;
writeln;
goto xy (10,11);writeln('DATA PENERIMAAN MAHASISWA BARU');
goto xy (10,12);writeln('----------------------------------------------------------');
goto xy (10,13);write   ('NPM                                                   = ');readln(npm);
goto xy (10,14);write   ('Nama Mahasiswa                             = ');readln(nama);
goto xy (10,15);write   ('Kode Jurusan  [TI/MI/TS/PWK]   = ');readln(kode);
if (kode ='TI') then
begin
goto xy (10,16);writeln ('Jurusan        = Teknik Informatika');
end
else if (kode ='MI') then
begin
goto xy (10,16);writeln ('Jurusan       = Manajamen Informatika');
end
else if (kode ='TS') then
begin
goto xy (10,16);writeln ('Jurusan       = Teknik Sipil')
end
else if (kode='PWK') then
begin
goto xy (10,16);writeln ('Jurusan      =Perencanaan Wilayah danKota');
end;
goto xy (10,17);writeln('--------------------------------------------------------------');
readln;
end.


Terlihat seperti itulah cara untuk mamasukkan rumus Goto XY.
untuk keterangan : Bahwa pada saat memasukkan rumus if yang mana fungsinya adalh menampilkan hasil tergantung yang kita input dalam program, penggunaan rumus Goto XY haruslah berada dalam baris dan Kolom yang sama, agar jika diinput pada program nantinya akan keluar hasil yang tepat.


Jika dilihat dalam Program yang sudah jadi maka hasilnya akan seperti dibawah ini dan jangan sungkan untuk mencobanya ya, ini ilmu.. hehehe


Baca Juga :

Langkah Membuat Program Perbandingan Nilai angka Di Turbo Pascal 7

 Screenshootnya seperti dibawah ini :

Terlihat Bahwa Tata Letak Program diatas Menjadi Lebih sedikit Menengah bukan ??
hehehe, Cukup anda Coba dan jangan menyerah dengan Pemrograman, Karna ini baru dasarnya SOB ..
Terimakasih dan Sampai jumpa..

Tweet

Sign up here with your email address to receive updates from this blog in your inbox.