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;

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

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

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

У Delphi програмні модулі позначаються словом «Unit», кожен з цих програмних модулів містить текст програми. Усі процедури та функції головної форми описуються у модулі Unit1. Компоненти вікна форми тестової програми описуються у Unit2. Вікно форми про програму належить до Unit3. Також на формі міститься кнопка «Вихід», тобто виходу з програми.

Для вдосконалення роботи даного проекту можна внести свої змінні у функції чи процедури програми, за допомогою добавлення нових чи вдосконалення існуючих команд. У головній формі «Form» відображено інтерфейс користувача, тобто набір кнопок, полів, картинок. Кожен об'єкт має свій програмний код, який відображено в Unit. Тому можна зробити висновок, що у Unit здійснюється реалізація програми, а у Form здійснюється візуальне її оформлення.

Реалізація проекту у візуальному середовищі передбачає наступні стани:

1. Запуск на виконання Delphi 7 для створення нового проекту (Пуск - Програми - Borland Delphi 7 - Delphi 7)

2. Створення 3-ох форм: Form1, Form2, Form3 (Form1 створюється автоматично при завантаженні Delphi, для створення іншої форми потрібно на панелі інструментів обрати New Form, або в меню Form - New - Form).

3. Встановлення властивостей для Form1, Form2 Form3 згідно до розділу 5 Розробка інтерфейсу роботи з користувачем.

4. Встановлення компонентів та їх властивості для Form1, Form2, Form3.

5. Введення програмного коду, який наведений у Додатку А.

6. Зберегти проект (File - Save All, або за допомогою комбінації клавіш Shift+Ctrl+S), вказавши ім'я файлу проекту, для решти файлів імена при збереженні змінювати не потрібно.

7. Після виконання усіх попередніх пунктів дану програму потрібно відкомпілювати (F9, або за допомогою меню Run - Run).

8. Після виконання усіх попередніх пунктів дану програму потрібно відкомпілювати (F9, або за допомогою меню Run - Run).

У проекті присутні велика кількість компонентів, для їх функціонування необхідно змінити певні властивості:

Таблиця 3 - Властивості компонентів Форми SerPak

Параметри шрифту для візуальних комронентів форми SerPak, таких як:

Lable1, Button потрібно встановити наступним чином, назва шрифту =MS Sane Serif, розмір = 14. для решти компонентів цю властивість змінювати не потрібно.

Таблиця 4. Властивості компонентів форми SerPok

Параметри шрифту для візуальних комронентів форми SerPak, таких як:

Lable, Button, RadioButton, GroupBox потрібно встановити наступним чином, назва шрифту =MS Sane Serif, розмір = 14. для решти компонентів цю властивість змінювати не потрібно. Також для компонентів SpinEdit, Button, в властивості Hint коротко описати функціональне призначення даного елемента, виходячи з його назви

Таблиця 5. Властивості компонентів форми SerPok (початок)

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

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

Головної, Про програму та форму, що відображається при завантаженні.

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

На головній формі користувач може: обрати кількість рядків чи стовбців; створити масив може вручну - вводити елементи, а може автоматично згенерувати.

Користувач може вибрати на свій розсуд буквене або цифрове заповнення масиву елементами. У цифровому масиві цифри можуть бути як додатні та і від'ємні елементи.

Також користувач може зберегти результат пошуку елементів, і може завантажити уже збереженні дані про минулий пошук.

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

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

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

Тестування програми виконувалось, як при покроковому режимі виконання програми, так і при компілюванні.

Рисунок 10 - Робота програми до початку пошуку у масиві

Рисунок 11 - Робота програми під час пошуку елемента у масиві.

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

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

- процесор з тактовою частотою не менше 166 MHz;

- відео карта з пам'яттю не менше 8 Mb;

- операційна система Windows 95/98/2000/XP/Vista;

- Не менше 5 Мb вільного місця на жорсткому диску;

- Об'єм оперативної пам'яті не менше 32 Мb;

- Обов`язково наявність мишки та клавіатури.

Програма не потребує інсталяції. Для того щоб вона працювала на комп'ютері, достатньо скопіювати файл `SerPok.exe' та деякі текстові файли.

Запуск програми здійснюється за допомогою файлу «SerPok.exe».

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

На головній формі користувач може: обрати кількість рядків чи стовбців задати у полі; натиснувши на перемикач `ручне', `авто' створити масив може вручну - вводити елементи, а може автоматично згенерувати.

Користувач може вибрати на свій розсуд буквене або цифрове заповнення масиву елементами при перемиканні перемикачів, 'букви' і `цифри'. У цифровому масиві елементи можуть бути як додатні та і від'ємні.

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

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

Згідно з завданням даного курсового проекту, було розроблена програма візуальної демонстрації пошуку елементів у масиві. Після чого ми можемо пересвідчитись в достовірності роботи програми на рис. 12 -14.

Рисунок 12-Програма при завантаженні

Рисунок 13 - Головна форма при завантаженні

Рисунок 14 - Інформація про програму

Висновок

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

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

Список літератури

1. В. Фаронов - Система программирования Delphi;

2. Глинський Я.М - Turbo Pascal\Delphi 6 - видання;

3. Кэнту - Delphi для профисионалов;

4. Краснов - Графика в проектах Delphi;

5. Марков Є.П. - Програмированье в Delphi 7;

6. Мозговой М. - Занимательное программирование.

7. Григас Г. - Начала програмируванье. - М., 1987

8. Грогоно П. - Програмируванье на языке паскаль.

9. Спірідонов В.І. - Обчислювальна техніка і програмування.

10. Глинський Я.М. - Основи інформатики та обчислювальної техніки.

11. Абрамов С.А - Начала програмируванья на языке Паскаль.

12. Фаронов В.В. - Delphi 5 учебный курс.

13. Черняхівський В.В-Сучасна технологія візуального програмування.

14. Немнюгин - Turbo Pascal.

15. Климов - Pascal 7.0

16. Юрий Гурский - Трюки и эффекты в Delphi 7.

17. Род Стивенс - Delphi. Готовые алгоритмы.

18. Виктор Пестриков, Артур Маслобоев - Delphi на примерах.

19. Михаил Фленов - Программирование в Delphi глазами хакера.

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