10. Реалізація проекту в програмному середовищі Visual Basic із застосуванням процесів розгалуження та умовних циклів
Розроблена екранна форма для забезпечення взаємодій користувача та програми на основі її ескізу. На екранній формі розміщені елементи управління, що забезпечують введення вхідних даних, управління процесом обчислень і виведення результатів розрахунків. Для рішення задачі передбачена обробка різних подій у вигляді програмних кодів приватних процедур. При цьому використовують різні форми операторів розгалужень і операторів циклів. Зроблено аналіз результатів виконання розробленого проекту (рис. 61).
11. Проектування додатків з масивами елементів керування та масивами даних
Вхідні дані індивідуального завдання представлені у вигляді масивів елементів керування та масивів даних.
Згідно з ескізом екранної форми в програмному середовищі Visual Basic реалізована форма, що містить елементи керування для введення вхідних даних і виводу результатів обробки (рис. 62).
Рис. 61. Ескіз екранної форми
Рис. 62. Екранна форма для забезпечення взаємодій користувача та програми
Розроблено програмний код рішення індивідуального завдання. У ньому передбачено використання операцій роботи з файлами при введенні вхідних даних і виведення результатів обробки даних (рис. 63).
Для уведення даних та подання результату розрахунку було використано екранні форми (рис. 64-73).
Рис. 63. Вікно з програмним кодом
Програмний код:
Option Base 1 ' Нумерація елементів масиву з 1
Const n = 3 ' Кількість видів товарів
Dim intКод(n) As Integer ' опис змінних
Dim intКількість(n) As Integer ' кількість одного товару
Dim curЦіна(n) As Currency ' ціна одного товару
Private Sub CommandButton1_Click() ' введення даних
Dim i As Integer ' номер товару
For i = 1 To n ' цикл, забезпечуючий введення даних
intКод(i) = InputBox("Введіть, будь ласка, код товару", _
Str(i) & "-й товар")
intКількість(i) = CInt(InputBox("Введіть, будь ласка, кількість", _
Str(i) & "-й товар"))
curЦіна(i) = CCur(InputBox("Введіть, будь ласка, ціну одного товару", _
Str(i) & "-й товар"))
Next i
End Sub
Private Sub CommandButton2_Click() ' обчислювання та вивід результату
Dim i As Integer
Dim s As Single ' загальна вартість
s = 0
For i = 1 To n ' цикл, визначаючий вартість
s = s + curЦіна(i) * intКількість(i)
Next i
MsgBox "Вартість становить" & Format(s, "0.00") & "грн"
End Sub
Рис. 64. Форма для першого введення 1-го товару
Рис. 65. Форма для другого введення 1-го товару
Рис. 66. Форма для третього введення 1-го товару
Рис. 67. Форма для першого введення 2-го товару
Рис. 68. Форма для другого введення 2-го товару
Рис. 69. Форма для третього введення 2-го товару
Рис. 70. Форма для першого введення 3-го товару
Рис. 71. Форма для другого введення 3-го товару
Рис. 72. Форма для третього введення 3-го товару
Рис. 73. Підрахована вартість