Приклад розв'язання задачі
Постановка задачі
Побудувати додаток для визначення відсотка відхилення фактичного виконання виробничої програми від плану.
Математична модель:
Відсоток відхилення (Відхилення) фактичного виконання (Факт) виробничої програми від плану {План) визначається за формулою:
Відсоток - 100, якщо Відсоток > 100
Відхилення =
100 - Відсоток, якщо Відсоток < 100,
де Відсоток = Факт / План * 100.
Якщо Відсоток = 100, то вивести повідомлення «План виконано на 100%».
Алгоритм розв'язання задачі
Розв'язання задачі здійснюється відповідно до алгоритму, що наведено на рис. 3.1. 24
Інтерфейс з користувачем
Розв’язання задачі виконується за допомогою форми, наведеної на рис. 3.2.
Рис. 3.2. Проект форми для розв’язання задачі
На формі слова «План» і «Факт» подаються написами. Відповідні вхідні дані вводять до текстових полів. Обчислення виконується при натисканні кнопки «Обчислити». Результат виводиться на ввігнуту область під кнопкою. Залежно від результату обчислення змінна sngВідхилення може набувати одне з таких значень:
1) План перевиконано на «0,00»%;
2) План недовиконано на «0,00»%;
3) План виконано на 100%.
Тут ужито умовну позначку «0,00», яка означає, що результат sngВідхилення виводиться з двома розрядами в дробовій частині. Область результату подається написом lblРезультат.
Код програми
Процедуру, що обробляє подію Клацання на кнопці «Обчислити», подано нижче.
25 26
Реалізація проекту
Для реалізації проекту потрібно виконати наступне:
1. Запустити на виконання VB для створення нового проекту.
2. Задати заголовок форми «Відхилення від плану» та її ім'я frmВідхилення.
3. На формі створити написи і текстові поля для вхідних даних План і Факт.
4. Створити кнопку «Обчислити».
5. Під кнопкою «Обчислити» створити напис для області результату.
6. Ввести код процедури, що обробляє натискання кнопки «Обчислити».
7. Зберегти форму і проект у папці.
Аналіз проекту
При формуванні повідомлення про результати обчислень вживається операція зчеплення рядків &.
Option Explicit
Private Sub cmdO6числити_С1іск()
'Оголошення змінних
Dim sngВідсоток As Single, _
sngВідхилення As Single, _
strВідхилення As String
' Обчислення відсотка виконання плану
sngВідсоток = CSng(txtФакт) /CSng(txtПлан) * 100
' Обчислення відсотка відхилення від плану
If sngВідсоток > 100 Then
sngBiдxилeння = sngВідсоток - 100
strВідхилення = "План перевиконано на " & _
Format (sngВідхилення, "0 .00") & "%"
ElseIf sngВідсоток < 100 Then
sngBiдxилeння = 100 - sngВідсоток
strВідхилення = "План недовиконано на " & _
Format (sngBiдxилeння, "0,00") & "%"
Else
strВідхилення = "План виконано на 100%"
End If
'Виведення повідомлення
lblРезультат = strВідхилення
End Sub
Функція Format забезпечує форматний вивід згідно з шаблоном. Використаний шаблон «0,00» передбачає вивід числових значень з фіксованою комою, при цьому для цілої частини числа відведено одна позиція й для дробової – дві. В цьому шаблоні кожний знак «0» передбачає місце під одну цифру. Слід зазначити, що при відображенні від’ємних чисел необхідно передбачити місце й для знака мінус.
Виконання програми й аналіз отриманих результатів
На рис.3.3. наведено результат розв’язання задачі при таких значеннях показників.
план: 10
факт: 12,
тобто план перевиконано на 20%, що й видно в області виведення результату.
Рис.3.3. Результат обчислення відсотка виконання
виробничої програми
Для перевірки працездатності програми по інших гілках потрібно зробити обчислення за даними, коли факт менше плану, а також дорівнює йому. Вхідні дані і відповідні значення результату наведено в табл.3.3.
Після перевірки розроблений додаток можна використовувати для реальних даних при аналізі виконання виробничої програми з метою прий-няття відповідних управлінських рішень.
Таблиця 3.3.
Дані перевірки працездатності програми План |
Факт |
Результат |
10 |
12 |
План перевиконано на 20% |
10 |
9 |
План недовиконано на 10% |
10 |
10 |
План виконано на 100% |