End Sub

Щоб уникнути помилок в іменах елементів, слід вводити префікс і потім натискати комбінацію клавіш <Ctrl + J>. Зі списку, що з’явиться, вибрати потрібне ім’я й натиснути клавішу <Tab> або <пробіл>, щоб встановити його в код процедури.

1. Зберегти форму й проект у підпапці Каса своєї папки під однойменною назвою.

Ø Тестування

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

Наприклад: Ціна = 5; Кількість = 4; Вартість повинна бути 20;

Ціна = 5,25; Кількість = 4; Вартість повинна бути 21.

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

Ø Аналіз програми

На цьому етапі складання програми слід подумати про інші варіанти вирішення поставленої задачі. При потребі можна її вдосконалити, змінивши, можливо, інтерфейс чи методи обчислень. Наприклад дану задачу можна також розв’язати без командної кнопки. Процес обчислення вартості можна пов’язати з подією зміни значення (Change) у текстових полях txtЦіна й txtКількість.

Код програми має вигляд:

Private Sub txtЦіна_Change ()

lblВартість = txtЦіна * txtКількість

End Sub

Private Sub txtКількість_Change ()

txtЦіна_Change

End Sub

Перша процедура створюється шляхом подвійного клацання на текстовому полі txtЦіна і введення рядка коду:

lblВартість = txtЦіна * txtКількість

Друга – подвійним клацанням на текстовому полі txtКількість, а потім копіюванням заголовка з першої процедури в тіло другої. Такий запис говорить про те, що при зміні значення в текстовому полі txtКількість виконуються ті самі дії, що й при зміні текстового поля txtЦіна.

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

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

Створити exe-файл під назвою Каса, зберігши йогоу однойменній підпапці. Вимкнути VB-6 й, відкривши підпапку Каса, запустити додаток (програму) Каса.exe на виконання. Перевірити правильність обчислень, вводячи будь-які дійсні значення в текстове поле «Ціна» й цілі значення – в поле «Кількість».