на тему рефераты Информационно-образоательный портал
Рефераты, курсовые, дипломы, научные работы,
на тему рефераты
на тему рефераты
МЕНЮ|
на тему рефераты
поиск
Опрацювання масивів
but [i, j]. Left: = (j - 1) * 26 + 10;

sbut [i, j]. Color: = clYellow;

sbut [i, j]. OnClick: = panelOnClick;

end;

end;

end;

Наступна функція здійснює пошук слова, заданого користувачем у матриці символів. Порядок пошуку - зліва направо.

function TForm1. Search_LR: Boolean;

var

i, j, k: integer;

Myword: String;

begin

Search_LR: =False;

if Edit1. Text<>'' then begin // якщо задано якесь слово для пошуку

for i: = 1 to MaxX do

for j: = 1 to MaxY do // поки не кінець матриці

if (j+Length(Edit1. Text) - 1) <=MaxY then begin // якщо не кінець слова

for k: =0 to Length(Edit1. Text) - 1 do // Посимвольно формуємо змінну

Myword: =Myword+SBut [i,j+k]. Caption; // Myword

if Myword=Edit1. Text then begin // Якщо Myword співпадає із введеним

for k: =0 to Length(Edit1. Text) - 1 do begin // користувачем словом, то

sbut [i, j+k]. Font. Color: =clYellow; // інвертується колір тесту та фону панелі

sbut [i, j+k]. Color: = clBlue;

end;

Search_LR: =True;

{Exit; }

end else Myword: ='';

end;

end;

end;

Функції function TForm1. Search_RL: Boolean; function TForm1. Search_UD: Boolean; function TForm1. Search_DU: Boolean; мають дуже схожий до вище описаного алгоритму пошуку заданого слова, змінюється лише порядок пошуку.

Здійснення пошуку в усіх напрямах по черзі виконується наступною процедурою.

procedure TForm1. Search;

var Find,F1,F2,F3,F4: Boolean;

begin

if SearCB. ItemIndex<0 then Search_LR;

Find: =True;

F1: =True; F3: =True;

F2: =True; F4: =True;

case SearCB. ItemIndex of

0: Find: =Search_LR;

1: Find: =Search_RL;

2: Find: =Search_UD;

3: Find: =Search_DU;

4: begin

F1: =Search_LR;

F2: =Search_RL;

F3: =Search_UD;

F4: =Search_DU;

end;

end;

if (Find=False) or((F1=False) and(F2=False) and(F3=False) and(F4=False)) then

ShowMessage('Шуканої послідовності символів не знайдено! ')

end;

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

function TForm1. Sumbol: Char;

const

Ukr='йцукенгшщзхїфівапролджєячсмитьбюЙЦУКЕНГШЩЗХЇФІВАПРОЛДЖЄЯЧСМИТЬБЮ';

UkrL='йцукенгшщзхїфівапролджєячсмитьбю';

UkrB='ЙЦУКЕНГШЩЗХЇФІВАПРОЛДЖЄЯЧСМИТЬБЮ';

Rus='йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';

RusL='йцукенгшщзхъфывапролджэячсмитьбю';

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

Eng='qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM';

EngL='qwertyuiopasdfghjklzxcvbnm';

EngB='QWERTYUIOPASDFGHJKLZXCVBNM';

Num='0123456789';

begin

if ALF. ItemIndex<0 then ALF. ItemIndex: =0;

case ALF. ItemIndex of

0: begin

case RG. ItemIndex of

0: Sumbol: =UkrB [Random(Length(UkrB)) +1] ;

1: Sumbol: =UkrL [Random(Length(UkrL)) +1] ;

2: Sumbol: =Ukr [Random(Length(Ukr)) +1] ;

end;

end;

1: begin

case RG. ItemIndex of

0: Sumbol: =RusB [Random(Length(RusB)) +1] ;

1: Sumbol: =RusL [Random(Length(RusL)) +1] ;

2: Sumbol: =Rus [Random(Length(Rus)) +1] ;

end;

end;

2: begin

case RG. ItemIndex of

0: Sumbol: =EngB [Random(Length(EngB)) +1] ;

1: Sumbol: =EngL [Random(Length(EngL)) +1] ;

2: Sumbol: =Eng [Random(Length(Eng)) +1] ;

end;

end;

3: Sumbol: =Num [Random(Length(Num)) +1] ;

end;

end;

Нижче приведена процедура дозволяє заповнювати масив символами, що вводитимуться користувачем.

procedure Tform1. panelOnClick (sender: Tobject);

var

s: string;

Col: Integer;

begin

Col: =TPanel(sender). Color;

TPanel(sender). Color: =clRed;

