Private Sub mnuExit_Click()

End

End Sub

Дію програми вже можна перевірити, тобто можна запустити програму на виконання, завершити роботу програми.

Програма повинна працювати таким чином:

1. Після завантаження програми користувач повинен мати змогу ввести дані для розрахунків.

2. У меню Розрахунок активним є лише пункт Сума тому, що при виконанні розрахунку суми дані про кількість товару в кожному рядку таблиці та суму записуються в масиви змінних Sum, K, в яких по 6 елементів. Обчисленні значення будуть використовуватись для подальших розрахунків. Масиви змінних слід оголосити у розділі General Declaration оператором:

Dim Sum(6), K96)

3. Після розрахунку сум по товарах користувач не повинен мати змогу змінювати значення текстових полів для введення даних, значення властивості Enabled зміниться на False. У меню команда Розрахунок – Сума повинна стати неактивною (значення властивості Enabled елементу меню зміниться на False), а команди Розрахунок – Підсумок, Розрахунок – Середня ціна навпаки повинні стати активними.

4. Після очистки полів таблиці текстові поля для введення даних стають доступними, команда меню Розрахунок – Сума активною, команди меню Розрахунок – Підсумок, Розрахунок – Середня ціна неактивними.

Обов’язкові процедури програми повинні бути такими:

Дані в рядку коду	Коментар
Dim Sum(6), K(6)	Оголошення масивів Sum(6), K(6).
Private Sub mnuTabl_Click()	Процедура виконується, якщо клацнути на пункті Таблицю в режимі Очистити пункту меню Вікно.
For i = 0 To 5	Змінна циклу і використовується для роботи з індексами елементів масивів, тому вона може змінюватись від 0 до 5.
txtN(i).Text = " "	Властивості Text і-го елемента масиву txtN привласнюється значення – порожній рядок.
txtC(i).Text = " "	Знищується вміст чергового поля для введення ціни.
txtK(i).Text = " "	Знищується вміст чергового поля для введення кількості.
txtS(i).Text = " "	Знищується вміст поля для виведення суми.
txtN(i).Enabled = True	Властивості Enabled поля txtN(i) привласнюється значення True, після цього можна буде змінювати значення поля за допомогою клавіатури.
txtC(i).Enabled = True	Можна змінювати значення елементу масиву для введення ціни з використанням клавіатури.
txtK(i).Enabled = True	як у попередньому пункті
Next	І привласнюється значення і+1, якщо і менше або рівно 5, починається наступна ітерація циклу, в іншому випадку цикл завершує свою роботу.

mnuRSum.Enabled = True	Команда меню Розрахунок – Сума стає активною.
mnuRPid.Enabled = False	Команда меню Розрахунок – Підсумок стає неактивною.
mnuRSC.Enabled = False	Команда меню Розрахунок – Середня ціна стає неактивною.
End Sub	Кінець процедури.
Private Sub mnuPid_Click()	Заголовок процедури, які буде виконано якщо в меню обрати команду Вікно – Очистка – Підсумки.
lblPid.Caption = " "	Знищується текст у етикетці lblPid.
lblSC.Caption = " "	Знищується текст у етикетці lblSC.
End Sub	Кінець процедури.
Private Sub mnuRSum_Click()	Заголовок процедури, яка пов’язана з командою меню Розрахунок – Сума.
For i = 0 To 5	Для і, що змінюється від 0 до 5 виконується такі дії:
C = Val(txtC(i).Text)	Змінній С привласнюється значення властивості Text чергового елемента масиву txtC(i), яке при цьому перетворюється з числового на текстове.
K(i) = Val(txtK(i).Text)	Елементу масиву змінних K(i)привласнюється значення, яке введено в елемент масиву полів txtK(i).
Sum(i) = K(i) * C	Елементу масиву змінних Sum(i)привласнюється значення добутку ціни на кількість.
If Sum(i) <> 0 Then	Якщо значення суми, яке отримано, не рівно 0, то
txtS(i).Text = Str(Sum(i))	виводиться значення суми у елементі масиву текстових полів txtS(i).
End If
txtN(i).Enabled = False	Елемент масиву txtN(i) для введення найменувань товарів стає недоступним для подальшого редагування.
txtC(i).Enabled = False	Елемент масиву txtC(i)для введення цін товарів стає недоступним для подальшого редагування.
txtK(i).Enabled = False	Елемент масиву txtК(i) для введення кількості стає недоступним для подальшого редагування.
Next	І привласнюється значення і+1, якщо і менше або рівно 5, починається наступна ітерація циклу, в іншому випадку цикл завершує свою роботу.
mnuRSum.Enabled = False	Команда меню Розрахунок – Сума стає неактивною.
mnuRPid.Enabled = True	Команда меню Розрахунок – Підсумок стає активною.
mnuRSC.Enabled = True	Команда меню Розрахунок – Середня ціна стає активною.
End Sub	Кінець процедури.

