Bedava forum kurmaya hazir misin ? | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Ücretsiz blogunuzu yaratın
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 PASCAL DERSLERI 8

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: PASCAL DERSLERI 8   Cuma Ağus. 08, 2008 5:57 pm

Gotoxy:
Simdiye kadar yaptigimiz programlarda hep ekranin sol üst kösesinden baslayarak bilgileri yazdirdik. Ancak sizin de akliniza "Yahu bu ekranin istedigimiz yerine bir seyler yazdiramaz miyiz?" sorusunuz geldigini tahmin ediyorum. Pascal'da ekranin istenilen yerine gitmek için gotoxy komutu kullanilir. "Gitmek" ten kastim imleci istenilen yere götürmektir. Zaten ekrana write ile bir seyler yazarken imlecin bulundugu yerden itibaren yazildigini söylemistik. Bu komutun kullanimi

gotoxy(X,Y);
seklindedir. Burada X yerine kaçinci kolona gidilmesi isteniyorsa o kolonun numarasi, Y yerine ise kaçinci satira gidilmesi isteniyorsa o satirin numarasi yazilir. Normal bir ekranda 80 kolon ve 24 satir (25'e çikartilabilir) vardir. Gotoxy komutunu kullanirken buna dikkat etmelisiniz. Yani gotoxy(83,12); komutunu yazarsaniz büyük olasilikla istediginiz görüntüyü elde edemezsiniz! Bu komut genelde write ifadesinden önce kullanilir. Zaten amaci da ekranin istenilen yerine yazi yazdirmak degil mi? Bir örnek yapalim:

Program git_bakalim;
uses crt;
begin clrscr;
gotoxy(30,13);write('www.kalkan.cjb.net');
readln;
end.
gotoxy(X,Y); komutunda X ve Y yerine degisken de koyabiliriz. Tabii ki bir tam sayi tipli degisken (byte, integer, longint.. gibi). Bu durumda degiskenin degeri neyse ona göre islem yapilir. Mesela küçük bir program yapalim:

Program citir;
uses crt;
var
x,y:byte;
ad:string;
begin clrscr;
write('Adiniz: ');readln(ad);
write('X kordinati: ');readln(x);
write('Y kordinati: ');readln(y);
clrscr;
gotoxy(10,23);
write('Bu program Seckin YASTIKCILAR tarafindan yapildi!');
gotoxy(x,y);
write(ad);
readln;
end.
Gotoxy komutunu programlarimizin içinde sikça kullanacagiz.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
PASCAL DERSLERI 8
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: