Мал. 6.8. Створення масиву елементів.
21. Розташуйте нове текстове поле праворуч від першого.
22. Знову клацніть на формі і натисніть Ctrl+V, щоб вставити з буфера наступне текстове поле. Розташуєте його праворуч від полів, створених при виконанні кроків 20 і 21.
Ми створили ряд з трьох текстових полів. Продовжуйте вставляти на форму копії текстового поля і розташуєте їх у вигляді таблиці, що складається з трьох стовпців і п'яти рядків. Форма з 15 текстовими елементами повинна виглядати так, як показано на мал. 6.9.
23. Виберіть команду For..Next з меню Цикли форми frmMain. Відкривається вікно програми з процедурою події mnuLoopForNext_Click.
24. Вставте в процедуру наступний фрагмент:
Private Sub mnuLoopForNext_Click()
Dim i As Integer
‘ Заповнити текстові поля в циклі
For..Next For i = 0 to 14
txtTextBox(i).Text = "i = " & Trim$(Str$(i))
Next
End Sub
Мал. 6.9. Форма з масивом текстових полів.
25. Перейдіть до процедури події mnuDoLoop_Click і вставте в неї наступний фрагмент:
Private Sub mnuDoLoop_Click()
Dim i As Integer
‘ Заповнити текстові поля в циклі For..Next
i = 0
Do While i < 15
txtTextBox(i).Text = "i = " & Trim$.(Str$(i'))
i = i + 1
Loop
End Sub
26. Вставте наступний фрагмент в процедуру події mnuWhileWend_Click:
Private Sub fnnuWhileWend_Click()
Dim i As Integer
‘ Заповнити текстові поля в циклі For..Next
i = 0
While i < 15
txtTextBox(i).Text = "i = " & Trim$(Str$(i))
i = i + 1
Wend
End Sub
27. Вставте наступний фрагмент в процедуру mnuLoopClear_Click:
Private Sub mnuWhileWend_Click()
Dim x As Control
‘ Перебрати усі текстові поля на формі
‘ і стерти їх вміст
For Each x In frmMain.Controls
If UCase$(Left$(x.Name, 3)) = "TXT" Then
x.Text = ""
End If
Next
End Sub
28. Збережіть і запустіть проект.
Виберіть один з циклів, перерахованих в меню Цикли, і простежите за зміною текстових полів. Усі типи циклів дають однаковий результат, але різними способами (мал. 6.10). Як ви незабаром переконаєтеся, одне і те ж завдання в програмуванні може вирішуватися по-різному. Простеживши за роботою циклів, виберіть з меню Цикли команду Очистити. Програма перебирає усі об'єкти на формі і очищає властивість Text кожного текстового поля. Запам'ятаєте цей прийом, він згодиться вам при створенні ваших власних застосувань.
Мал. 6.10. Приклад роботи з циклами. Що нового ми дізналися?
Працювати з двійковою логікою.
Використовувати логічні оператори Visual Basic для обробки умов.
Використовувати умовні оператори для ухвалення рішень.
Використовувати різні типи циклів для виконання дій, що повторюються.
Створити "думаючого" додатка.
Урок 7. Змінні
Типи змінних
Змінні
Масиви
Константи
Будь-яке застосування в тій або іншій формі обробляє дані. Отже, ви повинні добре розбиратися в тому, як представляються і використовуються дані. У цьому уроці розказано про те, як дані зберігаються в пам'яті комп'ютера і як працювати з ними за допомогою різних типів (у тому числі змінних, масивів і констант). Ви дізнаєтеся, які типи даних краще підходять для конкретних завдань, як динамічно створювати нові дані і визначати константи, що спрощують програмування.