Private Sub mnuRPid_Click()	Заголовок процедури, яка пов’язана з командою меню Розрахунок – Підсумок.
Pid = 0	Змінній Pid для накопичення підсумку надається значення 0.
For i = 0 To 5	Для і від 0 до 5
Pid = Pid + Sum(i)	змінній Pid привласнюється значення – попереднє значення Pid + значення поточного елементу масиву змінних Sum(i), в якому зберігаються розраховані суми по товарах.
Next	Перехід до наступної ітерації або кінець циклу.
lblPid.Caption = "Підсумок: " + Str(Pid) + " грн."	Друкування результату в етикетці lblPid.
End Sub	Кінець процедури.
Private Sub mnuRSC_Click()	Заголовок процедури, яка пов’язана з командою меню Розрахунок – Середня ціна.
Pid = 0	Змінній Pid для накопичення підсумку надається значення 0.
Kol = 0	Змінній Kol для накопичення загальної кількості товарів привласнюється значення 0.
For i = 0 To 5	Для і від 0 до 5
Pid = Pid + Sum(i)	змінній Pid привласнюється значення – попереднє значення Pid + значення поточного елементу масиву змінних Sum(i), в якому зберігаються розраховані суми по товарах.
Kol = Kol + K(i)	змінній Kol привласнюється значення – попереднє значення Kol + значення поточного елементу масиву змінних К(i), в якому зберігаються дані про кількість реалізованих товарів по рядках таблиці.
Next	Перехід до наступної ітерації або кінець циклу.
lblSC.Caption = "Середня ціна: " + Str(Pid / Kol) + " грн."	Друкування результату в етикетці lblSC.
End Sub	Кінець процедури.

Для того, щоб встановити правильні значення параметрів, які визначають активність команд меню, слід перейти у вікно редактора меню, для елементів меню встановити такі значення властивості Enabled:

· для елемента mnuRSum (Розрахунок – Сума) – True (включити прапорець, щоб визначити, що пункт меню є активним);

· для елемента меню mnuRPid (Розрахунок – Підсумок) – False (виключити прапорець, режим меню є неактивним, оскільки щоб підрахувати підсумки, слід спочатку обчислити суми реалізації товарів);

· для елемента mnuRSC (Розрахунок – Середня ціна) – False.

Після введення програмного коду програма виконує всі необхідні функції, може бути апробована.

Щоб розширити можливості програми за бажанням можна додати ще один режим меню Параметри. Для цього треба активізувати форму, перейти до редактору меню командою Tools – Menu Editor, у вікні редактору додати до меню такі елементи:

Caption	Name	Структура меню
Параметри	mnuParam	Параметри
Колір	mnuColor	.... Колір
Символ	mnuSimbl	........ Символ
чорний	mnuBlack	............ чорний
синій	mnuBlue	............ синій
червоний	mnuRed	............ червоний
Фон	mnuF	........ Фон
білий	mnuWhite	............ білий
жовтий	mnuYellow	............ жовтий
Шрифт	mnuFont	.... Шрифт
звичайний	mnuNormal	........ звичайний
напівжирний	mnuBold	........ напівжирний

Для зміни кольору символів, фону об’єктів, слід змінювати значення властивостей BackColor – колір фону, ForeColor – колір символів. Це можна зробити за допомогою функції QBColor(), параметрами якої є такі кольори:

Колір	Номер	Колір	Номер
Black	Чорний		Dark Gray	Темно - сірий
Blue	Синій		Light Blue	Голубий
Green	Зелений		Light Green	Світло - зелений
Cyan	Бірюзовий		Light Cyan	Світло - бірюзовий
Red	Червоний		Light Red	Рожевий
Magenta	Фіолетовий		Light Magenta	Світло - фіолетовий
Brown	Коричневий		Yellow	Жовтий
Light Gray	Сірий		White	Білий

Щоб змінювати колір символів, наприклад, на синій слід створити таку процедуру:

Дані в рядку коду	Коментар
Private Sub mnuBlue_Click()	Процедура, яка виконується якщо обрати команду Параметри – Колір – Символ – синій.
mnuBlack.Enabled = True	Пункт меню для вибору чорного кольору символів стає активним.
mnuBlue.Enabled = False	Пункт меню для вибору синього кольору символів стає неактивним.
mnuRed.Enabled = True	Пункт меню для вибору червоного кольору символів стає активним.
lblZ.ForeColor = QBColor(1)	Колір символів етикетки lblZ стає синім (код синього кольору - 1).
For i = 0 To 3	Для і від 0 до 3
lblZag(i).ForeColor = QBColor(1)	кожний і-ий елемент масиву етикеток lblZag змінює свій колір на синій.
Next
lblPid.ForeColor = QBColor(1)	Етикетка для виведення підсумку lblPid змінює колір символів на синій.
lblSC.ForeColor = QBColor(1)	Етикетка для виведення середньої ціни lblSC змінює колір символів на синій.
End Sub	Кінець процедури.

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

