OBJECTS (Методичка С++), страница 4

Рис. 2.3. Окно ввода имени файла.

При выборе пункта «Добавление записей» на экране должна появиться форма ввода записей (см. Рис. 2.4), которая содержит поля ввода и локальное меню. После завершения добавления записей мы вновь должны вернуться в главное меню.

При выборе пункта «Поиск телефона» на экране должна появляться форма поиска записей (см. Рис. 2.5), которая содержит поле ввода фамилии, поле вывода телефона и локальное меню. После завершения поиска мы вновь должны вернуться в главное меню.

Выход из системы должен выполняться при выборе соответствующего пункта меню или при нажатии клавиши Esc.

Рис. 2.4. Форма ввода записей. Рис. 2.5. Форма поиска записей.

По результатам анализа оконных представлений составим иерархию объектов (см. Рис. 2.6). При этом постараемся разработать как можно более универсальные представления, которые можно будет настроить на реальные формы.

Рис. 2.6. Иерархия объектов для создания меню.

Основное окно иерархии - окно со строкой текста Twin (см. Рис.2.7а). От этого объекта наследуются остальные. Кроме того, он многократно входит в окна иерархии, позволяя создавать нужные формы. В объектах-потомках строка текста становится заголовком окна или полем ввода в зависимости от вида использования. Объект включает поля, определяющие параметры окна на экране и параметры текста в окне. Метод Draw используется для отображения окна на экране, а метод SetAttr - для изменения цвета фона и цвета символов.

TInput - пассивное окно ввода (см. Рис. 2.7 б), которое закрывается, если требуемая информация введена правильно (Error - метод проверки ввода). Ввод информации осуществляется на место текста во внутреннем окне Inp (метод Input). Объект также содержит процедуру очистки поля ввода Clear.

TMessage - активное окно сообщения (см. Рис. 2.7 в), ожидающее нажатия любой клавиши (метод Run). Внутреннее окно - кнопка Ok. Метод Show используется для отображения окна на экране (без очистки экрана). Метод Enter- пустой.

TMenu - также активное окно, которое требует выбора нужного пункта меню (см. Рис. 2.8 г). Само меню может содержать не более 10 пунктов и задается специальным массивом окон masalt типа Twin. Конкретное количество пунктов определяется nalt, а текущий номер пункта хранится в npos. Метод Show используется для отображения окна на экране (со стиранием предыдущей картинки), метод Run реализует выбор пункта, а метод Enter (заменяемый) осуществляет обработку выбора пункта меню (при нажатии клавиши Enter).

TForm - активное окно - форма, содержащая настраиваемые поля ввода masinp типа TInput (не более 10), количество которых указано в ninput, и меню, наследуемое от TMenu (см. Рис. 2.7 д). Объект имеет собственные методы Show и Enter и содержит методы, выполняющие операции ввода - Input и очистку полей ввода - Clear.

Риc. 2. 7. Библиотечные оконные формы.

При реализации объектов те методы, которые будут зависеть от конкретной задачи, программируются не содержащими действий. Предполагается, что они будут заменяться при наследовании объекта от библиотечного.

Пример 13. Библиотека объектов для создания меню программы "Записная книжка".

Unit Menu;

Interface

Uses crt;

Type str80=string[80];

{ ************* Окно с текстом ***********************}

TWin=Object

x1,y1,x2,y2:integer; {координаты окна}

attr:integer; {атрибут}

xt,yt:integer; {начало текста}

text:str80; {строка текста}

constructor Init(ax1,ay1,ax2,ay2,aattr,axt,ayt:integer;atext:str80);

procedure SetAttr(aattr:integer); {изменение цвета и фона окна}

procedure Draw; {рисование окна на экране}

end;

{ ************* Окно ввода **********************}

Type TInput=Object(TWin)

Inp:TWin; {окно ввода}

constructor Init(ax1,ay1,ax2,ay2,aattr,axt,ayt:integer;atext:str80;

bx1,by1,bx2,by2,battr,bxt,byt:integer;btext:str80);

