З таким покупцем

У результаті виконання процедури на формі будуть очищені текстові поля TxtОплата, TxtГотівка, TxtРешта й напис LblРезультат.

Реалізація проекту.

1. Запустити на виконання VBA для створення нового проекту.

2. Побудувати форму відповідно до проекту.

3. Двічі клацнути на кнопці "Розрахунок" і у вікні коду в шаблоні процедури CmdРозрахунок_Click ввести відповідні оператори.

4. Двічі клацнути на текстовому полі TxtГотівка й у вікні коду, що відкрилося, в заготовці процедури TxtГотівка_Click зі списку подій, що випадає, замінити подію Click на подію Exit і ввести відповідні оператори в процедуру.

5. Двічі клацнути на кнопці "Очистити" й у вікні коду в заготовці процедури CmdОчистити_Click ввести відповідні оператори.

Аналіз проекту.

Процедура CmdРозрахунок_Click призначена для обчислення вартості товарів, що придбаються.

Для організації повторень по уведенню й обробці даних для кожної покупки використовується цикл Do While … Loop, оскільки заздалегідь не відома кількість покупок.

Для продовження розрахунків за такі види товарів або завершення накопичування вартості (вихід з циклу) використана наступна умова:

MsgBox("Будуть ще покупки?", vbQuestion + vbYesNo, _

"Покупки") = vbYes.

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

Значенням функції є уведене користувачем значення. Воно має строковий тип. Для перетворення в потрібний тип використовуються функції перетворення. Наприклад, CСur (для ціни – у грошовий тип) і CInt (для кількості – у цілий тип).

Якщо користувач не введе інформацію в текстове поле й клацне по кнопці ОК або відмовиться від введення даних клацанням по кнопці Cancel, значенню функції присвоюється «””» (порожній рядок) та формується повідомлення за допомогою наступного оператора:

MsgBox "Нічого не введено! Повторіть спробу!".

Процедура розрахунку решти й виводу результатів, пов'язана з подією TxtГотівка_Exit, запускається при переведенні курсору в будь-яке інше місце форми, що відповідає зняттю фокуса з поля TxtГотівка.

У процедурі підготовки робочого місця до роботи CmdОчистити_Click() використана константа Empty для очищення елементів управління, зв'язаних розрахунками.

Виконання програми й аналіз отриманих результатів.

Потрібно вирішити задачу по визначенню вартості товарів, що придбаються. При цьому передбачити можливість розрахунку решти, а також формування повідомлення у випадку відсутності даних.

На рис. 5.34. показана форма при запуску проекту.

Рис. 5.34. Вигляд форми при її завантаженні

Перед введенням даних про товар наступного виду користувач повинен відповісти на запит за допомогою вікна повідомлень (рис. 5.35).

Рис. 5.35. Вікно повідомлень

Оскільки вхідних даних, які використовуються при вирішенні задачі, може виявитися багато (залежно від кількості видів товару), то вводити їх значення за допомогою текстових полів на формі не представляється доцільним. Для цієї мети звичайно використовують спеціальні діалогові вікна введення.

Введення кількості товару i-го виду здійснюється за допомогою діалогового вікна, що наведено на рис. 5.36, а ціни товару – за допомогою аналогічного вікна (рис. 5.37).

Рис. 5.36. Діалогове вікно введення кількості виду товару

Рис. 5.37. Діалогове вікно введення ціни товару

У випадку якщо дані про ціну і кількість товару не були введені, видається повідомлення про необхідність введення даних (рис. 5.38).

Рис. 5.38. Попередження про необхідність введення даних

Після введення значень ціни товару, його кількості й натискання кнопки Розрахунок на форму виводиться сума до оплати. Отриманий результат вирішення задачі виводиться в діалоговому вікні (рис. 5.39).

Рис. 5.39. Результат вирішення задачі

При натисканні на кнопку Очистити відбувається підготовка касового апарату до роботи.

Розроблений додаток може використовуватися при рішенні різноманітних економічних задач, що містять циклічні процеси.