II – етап

Для введення тексту необхідних програм існують два способи створення вихідного коду: 1) клацніть мишею на кнопці View Code вікна “проекту” (вікно Piojekt1 frmMex). Відкриється вікно FORM1 (ім'я проектованої форми frmMex ). Відкриємо ліворуч список Object і виберемо в ньому об'єкти для написання коду.

2) Щоб увести вихідний код для визначеного елемента, потрібно виконати подвійний щиглик на елементі. У результаті відкривається вікно коду, у якому міститься заголовок (начало) і останній рядок (кінец) процедури. Дана процедура описує дії, які потрібно виконати, у випадку настання визначеної події.

Створюємо програмний код для задачі:

I. Для оголошення перемінних у вікні коду в списку Object вибираємо General (Загальний розділ), у списку Procedure –Declaration (Оголошення).

Option Explicit

Dim OK, S

II. Процедура, що виконується у випадку щиглика по кнопці «Очищення»

Private Sub cmdО_Click()

lblOK.Caption = "Загальна кількість замовленого холодильного устаткування-"

lblRes.Caption = "Загальна вартість обраного холодильного устаткування-"

hsbOK.Value = 0 (властивості Value лінійки привласнюється значення 0)

End Sub

III. Процедура, що виконується, якщо відбудеться щиглик по кнопці «Розрахунок»

Private Sub cmdR_Click()

If optXO1.Value = True Then (якщо власт. Value перемикача optXO1 має значення)

S = 720 * OK True (Істина, то перемінної S привласнюється зн. 720*ОК) Else Інакше

If optXO2.Value = True Then

S = 850 * OK

Else

S = 1500 * OK

End If

End If Завершення оператора If

lblRes.Caption = "Загальна вартість обраного холодильного устаткування-" + Str(S) В етикетці lblRes видається результат

End Sub

IV. Процедура, що виконується, якщо відбудеться щиглик по кнопці «Вихід»

Private Sub cmdV_Click()

End

End Sub Завершення роботи програми

V. Процедура, що виконується, якщо відбудеться собитие – переміщення бігунка по лінійці

Private Sub hsbOK_Change()

lblOK.Caption = "Загальна кількість замовленого холодильного устаткування-" + Str(hsbOK.Value)

OK = hsbOK.Value (перемінної ОK привласнюється значення обраного числа)

End Sub

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

Private Sub hsbOK_Scroll()

hsbOK_Change (виклик процедури hsbOK_Change)

End Sub

Форма і програми обробки подій підготовлені. Тепер, клацнувши мишею на кнопці Run панелі інструментів головного меню, проект можна відправити на виконання. З'являється спроектована форма, у вікнах якої можна вводити інформацію (рис.4)

Рисунок 4 - Спроектована форма.

Крім введення і висновку інформації, форма відповідає стандарту Windows додатків (реагує на кнопки мінімізації і максимізації, змінює розміри й ін.)

Щиглик на кнопці Вихід панелі інструментів головного меню завершує виконання проекту.