procedure Clear; {очистка поля ввода}

procedure Input; {ввод строки из окна}

function Error:boolean;virtual; {проверка введенной информ.}

procedure Draw;virtual; {рисование окна}

end;

{ *************** Окно сообщения *****************}

Type TMessage=Object(TWin)

Ok:TWin; {кнопка}

procedure Enter;virtual; {при нажатии на Enter ...}

procedure Run;virtual; {процедура выбора из меню}

procedure Show;virtual; {показать окно (наложить)}

constructor Init(ax1,ay1,ax2,ay2,aattr,axt,ayt:integer;atext:str80;

bx1,by1,bx2,by2,battr,bxt,byt:integer;btext:str80);

end;

{ ***************** Окно меню ********************}

Type TMenu=Object(TMessage)

nalt:integer; {количество альтернатив в меню}

masalt:array[1..10] of TWin; {массив альтернатив меню}

npos:integer; {номер выбранной альтернативы}

procedure Show;virtual; {показать окно (наложить)}

procedure Enter;virtual; {при нажатии на Enter ...}

procedure Run;virtual; {процедура выбора из меню}

constructor Init(ax1,ay1,ax2,ay2,aattr,

axt,ayt:integer;atext:str80;n:integer;Var p);

end;

{ ****************** Окно формы *******************}

Type TForm=Object(TMenu)

ninput:integer; {количество полей ввода}

masinp:array[1..10] of TInput; {массив полей ввода}

procedure Enter;virtual; {при нажатии на Enter ...}

procedure Show;virtual; {показать окно (наложить)}

procedure Clear; {очистка окон ввода}

procedure Input; {ввод информации из окон ввода}

constructor Init(ax1,ay1,ax2,ay2,aattr,axt,ayt:integer;atext:str80;

n:integer;Var p1;k:integer;Var p2);

end;

Implementation {Реализация методов}

{ ************* Окно с текстом ***********************}

Constructor TWin.Init;

Begin x1:=ax1; y1:=ay1;

x2:=ax2; y2:=ay2;

attr:=aattr;

xt:=axt; yt:=ayt;

text:=atext;

End;

Procedure TWin.Draw;

Begin Window(x1,y1,x2,y2);

TextBackGround(attr div 16);

TextColor(attr mod 16);

Clrscr;

Gotoxy(xt,yt);

Write(text);

end;

Procedure TWin.setattr;

Begin attr:=aattr;

Draw;

end;

{ ************* Окно ввода **********************}

Constructor TInput.Init;

Begin TWin.Init(ax1,ay1,ax2,ay2,aattr,axt,ayt,atext);

Inp.Init(bx1,by1,bx2,by2,battr,bxt,byt,'');

end;

Procedure TInput.Clear;

begin Inp.text:='';

Inp.Draw;

End;

Procedure TInput.Input;

Begin Window(Inp.x1,Inp.y1,Inp.x2,Inp.y2);

TextBackGround(Inp.attr div 16);

TextColor(Inp.attr mod 16);

repeat

Gotoxy(Inp.xt,Inp.yt);

Clear;

Readln(Inp.text);

Gotoxy(Inp.xt,Inp.yt);

Write(Inp.text);

until not Error;

end;

Function TInput.Error:boolean;

begin Error:=false; end;

Procedure TInput.Draw;

Begin TWin.Draw;

Inp.Draw;

End;

{ *************** Окно сообщения *****************}

Constructor TMessage.Init;

Begin TWin.Init(ax1,ay1,ax2,ay2,aattr,axt,ayt,atext);

Ok.Init(bx1,by1,bx2,by2,battr,bxt,byt,btext);

End;

Procedure TMessage.Run;

Var ch1,ch2:char;

temp:integer;

Begin Ok.setattr(91);

ch1:=readkey;

Enter;

End;

Procedure TMessage.Enter;

Begin end;

Procedure TMessage.Show;

Begin

TWin.Draw;

Ok.Draw

end;

{ ***************** Окно меню ********************}

