Процедуры и функции модуля Crt

Program ex_06;

Обзор примеров программ

TextColor(0..15)

TextBackGround(0..7)

Window(x1,y1,x2,y2);

Модуль CRT - средства работы с экраном, клавиатурой и др.

Лекция 13

T7TPLFIX.EXE - утилита в BIN. Экран 80х25

ClrScr - очистка текущего окна (закраска цветом фона)

GotoXY(x,y) - позиционирование курсора.

WereX, WereY - возвращают позиции курсора по вертикали и горизонтали.

Delay(M:word) - задержка в миллисекундах.

Sound(G:word) - частота в герцах.

NoSound - выключение динамика.

KeyPressed: boolean;

ReadKey: char;

Очистка буфера клавиатуры:

while KeyPressed do c:=ReadKey;

{Ex_01} - День недели по дате (ранее разобран)

{Ex_02}- Symplest scanner (ранее разобран)

program DemoCRT; {Ex_03}

uses CRT;

Const

S1=' Конец pаботы ';

S2=' Работа 1 ';

S3=' Работа 2 ';

Col=15; Fon=0;

FonInv=Col; ColInv=Fon;

var

ActivStr:integer;

c:char;

Procedure OverWrite;

begin

GotoXY(4,ActivStr);

Case ActivStr of

7 : write(S1);

8 : write(S2);

9 : write(S3);

end

end;

Procedure Wind(k:integer);

begin

OverWrite;

ActivStr:=ActivStr+k;

if ActivStr<7 then ActivStr:=9;

if ActivStr>9 then ActivStr:=7;

TextBackGround(FonInv);TextColor(ColInv);

OverWrite;

TextBackGround(Fon);TextColor(Col);

end;

begin

Activstr:=9;

while TRUE do

begin

TextBackGround(Fon); TextColor(Col);

ClrScr;

GotoXY(10,3);

Writeln('PROGRAM DEMO CRT');

GotoXY(10,5); Writeln(' основное меню');

GotoXY(4,7); WRITE(S1);

GotoXY(4,8); WRITE(S2);

GotoXY(4,9); WRITE(S3);

WIND(0);

repeat

c:=ReadKey;

if c=#0 then

begin

c:=ReadKey;

if c=#72 then WIND(-1);

if c=#80 then WIND(1);

end;

until c=#13;

case ActivStr of

0 :;

7 :begin ClrScr;writeln(S1);Delay(1000);Halt; end;

8 :begin ClrScr;writeln(S2);Delay(1000); end;

9 :begin ClrScr;writeln(S3);Delay(1000); end;

end;

ClrScr;

end;

end.

{УСТАHОВКА ЦВЕТА}

uses Crt;

var Fon,Col,ColD,FonInv,ColInv,ColInvD:byte; OldC:byte;

procedure Frame(i1,j1,i2,j2:integer);

var i,j:integer;

begin

if (i1 < 1) or (i2 > 80) or (i1 >= i2) or

(j1 < 1) or (j2 > 25) or (j1 >= j2) then exit;

GotoXY(i1,j1);

write('г');for i:=i1 + 1 to i2 - 1 do

write('=');write('¬');

for j:=j1 + 1 to j2 - 1 do

begin GotoXY(i1,j);write('¦');

GotoXY(i2,j);write('¦')

end;

GotoXY(i1,j2);

write('L');for i:=i1 + 1 to i2 - 1 do

write('=');write('-');

GotoXY(i2 - 1,j1 + 1)

end;

procedure MySetColor(var Fon,Col,ColD,FonInv,ColInv,ColInvD:byte);

var c:char;

begin

ClrScr; Writeln('УСТАHОВКА ЦВЕТА ДЛЯ МЕHЮ И ПАHЕЛЕЙ');

Writeln('клавиша ц в е т ');

Writeln('c основной цвет ');

Writeln('v выделенный цвет ');

Writeln('f цвет фона ');

Writeln('i инверсный основной цвет ');

Writeln('j инверсный выделенный цвет');

Writeln('g инверсный цвет фона ');

begin

Writeln('Hажмите <ENTER> после установки');

Frame(2,10,41,15); Window(3,11,40,14);

repeat

TextBackGround(FonInv); ClrScr;

TextBackGround(Fon);

TextColor(Col);Write(' Основной текст ');

TextColor(ColD );

Write (' Выделенный цвет ');

TextBackGround(FonInv);

TextColor(ColInv );

Write (' Инвеpсный основной текст ');

TextColor(ColInvD);

Write('Инвеpсный выделенный текст ');

c:=ReadKey;

case c of

'f': Fon :=(Fon+1) mod 8;

'g': FonInv :=(FonInv+1) mod 8;

'c': Col :=(Col+1) mod 16;

'v': ColD :=(ColD+1) mod 16;

'i': ColInv :=(ColInv+1) mod 16;

'j': ColInvD:=(ColInvD+1) mod 16;

else;

end

until c=#13;

TextBackGround(Fon);

TextColor(Col );

end;

TextBackGround(0);

TextColor(15);

OldC:=TextAttr;

Fon:=0;Col:=15;ColD:=14;FonInv:=7;

ColInv:=0;ColInvD:=1;

MySetColor(Fon,Col,ColD,FonInv,ColInv,ColInvD);

Window(1,1,80,25);ClrScr;

writeln('Установлены цвета:');

writeln(' Fon Col ColD FonInv ColInv ColInvD');

writeln(Fon:7,Col:7,ColD:7,FonInv:7,ColInv:7,ColInvD:7);

repeat until KeyPressed;

TextAttr:=OldC

end.

***********************************

CheckBreak: (Boolean)

Controls user termination of an application using the CRT window.

const CheckBreak: Boolean = True;

When CheckBreak is True, the user can terminate the application at any time by pressing Ctrl-Break

CheckEOF: (Boolean)

Controls the end-of-file character checking in the CRT window.

Const CheckEOF: Boolean = False;

When CheckEOF is True, an end-of-file marker is generated when the user presses Ctrl+Z while reading from a file assigned to the CRT window. When CheckEOF is False, pressing Ctrl+Z has no effect.

Функции

KeyPressed - Возвращает True, если на клавиатуре была нажата клавиша, и False в противном случае.

ReadKey - Читает символ с клавиатуры.

WhereX - Возвращает Х координату текущей позиции курсора относительно текущего окна. Х - горизонтальная позиция.

WhereY - Возвращает Y координату текущей позиции курсора относительно текущего окна. Y - вертикальная позиция.

Процедуры

AssignCrt - Назначает текстовый файл на экран.

ClrEol - Удаляет все символы от текущей позиции курсора до конца строки без передвижения курсора.

ClrScr - Очищает экран и помещает курсор в верхний левый угол.

Delay - Задержка на указанное число миллисекунд.

DelLine - Удаляет строку на которой находится курсор и перемещает все строки ниже этой строки на строку вверх. Нижняя строка очищается.

GotoXY - Позиционирует курсор. Х - горизонтальная позиция и Y - вертикальная позиция.

HighVideo - Устанавливает высокую интенсивность символов.

InsLine - Вставляет пустую строку в позиции курсора.

LowVideo - Устанавливает низкую интенсивность символов.

NormVideo - Устанавливает нормальную интенсивность символов.

NoSound - Выключает внутренний громкоговоритель.

Sound - Включает внутренний громкоговоритель.

TextBackground - Устанавливает цвет фона.

TextColor - Устанавливает цвет символов.

TextMode - Устанавливает текстовый режим.

Window - Определяет текстовое окно на экране.