Порівняння

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

Перевірка умови "рівно"

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

If x = 3 Then

MsgBox "Значення x дорівнює 3"

End If

Оцініть красу Visual Basic - програма виходить дуже схожою на простий англійський текст. Цей фрагмент можна було б сформулювати словами:

Якщо значення x дорівнює 3, то вивести діалогове вікно.

Як правило, програмістові доводиться вирішувати протилежну задачу і перетворювати слова на текст програми. На щастя, програма приносить більше користі, чим простий текст на листку паперу!

Щоб наочно познайомитися з тим, як виконується перевірка дати, розглянемо наступний приклад. У нім ми перевіряємо дату і виводимо відповідне повідомлення:

1. Створіть новий проект командою File > New Project.

2. У діалоговому вікні New Project виберіть значок Standard EXE. Натисніть кнопку ОК.

3. Задайте властивості Name форми Form1 значення frmMain, а властивості Caption - значення Виберіть число.

4. Створіть на формі дві кнопки.

5. Задайте властивості Name першої кнопки значення cmdGetSecretNumber, а властивості Caption - значення Загадати &число.

6. Задайте властивості Name другої кнопки значення cmdGuess, a властивості Caption - значення &Вгадати.

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

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

Private Sub Form_Load()

Загадати число

SecretNumber = GetSecretNumber()

End Sub

9. Вставте наступний рядок в секцію(Declarations) форми frmMain:

Option Explicit

Private SecretNumber As Integer

10. Перейдемо до створення функції GetSecretNumber(), яка є одним з найважливіших компонентів додатка. Вставте наступний фрагмент в секцію(Declarations):

Private Function GetSecretNumber() As Integer

' Загадати число від 1 до 10

Randomize

GetSecretNumber = Int(Rnd(1) * 10) + 1

End Function

11. Вставте наступний фрагмент в процедуру події Click кнопки cmdGetSecret Number:

Private Sub cmdGetSecretNumber_Click()

' Загадати число

SecretNumber = GetSecretNumber()

End Sub

12. Нарешті, вставте наступний фрагмент в процедуру події Click кнопки cmdGuess:

Private Sub cmdGuess_Click()

Dim guess As Integer

Dim msg As String

Dim cap As String

' Створити повідомлення

msg = "Введіть число від 1 до 10"

' Отримати число від користувача

guess = CInt(InputBox(msg))

' Число вгадане вірно?

If guess = SecretNumber Then

' Так! Користувач вгадав!

msg = "Ви вгадали"!

cap = "Вірно"!

' Вивести повідомлення

MsgBox msg, vbExclamation, cap

' Закінчити гру

End

Else

' Ні. Наступна спроба..

msg = "Невірно".

cap = "Спробуйте знову"!

MsgBox msg, vbInformation, cap

End If

End Sub

Ц

я процедура - найважливіша частина нашого прикладу. Знак = вперше зустрічається в рядку msg = "Введіть число."., проте порівняння відбувається лише в рядку If guess = SecretNumber Then. Ми перевіряємо, чи співпало введене значення із загаданим числом.

13. Збережете проект. Ми змінимо його в декількох найближчих прикладах.