ПРАКТИЧНА РОБОТА

Тема: ”Visual Basic. Розробка додатків, що реалізують розгалужений  обчислювальний процес.”

Мета: навчитись використовувати засоби Visual Basic для розробки додатків з розгалуженим  обчислювальним процесом.

Хід роботи

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

Завдання 1. Уважно вивчіть теоретичні відомості. Найнеобхідніше занотуйте у звіті.

Теоретичні відомості

Використання конструкцій розгалуження у Visual Basic

Досить часто виникає необхідність змінити порядок виконання команд, залежно від результату виконання деякої умови. У VisualBasic існують керуючі оператори, призначені для управління порядком виконання команд. Є два основних типи керуючих операторів:

умовний оператор (If)

та

оператор вибору (SelectCase).

У свою чергу, керуючі оператори Ifбувають двох видів:

If...Thenта If...Then...Else.

Конструкція If...Thenзастосовується, коли необхідно виконати певні дії залежно від деякої умови.

Конструкція If...Then...Elseвикористовується у тому випадку, коли необхідно виконати різні дії залежно від умови.

Умовні вирази

Основою для прийняття рішень в керуючих конструкціях є логічні вирази. Вони повертають одне з двох значень: Trueабо False. В логічних виразах застосовуються оператори порівняння:

Оператори порівняння Visual Basic

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

 - аnd (і) - повертає значення True, якщо всі вирази, які беруть участь в конструкції, мають значення  значення True. В інших випадках повертається значення False;

- Or(або) - повертає значення True, якщо хоча б один з ви­разів, які беруть участь у конструкції, має значення True. У випадку, коли всі вирази мають значення False, повертаєть­ся значення False;

- Хог (виключене або, додавання за модулем 2) - повертає значення True, якщо тільки один із виразів, що беруть участь в конструкції, має значення True. У всіх інших випадках повертається значення False;

- Not (ні) - повертає протилежне до значення виразу значення.

Конструкція If... Then

Конструкція If...Thenзастосовується в тому випадку, коли необхідно виконати один або групу операторів, коли значен­ня заданої умови дорівнює True. Синтаксично дана конструк­ція може мати однорядковий та багаторядковий вигляд. Одно­рядковий оператор має такий синтаксис:

У випадку, якщо при виконанні умови потрібне виконан­ня блоку операторів, використовується багаторядковий опе­ратор, що має такий синтаксис:

Ключове слово End If означає кінець багаторядкового опе­ратора, і його наявність у цьому випадку обов’язкова. Якщо значення заданої умови дорівнює True, то будуть виконані конструкції, що слідують за ключовим словом Then. Якщо умова не виконується (логічний вираз має значенняFalse), то VisualBasic переходить до вико­нання операторів, що йдуть далі чи знаходяться після EndIf.

Конструкція If... Then... Else

Конструкція If ... Then ... Elseаналогічна конструкції If ... Then, тільки дозволяє задати дії, що виконуються як при виконанні логічної умови, так і у разі її невиконання.

Ця конструкція має такий синтаксис:

Команда Ifможе перевірити на істинність тільки одну умову. Якщо ж є потреба здійснити перехід управління залежно від результатів перевірки декількох умов, то таку умову можна за­дати за допомогою оператора ElseІf.Синтаксис такої конструкції:

Конструкція Select Case

Конструкція SelectCaseдозволяє обробляти в програмі декілька умов. Працює конструкція так. Спочатку визначається значення заданого виразу. Потім отримане значення порівнюється зі значеннями, що задаються після операторів Caseконструкції. Якщо знайдено шукане значення, то виконуватимуться команди, розташовані між цим і наступним ключовим словом CaseабоEndSelect. Після виконання управління передається конструкції, наступній за ключовим словом EndSelect.

Синтаксис конструкції SelectCase такий:

SelectCaseвираз

Caseзначення1

Конструкція1

Caseзначення2

конструкція2

....

CaseзначенняN

конструкціяN

End Select

Зауважимо, що оператор SelectCase може виконати не більше ніж одну з послідовностей конструкцій, які містяться в ній. Після того, як одне із значень перевірки збігається зі значенням ви­разу, буде виконано відповідну послідовність команд і опера­тор закінчить свою роботу. Решта умов перевірятися не буде.

При створенні коду процедур можна використовувати стандартні функції Visual Basic. Див. нижче. 

Завдання 2. Розробіть додаток для обчислення суми виплати по вкладу у банку, якщо річна відсоткова ставка становить 13% при вкладі більшому 4000 тис. грн., а для менших за розміром вкладів – 12%.

Економіко-математична модель додатку.

