Мал. 7.7. Форма для реєстрації користувачів.

8. Відкрийте вікно програми подвійним клацанням на формі Form1.

9. Розташуєте курсор зліва від рядка Option Explicit секції(Decla - rations) форми Form1.

10. Двічі натисніть на клавішу Enter, щоб вставити перед Option Explicit два порожні рядки.

11. Введіть наступний рядок над Орtion Explicit:

Private Password As String

12. Відкрийте процедуру події Load форми і додайте наступний фрагмент:

Private Sub Form_Load()

InitApp

txtUderID.Text = UserID

txtPassword.Text = ""

End Sub

13. У вікні програми відкрийте процедуру події Click кнопки cmdLogon і додайте в неї наступний фрагмент:

Private Sub cmdLogon_Click()

Dim msg As String

UsertID = txtUser.Text

Password = txtPassword.Text

msg = "Ім'я користувача: " & UserID & Chr$(13)

msg = msg & "Пароль: " & Password & Chr$(13)

msg = msg & "ACL: " & Str$(ACL)

End Sub

14. Запустіть програму командою Run > Start.

Зверніть увагу на те, що в полі Ім'я користувача міститься ім'я "Джо". Це значення було узяте з глобальної строкової змінної з ім'ям UserID. Змінна не оголошується в процедурі події Form_Load, вона оголошена глобальною в модулі Module1.

Змінна для зберігання пароля також заслуговує на увагу. Вона була оголошена в секції(Declarations) форми. Звертатися до неї можуть тільки функції цієї форми. Це важливо, тому що інша частина програми не має права змінювати пароль користувача. Говорять, що змінна пароля доступна лише в модулі форми.

Введіть будь-який текст в поле Пароль: і натисніть кнопку Реєстрація. Процедура події Click використовує змінні модуля і глобальні змінні для відображення інформації про користувача.

Ключове слово Static

Окрім змінних рівня процедури (Dim) існує ще один спосіб оголошення змінних - з ключовим словом Static:

Static X As Integer

Це означає, що змінна зберігатиме останнє присвоєне нею значення навіть після завершення процедури. Статичні змінні зручні для зберігання поточного значення накопичуваної суми. Якщо пропустити ключове слово Static (і скористатися замість нього Dim), то при кожному запуску процедури змінна обнулюватися разом з іншими числовими змінними. Розглянемо наступний приклад, в якому показана статична змінна у дії. Відвідаєте кафетерій Sybex і замовте в нім усе, що вам завгодно. Кава подається безкоштовно, але попереджаю - туалету тут немає! Якщо ви відчуваєте спрагу або потребуєте "хорошої дози кавового допінга", поступите так:

1. Створіть новий проект типу Standard EXE.

2. Задайте властивості Caption форми Form1 значення Кафетерій Sybex.

3. Створіть напис в середині верхньої частини форми. У вікні властивостей задайте її властивості Name значення lblQuantity, а властивості Caption - значення Замовлене каві;0.

4. Створіть кнопку під написом lblQuantity. Задайте її властивості Name значення cmdAdd, а властивості Caption - значення &Принесіть ще!.

5. Двічі клацніть на кнопці cmdAdd в конструкторі форм, щоб відкрити вікно програми.

6. Вставте наступний код в процедуру події Click кнопки cmdAdd:

Private Sub cmdAdd_Click()

Static count As Integer

count = count + 1

lblQuantity = "Замовлений каві:" & Str$(count)

End Sub

7. Запустіть програму і натисніть кнопку, щоб замовити будь-яку кількість чашок кави.

Змінна count в процедурі події Click оголошена статичній (Static), завдяки чому її значення зберігається між подіями. В результаті змінна пам'ятає, скільки чашок кави ви встигли замовити.

Масиви

Масиви можна вважати різновидом змінних, проте в них зберігається відразу декілька значень. Наприклад, електронна таблиця є масивом осередків. Масив можна використовувати для зберігання записів невеликої бази даних або червоного, зеленого і синього (RGB) компонентів растрового зображення. Хоча масиви використовуються дещо рідше за змінних, вони відіграють важливу роль в розробці програм. У наступному прикладі оголошується масив чисел цілого типу, а потім його елементам привласнюються значення:

Static X(2) As Integer

X(0) = 7

X(1) = 99

X(2) = 123

Для обробки масивів часто застосовується цикл For..Next, в якому в якості лічильника використовується цілочисельна змінна (мал. 7.8):

Dim Y As Integer

For Y = 0 To 2

Print X(Y)

Next Y