1332231791

формулювання питань із відповідями True або False. Опера­

ції порівняння також «задають» питання з відповідями True або False. Якщо відповідь на таке питання буде True, виконуються певні дії; якщо False — ні.

Умовний оператор

Ви, мабуть, помітили, що я в прикладах застосовую слова «якщо» (Іf) та «тоді» (Then)? Якщо певна умова виконується (True), тоді щось відбувається; а якщо умова не виконується (False), нічого не відбувається. Коли ви хочете запрограмувати процес прийняття рішення, то також використовуєте оператор Іf...Then. У Visual Basic .NET його синтаксис має такий вигляд:

Іf умова Then

оператор

End Іf

Ось приклад коду Visual Basic .NET:

If myAge = 3 Then

MessageBox.Show("Мені 3 роки.")

End If

Зверніть увагу на слово If. Це ключове слово мови Visual Basic .NET, і тому середовище Visual Studio виділяє його в тексті програми синім кольором. Умова зазначається відразу після

слова If. У ній формулюється питання, що припускає відповідь True чи False: «чи змінна myAge дорівнює 3?» Якщо

твердження істинне, треба щось зробити. Зауважте, що слово Then записане після умови. Це також ключове слово Visual Basic .NET, яке в тексті програми виділяється синім кольором. Після цього слова записується оператор, що виконуватиметься в разі істинності умовного твердження. Тепер перед цим оператором ми зробили відступ, щоб легше було читати код. Якщо умова виконується, програма виводить на екран вікно повідомлення з текстом "Мені 3 роки.". Зауважте, що після оператора виведення повідомлення стоять слова End If. Це ключові слова, якими закінчується оператор If.

Тепер ваша черга! Напишіть нову Windows-програму, що матиме назву IfThen. Додайте до форми Form1 текстове поле і кнопку. Двічі клацніть кнопку, щоб змінити код обробника події клацання. Додайте такі рядки коду:

Dim myAge As Integer

myAge = 3

If myAge = 3 Then

TextBox1.Text = "Мені 3 роки."

End If

Побудуйте та запустіть проект. Клацніть кнопку. У коді оголошується myAge, якій присвоюється значення 3. В операторі

If формулюється питання, що припускає відповідь True або False: чи myAge = 3? Відповіддю буде True, бо ви щойно

надали відповідне значення змінній myAge: myAge = 3. Оскільки відповідь на питання — True, виконується оператор,

записаний після слова Then. У текстовому полі буде виведено текст "Мені 3 роки.".

Тепер змінимо оператор присвоєння, надавши змінній myAge значення 2:

myAge = 2

Побудуйте та запустіть проект знову. Клацніть кнопку. Що від­ бувається? Цього разу змінній myAge присвоїли значення 2. В операторі If міститься питання: чи myAge дорівнює трьом? Цього разу відповідь — False, тому оператор після слова Then не виконується. Нічого не відбувається. Текст у текстовому полі не змінився, бо умова є хибною.

Розглянемо інший приклад. До форми Form1 додайте прапорець. Змініть код обробника події клацання кнопки. Замініть наявний код таким:

If CheckBox1.Checked = True Then

TextBox1.Text = "Мене встановлено."

End If

Побудуйте та запустіть проект. Установіть прапорець та клацніть кнопку. Умова CheckBox1.Checked = True є істинною

(бо ви встановили прапорець), тому в текстовому полі відоб-

разиться текст "Мене встановлено.".

Побудуйте та запустіть проект знову. Цього разу зніміть прапорець та клацніть кнопку. Що сталося? Умова є хибною (тому що ви зняли прапорець), тому текст залишився без змін. Ваша програма «вирішувала», чи змінювати значення атрибу­ та Text, спираючись на результат перевірки умови (встановлено прапорець чи ні).

Вам слід виділяти відступами всі оператори між рядками If...Then та End If — тоді код буде легше читати та розуміти. Навіть якщо такий оператор один, його слід виділити. За стандартних настройок Visual Stu­

dio .NET створює відступи автоматично.

Застосування кількох умовних операторів

Імовірно, вам знадобиться, щоб під час виконання програми було прийнято кілька рішень щодо подальших дій. Наприклад, вам потрібно, перевіривши стан прапорця, а після цього перемикача, порівняти два числа та визначити, чи користувач залишив текстове поле порожнім. Багато ви хочете від програми! Чи може програма все це зробити? На щастя, може. Ви можете додати стільки операторів If...Then, скільки потрібно. Як і будь-які інші оператори, вони виконуються в тому порядку, в якому розташовані в коді. Напишемо програму, в якій використовуватиметься більше ніж один оператор If...Then.

Припустімо, що в нашій програмі є прапорець Відображати всі аварійні сигнали. Якщо його встановлено, програма змінює фоновий колір форми на червоний та текст у полі на «Сигнал тривоги», а потім відображає вікно повідомлення з текстом «Небезпека! Небезпека!». Один із варіантів такої програми передбачає використання трьох окремих операторів If...Then. В умові кожного з них перевірятиметься, чи встановлено пра-

порець Відображати всі аварійні сигнали. Якщо умова є істинною,

буде виконано певний код.

Створіть новий проект і назвіть його FireAlarm (Пожежна три­

вога). Додайте прапорець, текстове поле та командну кнопку до форми Form1. Змініть значення атрибута Text кнопки Button1 на Три оператори If. Двічі клацніть кнопку Button1, щоб змі-

нити обробник події клацання цієї кнопки. Додайте такий код.

