Ўзбекистон Республикаси Олий ва Ўрта Махсус таълим вазирлиги Фаргона политехника институти

3.21Экранни тозалаш

ClrScr, ClrEol, DelLine, InsLine,
ClrScr - Экранни ёки жорий дарчани тула тозалаб, курсорни экраннинг чап юкори бурчагига урнатади (1,1 координаталар).


ClrEol - курсор турган жойдан бошлаб сатр охиригача турган хамма белгиларни учиради.


DelLine - курсор турган катордаги хамма маълумотларни учиради, пастдаги хамма каторлар битта позиция юкорига кутарилади.


InsLine - курсор турган жойда буш каторни экран позициясига кушади, пастдаги хамма каторлар битта позиция пастга тушади.

3.22Курсорни бошкариш

Курсорни бошкариш, курсор координаталари

Write процедураси курсорни экран буйлаб силжитиш вазифасини бажаради.

Ахборотни чикариш пайтида курсорни экраннинг хохлаган позициясига йуналтириш учун Turbo Pascal тилида махсус мосламалардан фойдаланилади.

GoToXY(X,Y:byte)

Бу процедура курсорни Х (устун) ва У(катор) координаталарида берилган позицияга силжитади.

Мисол.

ClrScr; { Экранни тозалаш}
GoToXY(33,4); {курсорни 4- катор марказига жунатиш }
Write('Бошкарувчи дастур');

Функции WhereX: byte и WhereY: byte функциялари жорий дарчага нисбатан X- ёки Y-курсор координаталари кийматларини аниклашга ёрдам беради.

Мисол.

Write('Курсор устунда жойлашган ',WhereX);
Write('Курсор каторда жойлашган ',WhereY);

Работу GoToXY нинг ишлаш принципини куйидаги дастур мисолида куриб чиамиз.

PROGRAM DemoCrt;

USES Crt;
VAR
Row, Col : byte;
BEGIN
ClrScr;
Col := 1;
FOR Row := 1 TO 25 DO BEGIN
GoToXY(Col,Rov);
write('Диоганал буйича чикариш');
Col := Col+2
END;
FOR Row := 1 TO 25 DO Delay(100); { Ушлаб туриш }
Col:=6;
FOR Row := 1 TO 25 DO BEGIN
GoToXY(Col,Rov);
ClrEol; { ClrEol буйича тозалаш}
Write('Узиб олиб ташлаш);
Col := Col+2;
END;
END. { DemoCrt }

Дастурда DemoCrt командаси хамма операциялар бажарилишида, экранда курсорни жойлашувини узгартиради.