Висновки

Даний курсовий проект був виконаний у повній відповідності поставленому завданню. В результаті його виконання отримали програму для обробки даних що надаються РЕМ, також програма дозволяє визначити споживачів що перевищили норму споживання повної потужності.

Під час виконання даної роботи були вивчені способи роботи з файлами, масивами, циклами та іншими можливостями VBA.

Програма для свого використання потребує мінімальних знань мови програмування, що робить її доволі доступною для використання.

Література

1. Дудзяний І.М. Програмування мовоюVisualBasicVBA. Навчальний посібник. - Львів: Видавничий центр ЛНУ імені Івана Франка. 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