При заданому розмірі початкового вкладу V,   заданому терміні вкладу T і річній процентній ставці p, сума виплат S обчислюється за формулою:.

При цьому річна відсоткова ставка обчислюється за формулою:

Інформаційна модель додатку.

Для розробки додатку потрібно задавати значення початкового розміру вкладу V, значення терміну вкладу V, значення відсоткової ставки p і обчислювати значення суми виплат S у відповідності з заданою формулою. Значення цих величин можна описати типом – дійсні числа. Обчислювальний процес є розгалуженим. Тому в алгоритмі процедури виконання обчислень потрібно  порівнювати значення початкового вкладу з числом 4000.

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

Додаток має повідомляти суму виплат.

Доречно розробити форму з 5 написами і 3 текстовими полями. Потрібно ще у формі мати одну командну кнопку, яка б при клацанні на ній запускала процедуру обчислення суми виплати.

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

Зауваження. Цей проект додатку не є єдиноможливим. Можна запропонувати інші варіанти.

Реалізація проекту у Visual Basic.

1. Активізуйте Visual Basic:
Пуск−> Программы−> Visual Basic−> Visual Basic 6.0.

2. Розробимо форму з назвою Виплати_розгалужений, в якій будуть такі об’єкти:

- 5 написів Label1 – Label5 (один напис для позначення даних про фізичну особу – ПІБ, один напис для позначення початкового вкладу, наступний напис  - для терміну вкладу, один напис для позначення суми виплат і ще один напис – для виведення результату обчислення суми виплат),

- 3 текстових поля Text1 – Text3 для введення даних (одне поле для введення даних про фізичну особу – ПІБ, одне для введення розміру початкового вкладуі ще одне текстове поле  - для значення терміну вкладу);

- одна командна кнопка Command1. З командною кнопкою Command1 пов’язана подія – клік на цій кнопці, який запускає на виконання процедуру обчислення суми виплат.

- Результат обчислення виводиться у напис з ім’ям Label5. Програмний код  процедури потрібно розробити.

3. У вікні властивостей форми задайте для властивості Caption значення Виплати, для властивості ForeColor виберіть зі списку вказаний на рисунку колір.

4. Для всіх написів задайте відповідне значення (властивість Caption), колір фону і вирівнювання по центру у відповідності з наведеним нижче рисунком.

5. Для текстових полів також задайте зачення „пусто” (властивість Text), вирівнювання по центру у відповідності з наведеним нижче рисунком.

6. Дотримайтесь вказаного розташування об’єктів і усвідомте логічний зв’язок між об’єктами:

Label1 −> Text1

Label2 −> Text2

Label3 −> Text3

7. Для командної кнопки Command1 встановіть значення Обчислити (властивість Caption), вирівнювання по центру у відповідності з рисунком нижче.

8. Двічі клацніть на командній кнопці і у вікні редактору коду створіть код процедури як у наведеному нижче вікні, після чого закрийте вікно коду. (Збільшіть масштаб перегляду для прочитання коду процедури).

У даному варіанті коду процедури змінна:

a – зберігає значення початкового вкладу;

b – зберігає значення річної відсоткової ставки;

c – зберігає значення терміну вкладу;

d – зберігає значення суми виплати.

Значення суми виплати виводиться у форму у напис Label5.

Змінні явно описані за допомогою ключового слова Dim. Тому ці змінні є локальними, вони є видимими лише для даної процедури.

Змініть текст процедури, замінивши імена змінних:

a на  ПочВклад;

b на Ставка;

c на Терм;

d на СумаВиплат.

9. Закрийте вікно коду.

10. Збережіть форму і проект у своїй папці на локальному комп’ютері:

збереження форми: меню File −> Save Form −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я форми Виплати_розгалужений, після чого натисніть кнопку Сохранить.

Збереження проекту: меню меню File −> Save Project −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я проекта MyProject_розгалужений, після чого натисніть кнопку Сохранить.

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

12. Щоб надати розробленому проекту статусу незалежного додатку, потрібно зберегти цей проект як виконуваний (скомпільований файл) з розширенням ЕХЕ. Для цього потрібно у меню File вікна редактора Visual Basic  клацнути на команді Make MyProject_розгалужений.exe і вказати місце збереження та ім’я файлу. Збережіть додаток у вашій власній папці на сервері.

Завдання 3. Розробіть додаток для розв’язання довільного квадратного рівняння із застосуванням у процедурі конструкції If ... Then ... Else.

Математична модель додатку.

Загальний вигляд квадратного рівняння такий:,

