Проектування додатків з масивами елементів керування та масивами даних

Реалізація проекту в програмному середовищі Visual Basic із застосуванням процесів розгалуження та умовних циклів

Розроблена екранна форма для забезпечення взаємодій користувача та програми на основі її ескізу. На екранній формі розміщіні елементи управління, що забезпечують введення вхідних даних, управління процесом обчислень і виведення результатів розрахунків. Для рішення задачі передбачена обробка різних подій у вигляді програмних кодів приватних процедур. При цьому використовувани різні форми операторів розгалужень і операторів циклів. Зроблен аналіз результатів виконання розробленого проекту (рис. 37).

Рис. 37. Ескіз екранної форми.

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

Згідно з ескізом екранної форми в програмному середовищі Visual Basic реалізована форма, що містить елементи керування для уведення вхідних даних і виводу результатів обробки (рис. 38).

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

Для уведення даних та подання результату розрахунка було використано екранні форми (рис. 40-51).

Рис. 38. Екранна форма для забезпечення взаємодій користувача та програми

Рис. 39. Вікно з програмним кодом

Програмний код:

Option Explicit 'Обов'язковіть описування змінних

Option Base 1 'Нумерація елементів масиву з 1

Const n = 3 'Кілкість видів товарів

Dim strНазва(n) As String 'опис змінних

Dim curОЦ(n) As Currency 'оптова ціна одного товару

Dim intКількість(n) As Integer 'кілкість товарів одного виду

Dim curСобівартість(n) As Currency 'собівартість одного товару

Private Sub CommandButton1_Click() 'уведення даних

Dim i As Integer 'номер товару

For i = 1 To n 'цикл,забеспечуваючий уведення даних

strНазва(i) = InputBox("Введіть, будь ласка, назву товару", _

Str(i) & "-й товар")

curОЦ(i) = CCur(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 sngНадбавка As Single 'надбавка

Dim s As Single 'загальний прибуток

s = 0

For i = 1 To n 'цикл, визначаючий надбавки та прибуток

If curОЦ(i) >= 1 And curОЦ(i) < 50 Then

sngНадбавка = 10

ElseIf curОЦ(i) >= 50 And curОЦ(i) < 100 Then

sngНадбавка = 20

ElseIf curОЦ(i) >= 100 And curОЦ(i) < 200 Then

sngНадбавка = 30

ElseIf curОЦ(i) >= 200 Then

sngНадбавка = 50

End If

s = s + intКількість(i) * (curОЦ(i) - curСобівартість(i) + sngНадбавка)

Next i

MsgBox "Прибуток становить" & Format(s, "0.00") & "грн"

End Sub

Рис. 40. Форма для першого уведення 1-го товару

Рис. 41. Форма для другого уведення 1-го товару

Рис. 42. Форма для третього уведення 1-го товару

Рис. 43. Форма для четвертого уведення 1-го товару

Рис. 44. Форма для першого уведення 2-го товару

Рис. 45. Форма для другого уведення 2-го товару

Рис. 46. Форма для третього уведення 2-го товару

Рис. 47. Форма для першого уведення 3-го товару

Рис. 48. Форма для другого уведення 3-го товару

Рис. 49. Форма для третього уведення 3-го товару

Рис. 50. Форма для четвертого уведення 3-го товару

Рис. 51. Підрахований прибуток

******************************************************************

Дата добавления: 2015-05-24