Перегляд значень у вікні безпосередніх обчислень

Під час роботи над програмами неминуче доводиться витрачати час на пошук помилок, які на жаргоні програміста іменуються багами. У процес -" це відладки (тобто виправлення помилок коду) доводиться досить часто перевіряти значення різних змінних. Вивести значення тих, що цікавлять вас змінних можна декількома способами: розмістити в стратегічно важливих точках програми оператори MsgBox, покластися на метод проб і помилок (потрібно визнати, далеко не кращий спосіб убити час) або вивести їх у вікні безпосередніх обчислень.

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

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

Наступний спосіб - метод проб і помилок. Ви експериментуєте із змінними і їх значеннями до тих пір, поки програма не запрацює. Можливо, при цьому ви зрозумієте, де саме криється помилка, і виправите її, проте ці застосування нерідко змінюються задовго до того, як користувач їх побачить, тому такий спосіб виявляється найскладнішим.

Виведення інформації у вікні безпосередніх обчислень здійснюється за допомогою об'єкту Debug. Ви просто викликаєте для цього об'єкту метод Print, як це зроблено в наступному прикладі:

X = X + 1

Debug.Print x

При цьому у вікні безпосередніх обчислень виводиться поточне значення змінної x. Працювати з об'єктом Debug нескладно, проте він має великі можливості.

Перегляд помилок у вікні безпосередніх обчислень

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

1. Створіть новий проект з формою (File > New Project). Виберіть в діалоговому вікні значок Standard EXE і натисніть кнопку ОК.

2. Двічі клацніть на формі Form1, щоб відкрити вікно програми.

3. Введіть наступний фрагмент в процедурі події Click форми Form1:

Private Sub Form_Click() Dim x As Integer

Задати обробник помилок

On Error GoTo looperr

‘ Цикл до x = 100000

Do While x < 100000

x = x + 1

Loop

‘ Обійти обробник помилок

Exit Sub

looperr:

Debug.Print "Помилка"!

Debug.Print "x = " & Trim$(Str$(x))

End Sub

При запуску цієї програми виникає помилка. Чи вдасться вам знайти її причину?

4. Запустіть програму, клацніть на формі і подивіться, що станеться. Результат показаний на мал. 9.1:

Мал. 9.1. Вікно безпосередніх обчислень з інформацією про помилку.

Якщо ви не читали урок 7 або не пам'ятаєте, чим розрізняються типи змінних, швидше за все, причина помилки здасться вам досить загадковою. Вся річ у тому, що ми спробували присвоїти цілій змінній значення, що виходить за межі допустимого інтервалу. У цілих змінних можуть зберігатися числа від - 32 768 до 32 767. Оскільки ми намагаємося збільшити значення x до 100 000, помилка виникає у той момент, коли воно досягає 32 768. У подібних ситуаціях слід оголошувати змінну x з типом Long.