Лабораторна робота № 16

Тема: Кольорове оформлення форми та перенесення даних з форми в документ MS Excel.

Мета: Навчити студента оформляти форму користувача в кольорі та вміти переносити дані з форми в документ Excel.

Завдання:

1. За допомогою VBA в книзі MS Excel створіть форму з назвою Платежі для здійснення розрахунку розмірів комунальних платежів:

• Оплати за електроенергію, якщо відомо значення показників лічильника на початок і кінець періоду та вартість 1кВт енергії: _____ грн.

• Оплати за гарячу та холодну воду, якщо відомо значення показників лічильників на початок і кінець періоду та вартість 1м³ холодної води: _____ грн. та 1 м³ гарячої води: ______ грн.

• Квартплату, якщо відома площа квартири _____ м² та вартість 1м² площі _____ грн.

• Розрахувати загальну суму оплати за комунальні послуги.

2. Створена форма повинна мати – заголовок Розрахунок комунальних платежів та містити:

• мітку з інформацією про виконавця (платника): – прізвище, ім’я, групу, курс, адресу місця проживання;

• мітку з інформацією про номер варіанту;

• текстові поля для введення початкових даних;

• текстові поля для виведення результатів;

• кнопку Розрахунок, при натисканні на яку здійснюється розрахунок комунальних платежів.

3. Здійсніть кольорове оформлення форми та об’єктів на ній (скористуйтесь властивостями: BackColor та ForeColor):

• задайте колір міток;

• задайте колір фону форми;

• задайте колір фону кнопки;

• задайте колір шрифтів;

4. Змініть створений програмний модуль так, щоб результати зберігалися в книзі MS Excel.

5. Створіть звіт, в який включіть код створеного модуля, екранну форму з результатами роботи модуля та відповідями на питання.

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

1. Які об’єкти були використані в роботі, їх властивості та методи?

2. Як виконано кольорове оформлення об’єктів?

3. Опишіть алгоритм побудови модуля з формою в редакторі VBА.

4. Опишіть алгоритм додавання кнопки на форму та призначення певної події.

Відповіді на контрольні запитання дати в окремому зошиті

Лабораторна робота № 17

(з індивідуальним завданням)

Тема: Підпрограми і функції в програмах VBA.

Мета: Навчити студентів будувати програми з використанням

підпрограм і функцій користувача.

Постановка задачі: За визначенням, додаткова вигода споживача – це різниця між гіпотетичними затратами споживачів, які могли б бути і реальними затратами в умовах ринку. Якщо позначити додаткову вигоду через С, то

де Р₀ – рівноважна ціна, а Q₀ – реалізована по цій ціні кількість товару,

f(Q) – крива попиту.

Потрібно знайти вигоду покупця, якщо крива попиту задана рівнянням P=f(Q)=29-3Q², а рівноважна кількість товару Q₀=2.

Завдання 1: Створити модель VBA з програмою розрахунку вигоди покупця для заданої кривої попиту. Модуль повинен містити підпрограму для розрахунку інтеграла, підпрограму-функцію для обчислення значень підінтегральної функції.

Зауваження: розрахунок інтеграла проводити методом прямокутників.

Хід роботи

1. Завантажити MS Excel. Створити новий Робочий лист поточної робочої книги.

2. Зайти в редактор Visual Basic і додати до проекту модуль командою Вставка – Модуль.

3.У вікні програми ввести код:

Private Const Q0 = 2

‘Q0 – рівноважна кількість товару, s – результат інтегрування

Private s As Single ‘функція доступна тільки для процедур цього модуля

Private Function func(x) As Single func = 29 – 3*x^3 End Function

‘підпрограма інтегрування функції Sub integ() ‘кількість інтервалів на які розбивається область інтегрування n = 200 s = 0 x = 0 For i = 1 To n – 1 s = s + func(x)*Q0 / n x = x + Q0 / n

Next i End Sub

‘головна підпрограма

Sub main()

Call integ

MsgBox “Додаткова вигода споживача =” & Str(s – Q0*func(Q0))

End Sub

4. Створити кнопку для запуску процедури main на панелі інструментів, для цього необхідно: зайти в меню Вид – Панели инструментов – Настройка у вкладці Команды обрати категорію Макросы у вікні команди обрати Настраиваемая кнопка та перетягнути її на стандартну панель інструментів, після чого виділити її правою кнопкою миші і у вікні, що з’явилося обрати Назначить макрос … та обрати ім’я макросу який буде виконуватися при натисканні на кнопку.

5. Прослідкуйте порядок переходу послідовності виконання рядків програми за допомогою покрокового виконання програми. Для цього в редакторі VB розмістіть курсор на будь-якому рядку процедури main і натисніть клавішу F8 або із меню Debug (Отладка) виконайте команду Step info (Шаг с захватом). Після цього перший рядок процедури Sub main() стане виділеним жовтим кольором, а зліва від нього з’явиться стрілка, послідовно натискайте F8 і побачите процес виконання всієї програми.

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

Завдання для виконання роботи:

1. Дослідіть, як результат розрахунку додаткової вигоди споживача залежить від n і побудуйте лінійну діаграму в Excel.

2. Відредагуйте програму так, щоб рівноважна кількість товару Q₀ задавалась користувачем.

3. Збережіть результати роботи в своїй робочій книзі та роздрукуйте результати досліду та одержану лінійну діаграму.

4. Захистіть результати роботи у викладача.

Завдання 2: Створити програму обчислення значення функції Z, використовуючи прийом програмування із зверненням до підпрограми типу Function. Формат і значення змінних обирати довільно.

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

1. Як створити модуль в редакторі VBA?

2. Як задати константу?

3. Що таке функція, методи звертання до функції?

4. Як прослідкувати процес послідовного виконання програми?

Відповіді на контрольні запитання дати в окремому зошиті