|
Читайте также: |
Даний курсовий проект був виконаний у повній відповідності поставленому завданню. В результаті його виконання отримали програму для обробки даних що надаються РЕМ, також програма дозволяє визначити споживачів що перевищили норму споживання повної потужності.
Під час виконання даної роботи були вивчені способи роботи з файлами, масивами, циклами та іншими можливостями VBA.
Програма для свого використання потребує мінімальних знань мови програмування, що робить її доволі доступною для використання.
ЛІТЕРАТУРА
1. Дудзяний І.М. Програмування мовою Visual Basic VBA. Навчальний посібник. - Львів: Видавничий центр ЛНУ імені Івана Франка. 2004. - 240 с.
2. Гарань А.Ю. Самовчитель VBA - СПб.: БХВ - Санкт-Петербург, 2000 р. - 512.
3. Гірських Е. Н. - Навчальний посібник В«Програмування на VBAВ» 2003.
Додаток А
Текст програми
Sub test()
Dim ID(1 To 20) As Long
Dim nasv(1 To 20) As String
Dim pnom(1 To 20) As Double
Dim qnom(1 To 20) As Double
Dim s As String
Dim x As Long
Dim k As Long
Dim a As String
Dim idmin As Long
Dim max As Double
Dim min As Double
Dim perev As Double
Dim pf(1 To 20) As Double
Dim qf(1 To 20) As Double
Dim snom(1 To 20) As Double
Dim sf(1 To 20) As Double
Dim im(1 To 20) As String
Open "D:\OT OM\basa.txt" For Input As #1
Line Input #1, s
For i = 1 To 20
Input #1, ID(i), pnom(i), qnom(i), nasv(i)
Next i
Close #1
For k = 1 To 5
Open "D:\OT OM\rem" & k & ".txt" For Input As #1
Line Input #1, a
Line Input #1, s
For i = 1 To 4
Input #1, x
For j = 1 To 20
If ID(j) = x Then
Input #1, pf(j), qf(j)
im(j) = a
Exit For
End If
Next j
Next i
Close #1
Next k
For i = 1 To 20
snom(i) = Sqr(pnom(i) ^ 2 + qnom(i) ^ 2)
sf(i) = Sqr(pf(i) ^ 2 + qf(i) ^ 2)
Next i
Worksheets("Лист1").Cells(1, 2).Value = " Відомісь про споживачів що перевищили задану потужність"
Worksheets("Лист1").Cells(2, 1).Value = " ID споживача"
Worksheets("Лист1").Cells(2, 2).Value = " Назва споживача"
Worksheets("Лист1").Cells(2, 3).Value = " Hорма споживання повної потужності"
Worksheets("Лист1").Cells(2, 4).Value = " Фактичне споживання повної потужності"
Worksheets("Лист1").Cells(2, 5).Value = " Назва РЕМ"
k = 3
For i = 1 To 20
If sf(i) > snom(i) Then
Worksheets("Лист1").Cells(k, 1).Value = ID(i)
Worksheets("Лист1").Cells(k, 2).Value = nasv(i)
Worksheets("Лист1").Cells(k, 3).Value = snom(i)
Worksheets("Лист1").Cells(k, 4).Value = sf(i)
Worksheets("Лист1").Cells(k, 5).Value = im(i)
k = k + 1
End If
Next i
max = 0
For i = 1 To 20
If sf(i) > snom(i) Then
perev = (sf(i) - snom(i)) / snom(i) * 100
If perev > max Then
max = perev
min = perev
End If
End If
Next i
Worksheets("Лист1").Cells(k, 1).Value = max
Worksheets("Лист1").Cells(k, 2).Value = " Максимальне відносне перевищення норми споживання, %"
For i = 1 To 20
If sf(i) > snom(i) Then
perev = (sf(i) - snom(i)) / snom(i) * 100
If perev < min Then
min = perev
idmin = i
End If
End If
Next i
Worksheets("Лист1").Cells(k + 1, 1).Value = ID(idmin)
Worksheets("Лист1").Cells(k + 1, 2).Value = "ІД споживача з мінімальним відносним перевищенням норми споживання, %"
End Sub
Додаток Б
Контрольний приклад
Рисунок Б.1 – Вигляд файлу бази даних
Рисунок Б.2 – Вигляд файлу «1.txt» РЕМу із даними про споживачів
Рисунок Б.3 – Вигляд файлу «2.txt»
Рисунок Б.4 – Вигляд файлу «3.txt»
Рисунок Б.5 – Вигляд файлу «4.txt»
Рисунок Б.6 – Вигляд файлу «5.txt»
Рисунок Б.7 – Вигляд відомості на робочому листі
Дата добавления: 2015-09-11; просмотров: 86 | Поможем написать вашу работу | Нарушение авторских прав |
| <== предыдущая лекция | | | следующая лекция ==> |
| ОПИС ПРОГРАМИ | | | С чего начинается Родина? |