Запитання до захисту практичної роботи
Що таке СШІ?
Що таке СППР?
Що таке експертна система?
Яку структуру має експертна система?
За якими правилами нараховується знос основних засобів?
Які функції використовуються при нарахуванні зносу?
Практична робота № 44
Тема: Ведення електронного бізнесу. Створення квитанції на сплату за електроенергію для різних категорій споживачів.
Мета: виробити практичні навички розробки комп‘ютерних програм для автоматизованого створення квитанцій на сплату за електроенергію для різних категорій споживачів засобами MS Excel і VBA.
Технологія виконання роботи
Завдання 1. У середовищі MS Excel cтворити книгу ПР44_<Власне прізвище>, на аркуші Лист1 створити квитанцію згідно зразка(Рис.1). Поля «Квитанції» зв’яжіть з полями «Повідомлення» відносними посиланнями.(наприклад =Е5; П.І.Б. споживача)
Рис.1
1) На аркуші Лист2 створіть список споживачів як показано на Рис.2
Рис.2
2) На аркуші Лист2 створіть список місяців ( Рис.3)
Рис.3
3) На аркуші Лист1 створіть інтерфейс як показано на Рис.4.Для заповнення даних по категоріям споживачів використовуйте Таблицю 1.
Рис. 4
Таблиця 1
ТАРИФИ на електроенергію, що відпускається населенню, в грн.
за 1 кВт•год.
http://kyivenergo.ua/ua/for-consumers/sp-p/2312-2009-04-10
Категорії споживачів |
Тариф |
1. Електроенергія, що відпускається: |
|
1.1.Населенню, яке проживає в житлових будинках, обладнаних у встановленому порядку кухонними газовими плитами |
|
за обсяг, спожитий до 150 кВт∙год електроенергії на місяць (включно) |
0,2802 |
за обсяг, спожитий понад 150 кВт∙год до 800 кВт∙год електроенергії на місяць (включно) |
0,3648 |
за обсяг, спожитий понад 800 кВт∙год електроенергії на місяць |
0,9576 |
для багатодітних, прийомних сімей та дитячих будинків сімейного типу незалежно від обсягів споживання електроенергії |
0,2802 |
1.2. Населенню, яке проживає в сільській місцевості: |
|
за обсяг, спожитий до 150 кВт∙год електроенергії на місяць (включно) |
0,2592 |
за обсяг, спожитий понад 150 кВт∙год до 800 кВт∙год електроенергії на місяць (включно) |
0,3372 |
за обсяг, спожитий понад 800 кВт∙год електроенергії на місяць |
0,9576 |
для багатодітних, прийомних сімей та дитячих будинків сімейного типу незалежно від обсягів споживання електроенергії |
0,2592 |
1.3. Населенню, яке проживає в житлових будинках, обладнаних у встановленому порядку кухонними електроплитами (у тому числі в сільській місцевості): |
|
за обсяг, спожитий до 250 кВт∙год електроенергії на місяць (включно) |
0,2154 |
за обсяг, спожитий понад 250 кВт∙год до 800 кВт∙год електроенергії на місяць (включно) |
0,2802 |
за обсяг, спожитий понад 800 кВт∙год електроенергії на місяць |
0,9576 |
для багатодітних, прийомних сімей та дитячих будинків сімейного типу незалежно від обсягів споживання електроенергії |
0,2154 |
Завдання 2. У вікні редактора VBA створіть програмний код і виконайте програму (кнопка «РОЗРАХУНОК») .
Private Sub CommandButton1_Click()
Dim c As String
Dim P1, P0, P As Variant
'ListBox1.Clear
'ListBox2.Clear
Cells(15, 9) = ""
For i = 1 To 3
Cells(11 + i, 9) = ""
Cells(10, i + 2) = ""
Cells(11 + i, 5) = ""
Cells(11 + i, 10) = ""
Next i
For i = 1 To 12
ListBox2.AddItem Worksheets("Лист3").Cells(i, 1)
Next i
For i = 2 To 11
ListBox1.AddItem Worksheets("Лист2").Cells(i, 2)
Next i
Cells(16, 4) = ListBox2.Text
c = ListBox1.Text
Cells(5, 5) = c
MsgBox c, 0, "Перевірка ідентифікації платника"
For i = 2 To 11
If c = Worksheets("Лист2").Cells(i, 2) Then Cells(6, 5) = Worksheets("Лист2").Cells(i, 3): Cells(1, 5) = Worksheets("Лист2").Cells(i, 4): Cells(2, 5) = Worksheets("Лист2").Cells(i, 5)
Next i
P0 = InputBox("Введіть попередні показники лічильника ", "ПОКАЗНИКИ ЛІЧИЛЬНИКА")
Cells(10, 4) = P0
P1 = InputBox("Введіть поточні показники лічильника ", "ПОКАЗНИКИ ЛІЧИЛЬНИКА")
Cells(10, 3) = P1
Cells(10, 5) = P1 - P0
P = P1 - P0
If CheckBox1 = True And CheckBox2 = True Then
Cells(13, 10) = P * Cells(5, 25)
Cells(13, 9) = Cells(5, 25)
Cells(13, 5) = P
End If
If CheckBox1 = True And CheckBox2 = False Then
Select Case P
Case 0 To 150
Cells(12, 10) = P * Cells(11, 25)
Cells(12, 9) = Cells(11, 25)
Cells(12, 5) = P
Case 151 To 800
Cells(12, 10) = 150 * Cells(5, 25)
Cells(12, 9) = Cells(5, 25)
Cells(12, 5) = 150
Cells(13, 10) = (P - 150) * Cells(7, 25)
Cells(13, 9) = Cells(7, 25)
Cells(13, 5) = P - 150
Case Is > 800
Cells(12, 10) = 150 * Cells(5, 25)
Cells(12, 9) = Cells(5, 25)
Cells(12, 5) = 150
Cells(13, 10) = 650 * Cells(7, 25)
Cells(13, 9) = Cells(7, 25)
Cells(13, 5) = 650
Cells(14, 10) = (P - 800) * Cells(9, 25)
Cells(14, 9) = Cells(9, 25)
Cells(14, 5) = P - 800
Case Else
End Select
End If
Cells(15, 9) = Cells(12, 10) + Cells(13, 10) + Cells(14, 10)
End Sub
Завдання 3. У вікні редактора VBA створіть програмний код для розрахунку сплати за спожиту електроенергію для категорій споживачів 1.2 ,1.3 (Див.таблицю 1) .
Завдання 4. Зберегти та здати роботу викладачу.