Розробка інтерфейсу програми з користувачем

5. Розробка інтерфейсу програми з користувачем

Розробка інтерфейсної частини є досить важливим етапом створення програми, оскільки від того наскільки зручним та інтуїтивно зрозумілим буде інтерфейс, може залежати чи обере користувач цю програму, чи програму конкурента.

З появою нових різноманітних програмних виробів вдосконалюється інтерфейс роботи користувача. Інтерфейс – це механізм який допомагає пристрою або програмі взаємодіяти з користувачем.

На даному етапі буде створено інтерфейс програми, котрий повинен бути зручним та функціональним. Програма міститиме три форми, до кожної з них будуть встановлені окремі параметри.

Інтерфейс даної програми складається з загальної форми (рис. 4) на якій знаходяться компоненти:

Button1 – кнопка за допомогою якої можливо зайти в програму.

Button2 – кнопка за допомогою якої можливо переглянути інформацію про програму.

Button3 – кнопка за допомогою якої можливо вийти з програми.

Label1, label2 – надпис.

Рисунок 4 – Форма SerPak після встановлення компонентів

Рисунок 5 – Форма SerPak після встановлення властивостей компонентів

На формі SerPok розміщуються компоненти які зображені на рисунку 6:

Label1, label2 – надпис

StringGrid1 – таблиця у якій відображається масив.

GroupBox1 – згрупована панель, на якій для зручності розміщуються потрібні елементи.

GroupBox2 – згрупована панель, на якій для зручності розміщуються потрібні елементи.

Button1 – кнопка за допомогою якої виконується пошук.

Button2 – кнопка за допомогою якої виконується збереження роботи.

Button3 – кнопка за допомогою якої виконується загрузка даних.

Button4 – кнопка за допомогою якої можливо згенерувати масив.

RadioButton1 – перемикач заповнення масиву автоматично.

RadioButton2 – перемикач заповнення масиву в ручну.

RadioButton3 – перемикач заповнення масиву цифрами.

RadioButton4 – перемикач заповнення масиву буквами.

Edit1 – поле введення. Сюди вводяться елемент який потрібно знайти.

SpinEdit1 – задання кількість стовбців.

SpinEdit2 – задання кількість рядків.

Рисунок 6 – Форма SerPоk після встановлення компонентів

Рисунок 7 – Форма SerPоk після встановлення властивостей компонентів

На формі SeRa розміщуються компоненти які зображені на рисунку 8:

Label1. Label6 – надпис.

Button1 – кнопка за допомогою якої можливо вийти з програми.

 

Рисунок 8 – Форма SeRa після встановлення компонентів

Рисунок 9 – Форма SeRa після встановлення властивостей компонентів

 

6. Складання коду програми

 

Код програми складається за допомогою конкретної мови програмування. Так як проект написаний у візуальному середовищі Delphi 7.0, то мова яка використовується для написання програми – це Object Pascal.

Нижче буде проведено опис і характеристика основних процедур

1. Процедура ТSerPF. FillBorders виконує функцію кнопки Refresh тобто генерує елементи в масиві.

Procedure TSerPF. FillBorders;

Var C, R: Integer;

Begin

RefreshK;

SG. Cells [0,0]:='A [K, N]';

For C:=1 To KC. Value do

Begin

SG. Cells [C, 0]:='A [1,'+IntToStr(C)+']';

End;

For R:=1 To KR. Value do

Begin

SG. Cells [0, R]:='A ['+IntToStr(R)+', 1]';

End;

End;

2. Процедура TSerPF. FillData заповнює масив елементами – цифрами, які розташовуються безладно у відповідних комірках.

Procedure TSerPF. FillData;

Var C, R: Integer;

begin

Randomize;

For C:=1 To KC. Value do

Begin

For R:=1 To KR. Value do

Begin

SG. Cells [C, R]:=IntToStr (Random(1000) – 500);

End;

End;

End;

3. Процедура TSerPF. FillData2 заповнює масив елемент буквами великими літерами російського алфавіту, які розташовані у відповідних комірках масиву

Procedure TSerPF. FillData2;

Var C, R: Integer; S: String;

begin

S:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

Randomize;

For C:=1 To KC. Value do

Begin

For R:=1 To KR. Value do

Begin

SG. Cells [C, R]:=S [Random(33)];

End;

End;

End;

4. Процедура TSerPF. Search виконує пошук елемента у масиві при його знаходженні виводиться повідомлення: 'Запись найдена'

Procedure TSerPF. Search;

Var C, R: Integer;

MR: TGridRect;

Begin

For C:=L To KC. Value do

Begin

For R:=T To KR. Value do

Begin

If SG. Cells [C, R]=TFS. Text then

Begin

If C=KC. Value then

Begin

L:=1;

T:=R+1;

End

else

Begin

L:=C+1;

T:=R;

End;

If (R=KR. Value) and (C=KC. Value) then

Begin

T:=1;

L:=1;

End;

MR. Left:=C;

MR. Top:=R;

MR. Right:=C;

MR. Bottom:=R;

SG. Selection:=MR;

ShowMessage ('Запись найдена');

Caption:='Top'+Inttostr(T)+'; Left'+inttostr(L)+'; C'+inttostr(C)+'; R'+inttostr(R);

break;

End;

End;

End;

End;

5. Процедура TSerPF працює таким чином, якщо тексту немає, то виконується умова, якщо немає ні '?', ні '*', то виконується процедура Search тобто простий або звичайний пошук, Якщо ж виявляється '?', то відбувається пошук з процедури SearchV, відповідно, якщо ж '*', то SearchZ, якщо '?' і '*' – SearchVZ

інакше повідомлення ShowMessage ('Введите текст котрий следует искать!');

procedure TSerPF. Button1Click (Sender: TObject);

begin

If TFS. Text<>'' then

Begin

If (Pos ('?', TFS. Text)<1) and (Pos ('*', TFS. Text)<1) then Search;

If (Pos ('?', TFS. Text)>0) then SearchV;

If (Pos ('*', TFS. Text)>0) then SearchZ;

If (Pos ('?', TFS. Text)>0) and (Pos ('*', TFS. Text)>0) then SearchVZ;

end

else

ShowMessage ('Введите текст котрый следует искать!');

end;

Лістинг програми приведений в додатку А.