1Мал. 6.1. Гра із вгадуванням числа
4. Запустіть проект клавішею F5. Якщо
натиснути кнопку Загадати число, програма
загадує випадкове число від 1 до 10.
Натисніть іншу кнопку і спробуйте
вгадати це число!
При кожній спробі програма повідомляє, чи було число названо вірно або ні (рис.6.1).
Перевірка умови "більше"
Для перевірки умови "більше" в програмуванні, як і в алгебрі, використовується символ >. Розглянемо наступний фрагмент:
if x > 3 Then
MsgBox "x більше 3"
End If
У своїх програмах ви можете перевірити деяку величину і дізнатися, чи більше вона іншої величини. Перевірки такого роду зазвичай зустрічаються у разі, коли введене користувачем значення повинне належати конкретному діапазону. Втім, усе залежить від додатка.
Відкрийте проект з попереднього прикладу і виконаєте наступні дії:
1. Відкрийте вікно програми, двічі клацнувши на формі frmMain.
2. Відредагуйте процедуру події 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))
' Число вгадане вірно?
Select Case guess
Case Is = SecretNumber
' Так! Користувач вгадав!
msg = "Ви вгадали"!
cap = "Вірно"!
' Вивести повідомлення
MsgBox msg, vbExclamation, cap
' Закінчити гру
End
Case Is > SecretNumber
' Ні. Наступна спроба..
msg = "Невірно. Загадане число менше".
cap = "Спробуйте знову"!
MsgBox msg, vbInformation, cap .
End Select
End Sub
3. Збережете і Запустіть проект.
Спробуйте вгадати число. Якщо введене вами число буде більше за загадане, програма повідомить вас про це (мал. 6.2).
Мал. 6.2. Назване число більше за загадане.
Основні зміни в програмі знаходяться в блоці, який починається з рядка Саsе Is > SесretNumber. Програма перевіряє, що введене число більше SecretNumber. Якщо ця умова не виконується, наступний логічний крок - переконатися в тому, що введене число менше SecretNumber.
Перевірка умови "менше"
Для перевірки умови "менше" використовується символ <:
if x < 3 Then
MsgBox "x менше 3"
End If
Цей оператор доповнює оператор "більший". Досить часто вони використовуються разом і перевіряють, що величина належить деякому діапазону. Далі ми продовжимо працювати з попереднім прикладом. Відкрийте проект і виконаєте наступні дії:
1. Відкрийте вікно програми, двічі клацнувши на формі frmMain.
2. Відредагуйте процедуру події 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))
' Число вгадане вірно?
Select Case guess
Case Is = SecretNumber
' Так! Користувач вгадав!
msg = "Ви вгадали"!
cap = "Вірно"!
' Вивести повідомлення
MsgBox msg, vbExclamation, cap
' Закінчити гру
End
Case Is > SecretNumber
' Ні. Наступна спроба..
msg = "Невірно. Загадане число менше".
cap = "Спробуйте знову"!
MsgBox msg, vbInformation, cap
Case Is < SecretNumber
' Ні. Наступна спроба..
msg = "Невірно. Загадане число більше".
cap = "Спробуйте знову"!
MsgBox msg, vbInformation, cap
End Select
End Sub
3. Збережете і Запустіть проект.
Спробуйте вгадати число. Якщо введене вами число буде менше за загадане, програма повідомить вас про це (мал. 6.3).
