Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Порівняння
|
|
При перевірці умов використовуються не лише логічні оператори, але і оператори порівняння. З їх допомогою можна дізнатися, чи рівні числа або рядки і в якому відношенні вони знаходяться один до одного, чи належать вони інтервалу допустимих значень і т. д. Порівнювати можна слова, імена, числа і взагалі усе, що вам захочеться. Давайте подивимося, як це робиться.
Перевірка умови " рівно"
Майже в кожному застосуванні вимагається порівняти два вираження і дізнатися, чи співпадають їх значення. У 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. Збережете проект. Ми змінимо його в декількох найближчих прикладах.
14. Запустіть проект клавішею 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).
|
|