Private Sub mnuBlack_Click()	Private Sub mnuRed_Click()
mnuBlack.Enabled = False	mnuBlack.Enabled = True
mnuBlue.Enabled = True	mnuBlue.Enabled = True
mnuRed.Enabled = True	mnuRed.Enabled = False
lblZ.ForeColor = QBColor(0)	lblZ.ForeColor = QBColor(4)
For i = 0 To 3	For i = 0 To 3
lblZag(i).ForeColor = QBColor(0)	lblZag(i).ForeColor = QBColor(4)
Next	Next
lblPid.ForeColor = QBColor(0)	lblPid.ForeColor = QBColor(4)
lblSC.ForeColor = QBColor(0)	lblSC.ForeColor = QBColor(4)
End Sub	End Sub

Перед апробацією цієї гілки меню у вікні редактора меню слід визначити такі значення властивості Enabled:

· для елемента mnuBlack – False (виключити прапорець, щоб визначити, що пункт меню є неактивним);

· для елемента меню mnuBlue - True;

· для елемента mnuRed – True.

Для зміни кольору фону треба створити такі процедури, пов’язані з командами меню Параметри – Колір – Фон – білий (mnuWhite), Параметри – Колір – Фон – жовтий (mnuYellow):

Private Sub mnuWhite_Click()	Private Sub mnuYellow_Click()
mnuWhite.Enabled = False	mnuWhite.Enabled = True
mnuYellow.Enabled = True	mnuYellow.Enabled = False
frmMenu.BackColor = QBColor(15)	frmMenu.BackColor = QBColor(14)
lblZ.BackColor = QBColor(15)	lblZ.BackColor = QBColor(14)
For i = 0 To 3	For i = 0 To 3
lblZag(i).BackColor = QBColor(15)	lblZag(i).BackColor = QBColor(14)
Next	Next
For i = 0 To 5	For i = 0 To 5
txtN(i).BackColor = QBColor(15)	txtN(i).BackColor = QBColor(14)
txtC(i).BackColor = QBColor(15)	txtC(i).BackColor = QBColor(14)
txtK(i).BackColor = QBColor(15)	txtK(i).BackColor = QBColor(14)
txtS(i).BackColor = QBColor(15)	txtS(i).BackColor = QBColor(14)
Next	Next
lblPid.BackColor = QBColor(15)	lblPid.BackColor = QBColor(14)
lblSC.BackColor = QBColor(15)	lblSC.BackColor = QBColor(14)
End Sub	End Sub

Після створення процедур для зміни кольору фону необхідно правильно встановити властивості Enabled для елементів меню:

· для елемента mnuWhite – False (виключити прапорець, щоб визначити, що пункт меню є неактивним);

· для елемента mnuYellow – True.

Встановити напівжирний або звичайний шрифт символів усіх об’єктів форми можна за допомогою властивості FontBold, яка може приймати значення True – напівжирний стиль шрифту, False – звичайний шрифт.

Для зміни шрифтів елементів управління в формі необхідно створити процедури для елементів меню mnuBold (Параметри – Шрифт – напівжирний) і mnuNormal (Параметри – Шрифт – звичайний).

Private Sub mnuBold_Click()	Private Sub mnuNormal_Click()
mnuNormal.Enabled = True	mnuNormal.Enabled = False
mnuBold.Enabled = False	mnuBold.Enabled = True
lblZ.FontBold = True	lblZ.FontBold = False
For i = 0 To 3	For i = 0 To 3
lblZag(i).FontBold = True	lblZag(i).FontBold = False
Next	Next
For i = 0 To 5	For i = 0 To 5
txtN(i).FontBold = True	txtN(i).FontBold = False
txtC(i).FontBold = True	txtC(i).FontBold = False
txtK(i).FontBold = True	txtK(i).FontBold = False
txtS(i).FontBold = True	txtS(i).FontBold = False
Next	Next
lblPid.FontBold = True	lblPid.FontBold = False
lblSC.FontBold = True	lblSC.FontBold = False
End Sub	End Sub

Перед використанням цієї функції програми слід визначити такі значення властивості Enabled для елементів меню:

· для елемента mnuBold – False;

· для елемента mnuNormal – True.

4.3 Контрольні запитання

1. Як створити меню в програмі? Які властивості елементів меню Вам відомі?

2. Що таке масив елементів управління?

3. Коли можна встановлювати значення False властивості Enabled елементу масиву?

4. Як відрізняються між собою елементи масиву об’єктів?

5. Яким чином можна звернутися до окремого елементу масиву?

6. Як оголосити масиви змінних?

7. Як працювати з масивами у коді програми?

4.4 Практичні завдання