|
Pascal'da Ekran Komutları:
|
Komut Adı
|
Görevi
|
Kullanılışı
|
|
Clrscr
|
Ekranı Temizleme Komutu
|
ClrScr;
|
|
GotoXY
|
İmleci Konumlandırma
|
GotoXY(5,7)
|
|
TextColor
|
Metin Rengi
|
TextColor(6)
|
|
TextBackgraund
|
Metnin arkaplan rengi
|
TextBackColor(7)
|
|
Readkey
|
Klavyeden basılan tuş kontrolü
|
Tus:Char
Tus:=readkey
|
|
KeyPressed
|
Klavyeden bir tuşa basılıncaya kadar işlemlere devam eder
|
Keypressed
|
|
window
|
Ekranda yeni bir pencere oluşturur
|
Window(x1,y1,x2,y2)
|
|
delay
|
Programın belirtilen süre kadar beklemesini sağlar
|
Delay(süre)
Süre:milisaniye
5000 =5 saniye
|
|
Delline
|
İmlecin bulunduğu satırı siler
|
Delline
|
|
insline
|
İmlecin bulunduğu satırdan itibaren ekranı bir aşağı kaydırı
|
İnsline
|
|
highvideo
|
Metnin parlak yazılmasını sağlar
|
Highvideo
|
|
lowvideo
|
Metnin mat yazılmasını sağlar
|
lowvideo
|
|
normvideo
|
Metnin normal parlaklıkta yazılmasını sağlar
|
Normvideo
|
|
Clreol
|
İmlecin bulunduğu yerden satır sonuna kadar siler
|
Clreol
|
|
sound
|
Verilen frekansta ses üretir
|
Sound(frekans)
|
Örnek Program Kosegen_uzerinde_MYO_Yazdirma;
uses crt;
Var
i:integer;
Begin
clrscr;
for i:=1 to 30 do
begin
gotoXY(i,i);
highvideo;write('MYO');
sound(i*100);
delay(12000);
gotoxy(i+5,i);
lowvideo;write('myo');
end;
nosound;
readln;
end.
örnek-2
Program Alarm_sesi;
uses crt;
var
i:integer;
begin
repeat
for i:=400 to 700 do
begin
sound(i);
delay(3);
end;
nosound;
delay(500);
until keypressed;
end. > |
|