Constructor TMenu.Init;

Var w:array[1..10] of TWin absolute p;

i:integer;

Begin TWin.Init(ax1,ay1,ax2,ay2,aattr,axt,ayt,atext);

nalt:=n;

for i:=1 to nalt do

masalt[i].Init(w[i].x1,w[i].y1,w[i].x2,w[i].y2,

w[i].attr,w[i].xt,w[i].yt,w[i].text);

End;

Procedure TMenu.Show;

Var i:integer;

Begin Window(1,1,80,25); { очищаем экран}

TextBackGround(0);

TextColor(1);

Clrscr;

TWin.Draw;

for i:=1 to nalt do masalt[i].Draw;

End;

Procedure TMenu.Run;

Var ch1,ch2:char;

temp:integer;

Begin npos:=nalt;

repeat

masalt[npos].Setattr(71);

ch1:=Readkey; {читаем код клавиши}

if ch1=#0 then ch2:=Readkey;

case ch1 of

#0:case ch2 of

#75:begin temp:=npos-1; {влево}

if temp=0 then temp:=nalt; {закольцовываем}

masalt[npos].Setattr(113); {убрать выделение}

masalt[temp].Setattr(71); {выделить пункт}

npos:=temp;

end;

#77:begin temp:=npos+1; {вправо}

if temp=nalt+1 then temp:=1; {закольцовываем}

masalt[npos].Setattr(113); {убрать выделение}

masalt[temp].Setattr(71); {выделить пункт}

npos:=temp;

end;

end;

#13:Enter; {Enter}

end

until((npos=nalt)and(ch1=#13))or(ch1=#27);

Window(1,1,80,25); {возвращаем стандартный режим}

TextBackGround(0);

TextColor(7);

Clrscr;

End;

Procedure TMenu.Enter;

Begin end;

{ ****************** Окно формы *******************}

Constructor TForm.Init;

Var w1:array[1..10] of TWin absolute p1;

w2:array[1..10] of TInput absolute p2;

i:integer;

Begin TWin.Init(ax1,ay1,ax2,ay2,aattr,axt,ayt,atext);

nalt:=n;

ninput:=k;

for i:=1 to nalt do

masalt[i].Init(w1[i].x1,w1[i].y1,w1[i].x2,w1[i].y2,

w1[i].attr,w1[i].xt,w1[i].yt,w1[i].text);

for i:=1 to ninput do

masinp[i].Init(w2[i].x1,w2[i].y1, w2[i].x2,w2[i].y2,w2[i].attr,

w2[i].xt,w2[i].yt,w2[i].text, w2[i].inp.x1,w2[i].inp.y1,

w2[i].inp.x2,w2[i].inp.y2, w2[i].inp.attr,

w2[i].inp.xt,w2[i].inp.yt,w2[i].inp.text);

End;

Procedure TForm.Show;

Var i:integer;

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

TextBackGround(0);

TextColor(7);

Clrscr;

TWin.Draw;

for i:=1 to nalt do masalt[i].Draw;

for i:=1 to ninput do masinp[i].Draw;

End;

Procedure TForm.Clear;

Var i:integer;

Begin

for i:=1 to ninput do masinp[i].Clear;

End;

Procedure TForm.Input;

Var i:integer;

Begin

for i:=1 to ninput do masinp[i].Input;

End;

Procedure TForm.Enter;

Begin End;

End.

Рассматриваемый пример предполагает работу с файлом. Для удобства программирования создадим объект «База данных», который будет включать все поля и методы, необходимые для работы с файлом строк.

Пример 14. Описание базы данных для программы «Записная книжка».

Unit Basa;

Interface

Type

str80=string[80];

TBase=Object

f:file of str80; {файловая переменная}

filename:str80; {имя файла}

family:str80; {буфер для хранения фамилии}

telefon:str80; {буфер для хранения телефона}

Procedure BWrite(fam,tel:str80);{запись в файл}

Procedure BRead(fam,tel:str80); {чтение из файла}