3.3. Заставка (текстовая, графическая)

Заставка является визитной карточкой программы. Она выводится на экран сразу после старта программы и содержит информацию о названии программы, ее назначении, авторе и т.д.

Заставка оформляется как автономная процедура, которая стартует первая в разделе операторов глобального блока, но возможны и другие варианты. Например, операторы, формирующие заставку, могут находиться в разделе операторов глобального блока и составлять единую композицию с главным меню.

Рассмотрим три варианта работы с заставкой (хотя не исключены и другие варианты, порожденные неистощимой фантазией программистов).

Вариант 1:

• очистка экрана;

• вывод заставки на экран;

• удержание заставки на экране в течение фиксированного или неопределенно долгого времени;

• очистка экрана;

• вывод главного меню;

• работа с режимами меню.

Вариант 2:

• очистка экрана;

• одновременный вывод заставки и главного меню;

• работа с режимами меню;

• вывод заставки в любой момент, когда на экране находится главное меню.

Вариант 3:

• очистка экрана;

• вывод меню;

• вывод заставки поверх меню;

• удержание заставки фиксированное или неопределенно долгое время;

• исчезновение заставки и восстановление полной картинки меню;

• работа с меню.

Первый вариант используется чаще, так как при реализации второго часть экрана, занятая заставкой, не может применяться для других, возможно, более полезных целей. Кроме того, наличие лишней информации на экране отвлекает внимание пользователя. Третий вариант практически ничем не отличается от первого, кроме исключения очистки экрана перед выводом меню и восстановления экрана после исчезновения заставки. В данном примере реализуется первый вариант работы с заставкой. При разработке заставки используются самые разнообразные средства: от авторского рисования с помощью средств псевдографики и графики до применения фрагментов, подготовленных с помощью специализированных пакетов.

Пример текстовой заставки с процедурой черчения рамок с использованием псевдографики:

{процедура черчения рамок}

procedure FRAME(x1,y1,x2,y2: integer);

{х1,у1 – корд.левого, а х2,у2 – правого угла рамки}

const

{для черчения двойной линии}

A=#186; B=#187; C=#188;

D=#200; E=#201; F=#205;

{для черчения одинарной линии

A=#179; B=#191; C=#217;

D=#192; E=#218; F=#196;}

var I,j:integer;

begin

clrscr;

gotoxy(x1,y1); {курсор в лев.угол}

write(E);

for i:=(x1+1) to (x2-1) do write(F);

write(B);

for i:=(y1+1) to (y2-1) do

begin

gotoxy(x1,i);

write(A);

gotoxy(x2,i);

write(A)

end;

gotoxy(x1,y2);

write(D);

for i:=(x1+1) to (x2-1) do write(F);

write(C)

end;

procedure zastavka;

begin

textmode(co40);

frame(2,2,40,25);

gotoxy(2,3);

write(‘САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ’);

gotoxy(5,5);

write(‘УНИВЕРСИТЕТ КИНО И ТЕЛЕВИДЕНИЯ’);

textcolor(red);

gotoxy(15,10); write(‘КУРСОВАЯ РАБОТА’);

gotoxy(15,12); write(‘ПО ИНФОРМАТИКЕ’);

gotoxy(20,18); write(‘Выполнил студент’);

gotoxy(20,19); write(‘группы …’);

gotoxy(20,20); write(‘Петров А.И.’);

gotoxy(15,22); write(‘САНКТ-ПЕТЕРБУРГ’);

gotoxy(20,23); write(‘2008’);

raidkey;

clrscr; textmode(co80)

end;

В типовом примере рассмотрена процедура графической заставки.