GOTOXY
GOTOXY(X,Y)
Pada postingan sebelumnya ada beberapa program yang menggunakan statement gotoxy. Sebenarnya statement itu fungsinya untuk apa sih? Pingin tau? Baca terus tulisan dibawah ini.
Statement gotoxy merupakan statement yang digunakan untuk mengubah penunjukkan kursor aktif di suatu media layar tertentu.Layar monitar di ibaratkan :
———–> sumbu X
|
|
|
|
Sumbu Y
|
|
|
|
Sumbu Y
Monitor biasanya mengenal dua modus yaitu :
Graphis : layar yang berinteraksi ke pixel (pixcel element), biasanya windows, dll
DOS : Layar yang memiliki 24 Baris (Y) dan 80 colom (X)
Graphis : layar yang berinteraksi ke pixel (pixcel element), biasanya windows, dll
DOS : Layar yang memiliki 24 Baris (Y) dan 80 colom (X)
nah : jika perintah di PASCAL seperti berikut ini :
GOTOXY (30, 10) ; Write (‘ITS’) ;
Statement ini bertujuan untuk memindahkan kursor ke posisi kolom 30 dan baris 10, sehingga pada posisi tersebut akan di tempatkan tulisan ITS.
Tujuan dari pemakaian perintah GOTOXY ini untuk mempermudah dalam melakukan perancangan terhadap layar keluaran, bukan hanya memulai dari kolom ke 1 saja, tetapi bisa di lakukan pada kolom tengah tengah layar.
Dengan menggunakan GOTOXY ini kita hanya cukup menuliskan perintah Write, tidak perlu WRITELN.
Contohnya :
Gotoxy(30,10) ; write('MENENTUKAN GAJI PEGAWAI ');
Gotoxy(30,11) ; write('=========================');
Gotoxy(30,12) ; write ('Nama Pegawai : ' );
Gotoxy(30,13) ; write ('status [1] TETAP / [2] HONOR : ' );
Gotoxy(30,14) ; write ('Golongan [1/2/3] : ' );
Gotoxy(30,15) ; write ('=========================');
Gotoxy(55,12) ; Readln (Nama) ;
Gotoxy(55,13) ; Readln (Status)
Gotoxy(55,14) ; Readln (Gol) ;
Ini nih contoh program yang menggunakan gotoxy
Program bangun_ruang;
uses wincrt;
var
pilihan:byte;
i,o,z,n,q:integer;
s,p,l,t,r,u,x,y,a,b,c,volume:real;
lagi,v:char;
label kembali;
begin
kembali:
clrscr;
gotoxy(20,3); writeln(' <<< program mencari volume bangun ruang >>>');
gotoxy(20,4); writeln(' ========================================= ');
gotoxy(20,7); writeln(' <<< PILIHAN >>>');
gotoxy(20,10); writeln(' 1. Menghitung volume kubus!');
gotoxy(20,11); writeln(' 2. Menghitung volume balok!');
gotoxy(20,12); writeln(' 3. Menghitung volume tabung!');
gotoxy(20,13); writeln(' 4. Menghitung volume kerucut!');
gotoxy(20,14); writeln(' 5. Menghitung volume bola!');
gotoxy(20,18); write(' pilih nomer berapa {1-5} ? ');readln(pilihan);
clrscr;
case pilihan of
1: begin
gotoxy(30,10);write ('sisi kubus ? ');readln(s);
volume:=s*s*s;
writeln;
gotoxy(30,12);writeln('volume kubus = ',volume:9:2);
end;
2: begin
gotoxy(30,8);write ('panjang sisi balok ? ');readln(p);
gotoxy(30,9);write ('lebar sisi balok ? ');readln(l);
gotoxy(30,10);write ('tinggi sisi balok ? ');readln(t);
volume:=p*l*t;
writeln;
gotoxy(30,12);writeln('volume balok = ',volume:9:2);
end;
3: begin
gotoxy(30,9);write ('jari_jari alas tabung ? ');readln(r);
gotoxy(30,10);write ('tinggi tabung ? ');readln(u);
volume:=pi*r*r*u;
writeln;
gotoxy(30,12);writeln('volume tabung = ',volume:9:2);
end;
4:begin
gotoxy(30,9);write ('jari_jari alas kerucut ? ');readln(x);
gotoxy(30,10);write ('tinggi kerucut ? ');readln(y);
volume:=pi*x*x*y/3;
writeln;
gotoxy(30,12);writeln('volume kerucut = ',volume:9:2);
end;
5:begin
gotoxy(30,10);write ('jari_jari bola ? ');readln(a);
volume:=4/3*pi*a*a*a;
writeln;
gotoxy(30,12);writeln('volume bola = ',volume:9:2);
end;
else
begin
gotoxy(25,8);writeln('pilihan hanya {1,2,3,4 atau 5}');
gotoxy(10,10);writeln('ente tadi pilih nomer berapa ? yang bener dong milihnya!!!!! :P');
end;
end;
gotoxy(30,14);write('lanjutkan (y/n) ? ');readln (v);
if (v='y')then begin goto kembali end
else
begin
clrscr;
o:=20;z:=7;
n:=61;q:=7;
for i:=1 to 14 do
begin
gotoxy(o,z);writeln('*');
gotoxy(n,q);writeln('*');
z:=z+1;
q:=q+1;
end;
gotoxy(23,7);write('==================================== ');
gotoxy(23,8);write('<<< program indra_17 elektro 2010 >>> ');
gotoxy(23,9);write('<<< mencari volume bangun ruang >>> ');
gotoxy(23,10);write('==================================== ');
gotoxy(34,14);write('terima kasih');
gotoxy(23,20);write('==================================== ');
end;
end.
uses wincrt;
var
pilihan:byte;
i,o,z,n,q:integer;
s,p,l,t,r,u,x,y,a,b,c,volume:real;
lagi,v:char;
label kembali;
begin
kembali:
clrscr;
gotoxy(20,3); writeln(' <<< program mencari volume bangun ruang >>>');
gotoxy(20,4); writeln(' ========================================= ');
gotoxy(20,7); writeln(' <<< PILIHAN >>>');
gotoxy(20,10); writeln(' 1. Menghitung volume kubus!');
gotoxy(20,11); writeln(' 2. Menghitung volume balok!');
gotoxy(20,12); writeln(' 3. Menghitung volume tabung!');
gotoxy(20,13); writeln(' 4. Menghitung volume kerucut!');
gotoxy(20,14); writeln(' 5. Menghitung volume bola!');
gotoxy(20,18); write(' pilih nomer berapa {1-5} ? ');readln(pilihan);
clrscr;
case pilihan of
1: begin
gotoxy(30,10);write ('sisi kubus ? ');readln(s);
volume:=s*s*s;
writeln;
gotoxy(30,12);writeln('volume kubus = ',volume:9:2);
end;
2: begin
gotoxy(30,8);write ('panjang sisi balok ? ');readln(p);
gotoxy(30,9);write ('lebar sisi balok ? ');readln(l);
gotoxy(30,10);write ('tinggi sisi balok ? ');readln(t);
volume:=p*l*t;
writeln;
gotoxy(30,12);writeln('volume balok = ',volume:9:2);
end;
3: begin
gotoxy(30,9);write ('jari_jari alas tabung ? ');readln(r);
gotoxy(30,10);write ('tinggi tabung ? ');readln(u);
volume:=pi*r*r*u;
writeln;
gotoxy(30,12);writeln('volume tabung = ',volume:9:2);
end;
4:begin
gotoxy(30,9);write ('jari_jari alas kerucut ? ');readln(x);
gotoxy(30,10);write ('tinggi kerucut ? ');readln(y);
volume:=pi*x*x*y/3;
writeln;
gotoxy(30,12);writeln('volume kerucut = ',volume:9:2);
end;
5:begin
gotoxy(30,10);write ('jari_jari bola ? ');readln(a);
volume:=4/3*pi*a*a*a;
writeln;
gotoxy(30,12);writeln('volume bola = ',volume:9:2);
end;
else
begin
gotoxy(25,8);writeln('pilihan hanya {1,2,3,4 atau 5}');
gotoxy(10,10);writeln('ente tadi pilih nomer berapa ? yang bener dong milihnya!!!!! :P');
end;
end;
gotoxy(30,14);write('lanjutkan (y/n) ? ');readln (v);
if (v='y')then begin goto kembali end
else
begin
clrscr;
o:=20;z:=7;
n:=61;q:=7;
for i:=1 to 14 do
begin
gotoxy(o,z);writeln('*');
gotoxy(n,q);writeln('*');
z:=z+1;
q:=q+1;
end;
gotoxy(23,7);write('==================================== ');
gotoxy(23,8);write('<<< program indra_17 elektro 2010 >>> ');
gotoxy(23,9);write('<<< mencari volume bangun ruang >>> ');
gotoxy(23,10);write('==================================== ');
gotoxy(34,14);write('terima kasih');
gotoxy(23,20);write('==================================== ');
end;
end.
Sumber :
0 komentar:
Posting Komentar