8. Виконання програми регулюється кнопками панелі інструментів - запуск (Start), - зупинка (Break), - завершення (End).

9. Збереження проекту у папці на диску виконується так:

1. Клацнути на кнопці (Save Project).

2. Зберегти файл форми. Для цього у вікні Save Fill As спочатку створити нову папку за допомогою кнопки («Создание новой папки») і встановити її ім'я у полі «Папка», а потім у полі «Имя файла» ввести ім'я файла форми і клацнути на кнопці «Сохранить».

3. Зберегти файл проекту. Для цього у вікні Save Project As ввести його ім'я у полі «Имя файла» і клацнути на кнопці «Сохранить».

10. Завершення роботи у середовищі VB здійснюється закриттям його го-ловного вікна.

ЛАБОРАТОРНА РОБОТА № 2

Тема: Проектування розв'язків лінійних задач засобами VB

Мета: набути уміння і навички створення додатків для розв'язання лінійних задач.

Призначення: навчитися створювати проекти розв'язання найпростіших задач засобами VB. Набуті навички послідовного виконання всіх етапів розроблення проекту знадобляться при створенні більш склади проектів.

Задача 1. В цеху оброблюється N однакових деталей на С станках. Час оброблення однієї деталі Т хвилин. Визначити час Р, за який будуть оброблені всі деталі, скориставшись формулою:

P = N * T/C

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

Час Р, за який будуть оброб-лені всі деталі, визначається за формулою:

P = N * T/C

Алгоритм розв'язання задачі

17

Рис. 1. Алгоритм обчислення часу Р, за який будуть оброб-лені всі деталі

Інтерфейс із користувачем

Розв'язання задачі виконується за допомогою форми, наведеної на рис.2. У заголовку форми зазначена назва додатка «Час Р».

Рис. 2. Форма для обчислення часу Р, за який будуть оброб-лені всі деталі

На формі позначення N, T і C та P подано написами. Вхідні значення деталей, станків та часу на об-роблення однієї деталі вводяться в текстові поля. Обчислення виконуються при натисканні кнопки «Обчислити». Результат виводиться на ввігнутій області поруч з написом P. Увігнута область на формі подається написом.

Код програми

Oператор для обчислення часу для обробки всіх деталей можна записати так:

txtP = txtN * txtT / txtC

Процедуру, що обробляє подію Клацання на кнопці «Обчислити», дано нижче.

Виконання програми й аналіз отриманих результатів

На рис.3 показано використання розробленого додатка «Час P» для визначення часу Р, за який будуть оброблені всі деталі, при кількості однакових деталей N 150 шт., часу оброблення однієї деталі Т 1 година і на станках С в кількості 50 шт. Отриманий результат (3 години) збігається з очікуваним, обчисленим без цього додатка.

Рис. 3. Обчислення часу P

ЛАБОРАТОРНА РОБОТА № 3

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

Мета: набути уміння і навички створення додатків на базі розгалужених алгоритмів.

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

Розв'язання задачі

Постановка задачі

Підприємству встановлюється норма (Н) на витрату електроенергії. Визначити плату підприємства (Пл) за користування електроенергією, якщо при дотриманні норми ціна за 1 квт становить Ц1 коп. Якщо норма переви-щена, але не більше ніж на 20%, то за кожний понаднормовий кіловат ціна становить Ц2 коп., якщо ж більше ніж на 20%, то ще й накладається штраф у розмірі Ш грн.

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

Плата підприємства (Пл) за користування електроенергією визначається за формулою:

Ф*Ц1, якщо Ф < Н,

Пл = Н*Ц1+(Ф-Н)*Ц2, якщо Ф > Н та ,

Н*Ц1+(Ф-Н)*Ц2+Ш, якщо Ф> Н та > 20%, де

Алгоритм розв'язання задачі

Розв'язання задачі здійснюється відповідно до алгоритму, що наведено на рис.1.

17

Рис.1 Схема алгоритму визначення відхилення від плану

Інтерфейс з користувачем

Розв'язання задачі виконується за допомогою форми, наведеної на рис.2

Код програми

Процедуру, що обробляє подію Клацання на кнопці «Обчислити», подано нижче.

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

Для реалізації проекту потрібно виконати наступне:

1. Запустити на виконання VB для створення нового проекту.

2. Задати заголовок форми «Плата за электроэнергию» та її ім'я frmПлата_за_электроэнергию.

3. На формі створити написи і текстові поля для вхідних даних План і Факт, Цена1, Цена2, Штраф.

4. Створити кнопку «Вычислить».

5. Під кнопкою «Вычислить» створити напис для області результату «Сумма».

6. Ввести код процедури, що обробляє натискання кнопки «Вычислить».

7. Зберегти форму і проект у папці.

Аналіз проекту

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

Функція Format забезпечує форматний вивід згідно з шаблоном. Використаний шаблон «0,00» передбачає вивід числових значень з фіксованою комою, при цьому для цілої частини числа відведено одна позиція й для дробової - дві. В цьому шаблоні кожний знак «0» передбачає місце під одну цифру. Слід зазначити, що при відображенні від'ємних чисел необхідно передбачити місце й для знака мінус.

Виконання програми й аналіз отриманих результатів

На рис.3. наведено результат розв'язання задачі при таких значеннях показників.

план: 100,

факт: 120,

цена1: 20,

цена2: 30,

штраф: 10

тобто плата за електроенегрію складає 2600 грн.

Рис.3. Результат обчислення плати за електроенергію

Для перевірки працездатності програми по інших гілках потрібно зробити обчислення за даними. Вхідні дані і відповідні значення результату наведено в табл.1.

Таблиця 1.

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