Де a, b, c – дійсні числа. Щоб отримати розв’язок на множині дійсних чисел (тобто знайти такі дійсні числа, що при підстановці у наведене рівняння замість х буде отримано тотожність), потрібно проаналізувати коефіцієнти a, b, c рівняння і обчислити дискримінант , від значення якого залежить кількість розв’язків і їх значення. Якщо дискримінант має від’ємне значення – розв’язків а множині дійсних чисел не існує. Якщо дискримінант дорівнює нулю – рівняння має єдиний розв’язок, що обчислюється за формулою.

Якщо ж дискримінант мвє додатнє значення – існує два розв’язки, які очислюються за формулами:

Реалізація проекту у Visual Basic.

При розробці проекту можна по-різному організувати інтерфейс користувача і програми, обираючи різні засоби Visual Basic.

1 спосіб

1. Активізуємо новий проект. Розробимо форму з 6 написами,  3 текстовими полями і однією командною кнопкою у відповідності з наведеним нижче рисунком.

2. Створимо код процедури обробки події – клацання на командній кнопці Обчислити. Для реалізації розгалужень застосуємо конструкцію If...Then та If ... Then ... Else . У вікні редактора коду створіть програмний код, коментарі вводити не потрібно:

3.Закрийте вікно коду.

4. Збережіть форму і проект у своїй папці на локальному комп’ютері.

Збереження форми: меню File −> Save Form −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я форми F_KVR, після чого натисніть кнопку Сохранить.

Збереження проекту: меню меню File −> Save Project −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я проекта Project_KVR, після чого натисніть кнопку Сохранить.

5. Запустіть розроблений проект на виконання, скориставшись відповідним меню або кнопкою старт панелі інструментів. При цьому на екрані з’явиться вікно  форми F_KVR, в якому в текстових полях потрібно задати значення відповідних коефіцієнтів і натиснути кнопку Обчислити. Після виконання обчислень у формі  у написах Label4 і Label5 буде виведено результат обчислення розв’язків рівняння.

6. Щоб надати розробленому проекту статусу незалежного додатку, потрібно зберегти цей проект як виконуваний (скомпільований файл) з розширенням ЕХЕ. Для цього потрібно у меню File вікна редактора Visual Basic  клацнути на команді Make Project_KVR.exe і вказати місце збереження та ім’я файлу. Збережіть додаток у вашій власній папці на сервері.

Виконайте декілька варіантів обчислень.

2 спосіб

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

Загальна інформація про діалогові вікна Visual Basic

Ці вікна бувають двох різновидів:

- модальні;

- немодальні.

Модальне діалогове вікно – це діалогове вікно, з якого не можна перейти до іншого вікна, не закривши поточного.

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

Найпростіші з діалогових вікон – це вікна повідомлень і вікна введення даних.

Крім цих діалогових вікон існують більш складні діалогові вікна:

- діалогове вікно Open для пошуку у файловій структурі потрібного файла;

- діалогове вікно Save As для пошуку місця збереження файла і вказанняя його імені;

- діалогове вікно Font для  вибору шрифту;

- діалогове вікно  Color для вибору палітри кольорів;

- діалогове вікно Print для вказання режиму друку;

- діалогове вікно Help  для роботи з довідковою системою тощо.

Докладно вивчимо вікно повідомлень.

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

MsgBox(текст [_, кнопки] [, заголовок] [, дов_файл, дов_вміст]) 

де:

текст - текст повідомлення в діалоговому вікні. Максимальна довжина тексту 1024 символи. У текст можна вставляти як розділювачі рядків символи переведення каретки Chr(13), переведення рядка Chr(l0);

кнопки - числовий вираз, який задає параметри для кно пок управління і значків у діалоговому вікні, і складений з констант, вказаних у табл. 5.6 і 5.7. Якщо значення не вка зане, то за замовчуванням присвоюється значення 0;

заголовок - текст заголовка діалогового вікна;

дов_файл - посилання на файл довідкової системи;

дов_вміст - посилання на вміст файла довідкової системи.

Приклад:

MsgBox ("Привіт!", vbOk + vbInformation, "Повідомлення") 

Наведемо константи для значків діалогових вікон:

Константи значків діалогових вікон

Далі наведемо деякі константи, які визначають наявність кнопок у діалоговому вікні.

Константи параметрів наявності кнопок

Слід додати, що існують константи, які визначають, яка з кнопок буде «активною», тобто на ній знаходитиметься фокус. Так, наприклад, константа vbDefaultButtonlзі значенням 0 встановлює фокус на першій кнопці, vbDefaultButton2 зі значенням 256 встановлює фокус на другій кнопці, - цей перелік можна продовжити.

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

Значення констант, що повертаються вікнами повідомлення

Докладно вивчимо вікно введення даних(InputBox)

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