1.Створіть форму та назвіть її Подарунки. Додайте до неї написи Основний подарунок та Супутній подарунок.

2.Помістіть до форми поле зі списком (згадуємо день 4). Надайте його атрибуту Text значення Оберіть подарунок. Заповніть колекцію Items подарунками, список яких на­ ведено нижче, або скористайтеся власними ідеями щодо подарунків.

3.Додайте до форми текстове поле. Зробіть його багаторяд­ ковим.

4.Зробіть так, щоб після того, як подарунок буде обрано, в полі зі списком текстове поле заповнювалося назвами принаймні двох інших речей, що доповнюватимуть основ­ ний подарунок. Ви можете використати наведені нижче варіанти або вигадати власні.

Значення атрибута SelectedIndex дорівнює номеру обраної речі (починаючи з нуля).

Атрибут SelectedItem містить назву обраної речі.

За потреби відображати фрази в окремих рядках текстового поля вставте між ними спеціальну константу vbNewLine:

TextBox1.Text = "A" & vbNewLine & "B"

Звичайно, A та B слід замінити назвами подарунків.

Код, вкладений в умовний оператор

Ви помітили, що у програмі FireAlarm для всіх операторів If...Then використовувалася одна умова? А саме:

If CheckBox1.Checked = True Then

Різними були лише оператори всередині конструкції If...End If. Чи не забагато повторень? Може є простіший спосіб запису того самого коду? Звичайно, є! За допомогою Visual Basic .NET і більшості сучасних мов програмування можна записувати довільну кількість будь-яких операторів усередині оператора If...End If. Для цього використовують такий синтаксис:

If умова Then

оператор 1 оператор 2

оператор N

End If

Знаючи це, ми можемо переписати код, що використовувався у програмі FireAlarm. Спростимо його шляхом видалення операторів, які повторюються. Відкрийте програму FireAlarm. До-

дайте другу командну кнопку до форми Form1. Змініть значення атрибута Text цієї кнопки на Один оператор If і двічі клац-

ніть її, щоб відредагувати обробник події клацання. Додайте такий код:

If CheckBox1.Checked = True Then Form.ActiveForm.BackColor = System.Drawing.Color.Red

TextBox1.Text = "Сигнал тривоги"

MessageBox.Show("Небезпека! Небезпека!")

End If

Побудуйте та запустіть проект. Установіть прапорець і клацніть кнопку Один оператор If. Перевіряється одна умова. Вона є іс­ тинною, тому всі оператори всередині If...End If виконуються так само, як і раніше, по черзі. Програма працює, як і раніше, проте виконання трьох операторів залежить від істинності

лише однієї умови! Використовуючи одну умову між словами If та Then із кількома операторами між Then та End If можна

скоротити обсяг коду та зробити його зрозумілішим.

Вибір із кількох операторів

Пригадуєте приклад про замовлення безалкогольного пива, коли необхідно було відповідати на питання лише «так» або «ні»? Офіціант задавав багато питань із двома варіантами

а потім здійснює відповідне присвоєння, щоб змінити колір форми та елементів керування.

Застосування логічних операторів

Ми вже говорили про те, як можна використовувати булеві операції для з’єднання виразів булевої логіки. Погляньмо на приклад, в якому застосовується булева операція AND для створення складної умови. Ми змінимо програму ChooseAColor, додавши прапорець, що активуватиме та дезактивуватиме функцію змінення кольору. Для створення складнішої умови, що враховує стан прапорця, коли приймається рішення про необ­

хідність змінення кольору, потрібно застосувати булеву опера­ цію AND.

Відкрийте програму ChooseAColor. Додайте до форми Form1 прапорець. Змініть значення його атрибута Text на Активу­­ вати кольори. Замініть код обробника події клацання кнопки Button1 таким кодом:

Dim myColor As System.Drawing.Color

If RadioButton1.Checked = True And CheckBox1.Checked Then

myColor = System.Drawing.Color.Red

End If

If RadioButton2.Checked = True And CheckBox1.Checked Then

myColor = System.Drawing.Color.Yellow

End If

If RadioButton3.Checked = True And CheckBox1.Checked Then

myColor = System.Drawing.Color.Green

End If

Form.ActiveForm.BackColor = myColor

Створіть та запустіть проект. Клацніть кнопку Зробити кольо-­ ровою. Нічого не відбувається! Колір не змінився. Тепер установіть прапорець Активувати кольори та знову клацніть кнопку Зробити кольоровою. Форма та елементи керування зробляться червоними. Чому це відбувається? До умови в кожному виразі з оператором If...Then ми додали такий код:

And CheckBox1.Checked

Цей код еквівалентний такому:

And CheckBox1.Checked = True

Коли користувач клацає кнопку Оцінити результати, додаються числа, що містяться в шести текстових полях. Оскільки вміст текстового поля є рядком, а не числом, для виконання операції додавання вам доведеться перетворити рядок на число. У Visual Basic .NET зробити це можна кількома способами. Ось один із них.

X = Val(TextBox1.Text)

Функція Val перетворює значення, що записане як текстовий рядок, на число. Ви можете надати це значення змінній, наприклад, змінній x. Потім, аналізуючи значення змінної x за допомогою операторів If...Then, визначте, яке повідомлення виводитиметься в текстове поле:

Якщо x більше або дорівнює 40, виведіть у текстове поле повідомлення про те, що користувач здатен зробити блискучу кар’єру програміста.

Якщо x належить діапазону від 20 до 39, порадьте користувачу пройти курс програмування.

Якщо x менше 20, порадьте користувачу знайти іншу професію.