- •Міністерство фінансів України
- •Інформатика
- •Методичні рекомендації
- •До індивідуальної роботи студентів та
- •Індивідуальні навчально-дослідні завдання
- •За __________ місяць 200__ року
- •За ___ квартал 200__ року
- •За _______________місяць 200__ року
- •За ____ квартал 200__ року
- •За ___ квартал 200__року
- •За _____ семестр 200__/200__ навчального року
- •Крок 1. Обробка табличних даних в ms Excel з використанням довідкових таблиць
- •Крок 2. Сортування табличних даних та формування підсумкових даних у середовищі ms Excel
- •Крок 3. Побудова ділової графіки засобами ms Excel
- •Крок 4. Аналітичні можливості ms Excel (додаткови)
- •Крок 5. Робота з базами даних в ms Access
- •Крок 7. Технологія створення, редагування та використання форм у базі даних ms Access
- •Крок 9. Алгоритмізація задач обробки економічної інформації
- •Крок 10. Реалізація проекту в програмному середовищі Visual Basic із застосуванням процесів розгалуження та умовних циклів
- •Крок 11. Проектування додатків з масивами елементів керування та масивами даних
- •Крок 12. Технологія створення та використання презентацій із застосуванням ms PowerPoint
- •Крок 13. Створення звіту по індз
- •Графік (терміни) виконання індивідуального навчально-дослідного завдання
- •Критерії оцінювання виконання індз наведени у табл. 2, 3.
- •Internet – ресурси
- •Спрощений приклад часткового виконання завдання (кроки 1, 5, 6, 9, 10, 11)
- •Виконання завдання Обробка табличних даних в ms Excel з використанням довідкових таблиць
- •Робота з базами даних в ms Access
- •Створення, редагування та використання запитів у базі даних ms Access
- •Алгоритм задачі обробки економічної інформації
- •Реалізація проекту в програмному середовищі Visual Basic із застосуванням процесів розгалуження та умовних циклів
- •Проектування додатків з масивами елементів керування та масивами даних
- •Програмний код:
Реалізація проекту в програмному середовищі 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. Підрахований прибуток
******************************************************************