PASCAL Ekran Komutları - II

Ekrana yazılacak yazının rengini belirlemek için kullanılır. 0 ile 15 arasındaki renkler yukarıda verilmiştir. 16 ile 31 arası renkler ise bu renklerin yanıp sönen halidir. Yani 2 nolu renk yeşil 18 nolu renk ise yanıp sönen yeşildir.


Ö) TEXTBACKGROUND (Procedure):

TEXTBACKGROUND(renk no);

Ekrana yazılacak yazının zemin rengini ayarlamak için kullanılır.


P) TEXTMODE (Procedure):

TEXTMODE(mod);

Kullanılabilir modlar(Sütun x Satır):
BW40 veya 0 {40x25 siyah/beyaz CGA}
CO40 veya 1 {40x25 renkli CGA}
BW80 veya 2 {80x25 siyah/beyaz CGA}
CO80 veya 3 {80x25 renkli CGA }
Mono veya 7 {80x25 siyah/beyaz MDA veya HGC }
Font 8x8 veya 256 {80x43/80x50 EGA/VGA}

Monitör modunu değiştirmek için kullanılır. Böylece ekranın satır ve sütun sayısı ayarlanabilir. Buna bağlı olarak da font büyüklüklerinde de değişiklikler olur.


R) LASTMODE (Function):

LASTMODE;

Aktif durumda olan text modunu bulmak için kullanılır. Sonuç integer tipindedir.


S) CURSORTO (Procedure):

CURSORTO(X,Y);

İmleci belirtilen koordinatlara taşır. GotoXY gibi çalışır fakat tek farklılıkları bu komut için ekranın sol üst köşesinin koordinatı 0,0 dır.


Ş) SCROLLTO (Procedure):

SCROLLTO(X,Y);

Ekranın sol üst köşesi verilen X ve Y koordinatları yeni 0,0 noktası olacak şekilde kaymasını sağlar.


T) INIWINCRT (Procedure):

INITWINCRT;

Manuel olarak bir pencere açmanızı sağlar. Aslında bu komutu kullanmanıza gerek yoktur çünkü Read ve Write gibi komutları kullandığınızda zaten bir pencere açılmış olur.

Uses strings,wincrt,windos;
Begin
StrCopy(Windowtitle,’InıtWinCrt komutuyla acilmis pencere’);
Writeln(‘Bu pencereyi biz actik.’);
Initwincrt;
End.
// dediğim gibi bu komutu pek sık kullanmanız gerekmeyecek.


U) DONEWINCRT (Procedure):

DONEWINCRT;

Açılan program penceresini kapatmak için kullanılır. Aksi halde program bitse bile pencere açık kalacaktır ve bu pencereyi kullanıcının kapatması gerekecektir. (Windows ‘ta açılan bir DOS penceresini düşünün.)

uses WinCrt;
begin
Writeln('bu bir pencere.');
Writeln('enter tusuna basin ve pencere kapansin.');
Readln;
DoneWinCRT;
End.



V) READBUF (Function):

READBUF(tampon,sayı);

Önceden belirlenmiş tampon büyüklüğünden iki karakter eksik olmak üzere, kullanıcının belirtilen sayı kadar karakter girebilmesini sağlar. İki karakterlik eksikliğin nedeni girişlerin sonuna otomatik olarak eklenen satır sonu(#13#10) karakterleridir. Tampon olarak seçilen değişken pchar tipinde olmalıdır.

Uses wincrt;
Var
c: pchar;
begin
c:='123456';
writeln('4 karakter girin:');
readbuf(c,6);
writeln('sunu girdiniz: ');
writeln(c);
end.



Komutları kullanmadan önce aşağıdaki tabloyu iyice incelemenizi tavsiye ederim. Çünkü bu komutların bazılar sadece CRT, bazılar sadece WINCRT bazıları ise hem CRT hem de WINCRT unitinde bulunmaktadır. Eğer unit içinde bulunmayan bir komut kullanırsanız doğal olarak derleme sırasında hata alırsınız. Ayrıca WINCRT unitinde renk ve ses düzenleme ile ilgili komutlar bulunmaz.

[/center]