Функція InputBoxмає такий синтаксис:

InputBox(текст [,заголовок][,замовч] [_,хпоз] [,упоз] [, дов файл, дов_вміст])

де:

текст - текст повідомлення в діалоговому вікні. Макси­мальна довжина тексту 1024 символи. У текст можна встав­ляти як розділювачі рядків символи перевід каретки Chr(13), перевід рядка Chr(lO);

заголовок - текст заголовка діалогового вікна;

замовч - значення текстового поля введення за замовчуван­ням. Якщо цей параметр відсутній, то рядок залишається порожнім;

хпоз - позиція по горизонталі лівого верхнього кута діа­логового вікна відносно лівого верхнього кута екрана. За замов­чуванням привласнюється значення середини екрана;

упоз - позиція по : вертикалі лівого верхнього кута діало гового вікна відносною лівого верхнього кута екрана. За умов чанням привласнюється значення середини екрана;

дов_файл - посилання на файл довідкової системи;

дов_вміст - посилення на вміст файла довідкової системи.

Приклад: 

strPwd = InputBox("Введіть пароль", "Перевірка доступу", "****") 

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

У вікні InputBox:завжди є тільки дві кнопки управління: ОКі Cancel. Кнопка ОКпідтверджує введення даних, а кнопка Cancelзакриває діалогове вікно без введення даних.

1. Активізуємо новий проект. Розробимо форму з однією командною кнопкою у відповідності з наведеним нижче рисунком.

2. Двічі клацнувши на кнопці створимо код процедури:

Private Sub Command1_Click()

3. Збережіть форму і проект у своїй папці на локальному комп’ютері:

збереження форми: меню File −> Save Form −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я форми F_KVR_Dial, після чого натисніть кнопку Сохранить.

Збереження проекту: меню меню File −> Save Project −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я проекта KVR_Dial, після чого натисніть кнопку Сохранить.

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

5. Щоб надати розробленому проекту статусу незалежного додатку, потрібно зберегти цей проект як виконуваний (скомпільований файл) з розширенням ЕХЕ. Для цього потрібно у меню File вікна редактора Visual Basic  клацнути на команді Make KVR_Dial.exe і вказати місце збереження та ім’я файлу. Збережіть додаток у вашій власній папці на сервері.

6. Виконайте декілька варіантів обчислень.

Завдання 3. Розробіть додаток для обчислення значень економічного показника Y в залежності від значень економічного показника X, якщо залежність задана формулою:

Для реалізаціїх розгалужень обчислювального процессу застосуйте конструкцію SelectCase.

1. Відкрийте новий проект Visual Basic.

2. Розробіть форму за наведеним нижче на рисунку зразком: один напис, одне текстове поле для введення значення Х і одна командна кнопка.
   

3. Для обробки події клацання на командній кнопці розробіть код процедури:

Private Sub Command1_Click()

Dim Y As Variant, X As Double

X = Val(Text1.Text)

Select Case X

Case 0 To 1

Y = 5 * X * (X + 10)

Case 1 To 10

Y = 55 + Sin(3 * X)

Case Is > 10

Y = 55 + Sin(3 * X) + (X - 10) / (X + 1)

Case Else

Y = "Не визначена"

End Select

Print "X="; X; "  Y="; Y

End Sub 

Зверніть увагу на команду Print. Вона друкує у формі значення

X та Y, а також текст, вказаний у команді у лапках.

4. Збережіть форму і проект у своїй папці на локальному комп’ютері:

збереження форми: меню File −> Save Form −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я форми F_Сase, після чого натисніть кнопку Сохранить.

Збереження проекту: меню меню File −> Save Project −> у діалоговому вікні вкажіть місце збереження Мои документы і ім’я проекта Proj_Case, після чого натисніть кнопку Сохранить.

5. Запустіть розроблений проект на виконання, скориставшись відповідним меню або кнопкою старт панелі інструментів. При цьому на екрані з’явиться вікно  форми F_Сase, в якому в текстовому полі потрібно задати значення Х і натиснути кнопку Обчислити. Після виконання обчислень у формі  буде виведено результат обчислення значення Y.

6. Щоб надати розробленому проекту статусу незалежного додатку, потрібно зберегти цей проект як виконуваний (скомпільований файл) з розширенням ЕХЕ. Для цього потрібно у меню File вікна редактора Visual Basic  клацнути на команді Make Proj_Case.exe і вказати місце збереження та ім’я файлу. Збережіть додаток у вашій власній папці на сервері.

Виконайте декілька варіантів обчислень

Завдання 4. Зробіть висновки. Захистіть виконану роботу.

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

З повагою ІЦ "KURSOVIKS"!