s: = InputBox ('Введіть потрібний символ', 'Символ: ', TPanel(sender). Caption);

if S<>'' then

TPanel(sender). Caption: = S [1] ;

TPanel(sender). Color: =Col;

end;

Основні функціональні блоки програми описані. Решта програмного коду є досить проста для розуміння, тому не описувалась.

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

7. Реалізація проекту у візуальному середовищі

Програмна реалізація у візуальному середовищі має свої особливості. Тому необхідно показати порядок її реалізації, зупинитись на особливостях. Це й зробимо у цьому розділі.

Спочатку потрібно завантажити середовище програмування Borland Delphi 7.0. Щоб створити новий додаток відразу в рядку меню вибираю: Файл Создать Приложение (при запуску Borland Delphi додаток створюється автоматично). Після чого на екрані з`явиться нова порожня форма, назву якої за допомогою властивості Caption змінюємо на „Абетка”.

Для створення головного меню програми вибрано компонент MainMenu із закладки Standart. Для додання підпунктів меню на цьому компоненті двічі клацаємо та у властивості Caption вказуємо назву підпункту.

Щоб створити так звану „панель керування” програми використано компонент GroupBox, що знаходиться на закладці Standart. Цю панель називають „Опції” (властивість Caption). Із цієї ж закладки вибрано компонент Edit та Label, що призначені для введення слова для пошуку користувачем та підпису його відповідно (властивість Caption компоненти Label змінюємо на „Шукане слово”).

Випадаючі списки реалізуємо за допомогою компонентів ComboBox, що знаходяться на тій же закладці Standart. Властивість Text змінимо на „Виберіть слово” та „Виберіть напрям” відповідно.

Для вище описаних компонентів Edit та ComboBox властивість Color змінюємо на clBlue, щоб змінити їх фон. Таку ж властивість для Label встановимо на clYellow - колір напису.

Панелі, що потрібні для керування роботою програми, використовуємо компонент Panel, що знаходиться на тій же закладці. Властивості Caption змінюємо на „Знайти”, „Зняти виділення”, „Згенерувати масив”. Властивості Color змінюємо на clYellow - фон панелі. Властивість Font задає формат напису на панелі. Для неї встановимо колір шрифту на clBlue.

Щоб створити список перемикачів використаємо компонент RadioGroup (закладка Standart). Властивість Caption змінюємо на „Регістр”, Color - на clBlue.

Для створення кнопки „Вихід” та інших візуальних компонентів додатку використано додаткові „скіни” AlphaControls. Як це зробити покажемо у розділі 10. Після інсталяції бібліотек у панелі компонентів з'являться три нові закладки: AlphaStandart, AlphaAdditional, AlphaTools. Для створення цієї ж кнопки використаємо компонент sBitBtn (закладка AlphaStandart), її властивість Caption замінимо на „Вихід”.

Для створення реєстраційної форми виконуємо Файл Новая Другое і у закладці Форми вибираємо About Box. Аналогічно вище описаному змінюємо її назву (Caption). Для введення коду реєстрації додамо на форму поле Edit (закладка Standart), його фон змінимо на чорний (властивість Color). Для підпису цього поля використано компонент sLabelFX (закладка AlphaAdditional). Керуючі кнопки реалізовано за допомогою компонентів sBitBtn (закладка AlphaStandart). При цьому властивості Caption компонентів sLabelFX та sBitBtn необхідно змінити. Для забезпечення можливості використання „скінів” на цю форму помістимо sSkinManager (закладка AlphaTools). У його властивість SkinDirectory слід помістити шлях до „скінів” - а саме D: \Install\for_delphi_skin\acnt_reg7\Skins. У властивості SkinName слід вказати назву „скіна” - LikeOperaStyle (internal).

На кожну з форм слід помістити компонент sSkinProvider (закладка AlphaTools).

Для відображення інформації про програму створюємо однойменну форму.

На неї поміщаємо поле Мемо (закладка Standart), у властивості Lines якого вводимо потрібну інформацію про програму. Кнопку „Вихід” реалізуємо, використовуючи компонент sButton (закладка AlphaStandart).

На ще одну форму „Розробник... ” розміщуємо компонент Image (закладка Additional), а у його властивості Picture можна обрати фото. Для відображення текстової інформації на форму розміщуємо три компоненти sLabelFX та два - sStickyLabel із закладки AlphaAdditional і змінюю її властивість Caption.

Кнопка „Вихід” реалізується за допомогою компоненту sButton (закладка AlphaStandart).

На цьому реалізацію програми у візуальному середовищі завершено.

8. Аналіз програми

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

Насамперед, для виявлення функціональної повноти програми, визначимо головні її можливості:

можливість захисту від несанкціонованого доступу;

можливість автоматичної генерації символів матриці генератором випадкових чисел, або заповнення її користувачем в ручному режимі;

вибір регістру символів, які заповнять матрицю;

вибір алфавіту символів, з яких формується матриця;

можливість пошуку заданого користувачем слова у матриці символів;

вибір напрямку пошуку;

зручний та наглядний інтерфейс програми.

Як бачимо із вище написаного програма забезпечує виконання поставленого завдання у повному обсязі. Але як і будь-яка інша розробка, має певні недоліки:

відсутня можливість вибору розмірності матриці символів, хоча виправлення цього недоліку є нескладним та нетрудоємким;

не передбачена можливість додання нових, не передбачених програмою символів у матрицю (редагування алфавітів);

можна вибирати напрям пошуку лише у чотирьох напрямках. Пошук по діагоналі, або ще якось не передбачено.

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

9. Тестування програми

Тестування роботи програми виконувалось насамперед на етапах розробки програми у середовищі візуального програмування Borland Delphi. Тобто саме середовище при появі певних помилок при роботі програми видає повідомлення про помилку. При цьому може вказуватись достатньо зрозуміло причина виникнення помилки, місце виникнення її у програмі, тип помилки.

Крім цього у Borland Delphi передбачені певні можливості відлагодження програм, наприклад, так зване покрокове виконання програми, що дуже допомагають при виправленні помилок.

Після ж закінчення розробки програми тестуємо програму, перевіряючи порядок та правильність запуску форм, виконання операцій, формат введення даних, діапазон вводу. Насамперед запустивши програму перевіряється послідовність появи форм - першою має з'явитись реєстраційна форма. У цій формі треба перевірити відповідність введеного паролю вірному. Після цієї перевірки з'являється головна форма. В цій формі перевіряється правильність виконання усіх операцій, що вибираються на панелі „Опції”.

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

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

10. Інструкція з експлуатації програми

Для роботи із створеною програмою її необхідно скопіювати з компакт диску на жорсткий диск комп'ютера папку із програмою, де з нею будуть працювати. Для цього на жорсткому диску має бути 4,93Мб вільного простору для цієї програми. Крім цього комп'ютер має відповідати таким мінімальним вимогам:

Операційна система Windows (бажано Windows ХР для забезпечення візуальних ефектів програми);

процесор з тактовою частотою 400МГц;

64 Мбайт оперативної пам'яті;

4,93 Мбайт вільного простору на дисковому носії;

кольоровий монітор та відео адаптер, що б забезпечували розширення хоча б 800*600 при частоті оновлення 60Гц та 16-ти бітний кольоровий режим роботи.

дисковод;

клавіатура;

маніпулятор „миша”.

Для роботи із програмою потрібно запустити на виконання файл Project1_0. exe. У реєстраційну форму вводять код, що можна побачити у файлі cod. txt. Проте для подальшої роботи над доопрацюванням програми та її аналізу слід встановити необхідні „скіни”.

Для цього їх потрібно встановити та здійснити налаштування у Delphi. Це здійснюється так:

Розпаковуємо архів acnt_reg7. exe у папку, що вибирається користувачем (наприклад, Install).

Ця директорія має бути зареєстрована в так званому шляху пошуку системи (system search path). Потрібно додати AlphaControls папку у Delphi (Tools - >Environment Options->Library->Library Path). Далі вибрати шлях, наприклад, D: \Install\for_delphi_skin\acnt_reg7\D7.

Використовуємо File\Open. Вибираємо шлях де знаходиться run-time паркет, наприклад, D: \Install\for_delphi_skin\acnt_reg7\D7\ acntD7_R. dpk. У вікні що відкриється, натискаємо кнопку Compile.

Використовуємо File\Open. Вибираємо шлях де знаходиться design - time паркет, наприклад, D: \Install\for_delphi_skin\acnt_reg7\D7\ acntD7. dpk. У вікні що відкриється, натискаємо кнопку Install, щоб встановити цю бібліотеку.

Цього буде достатньо для роботи програми, але за необхідності можна додатково встановити пакет DB-aware.

Після цього можна користуватись новими закладками панелі компонентів та запускати без помилок проект Delphi (файл Project1_0. dpr).

11. Аналіз отриманих результатів

Аналіз отриманих результатів проведемо, розглянувши результати роботи програми. Після запуску програми на виконання отримаємо реєстраційну форму програми, вигляд якої зображено на рисунку 7:

Рисунок 7 - Реєстраційна форма

Після введення реєстраційного коду потрібно натиснути кнопку „Далі”. В разі введення правильного коду, з'явиться головна форма проекту (рисунок 8).

Страницы: 1, 2, 3


© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент.