Мал. 6.3. Назване число менше за загадане.

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

Якщо ви хочете переконатися в тому, що одне значення відмінне від іншого, слід скористатися оператором < >:

if x < > 3 Then

MsgBox " x не дорівнює 3"

End If

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

1. Натисніть кнопку Загадати число, щоб згенерувати випадкове число від 1 до 10.

2. Натисніть кнопку Вгадати.

3. У вікні введення, що відкрилося, натисніть кнопку OK або Cancel

З'являється повідомлення про помилку – не співпадіння типів. Натисніть кнопку End, щоб завершити роботу програми. Не вдаючись до подробиць процесу відладки, скажу, що помилка виникла в наступному рядку:

guess = CInt(InputBox(msg))

Річ у тому, що функція CInt() повинна отримувати дані, що перетворюються в ціле число. Якщо функція викликається для порожнього рядка, видається повідомлення про помилку.

Щоб запобігти помилці, перед перевіркою слід переконатися в тому, що користувач ввів деяке значення. Оператор < > ідеально підходить для цієї мети! Перевірку можна виконати наступною командою:

If rс < > " " Then

У перекладі людською мовою це означає: " Якщо значення guess не рівно порожньому рядку, то зробити щось".

4. Відредагуйте процедуру події Click кнопки cmdGuess і приведіть її до наступного виду:

Private Sub cmdGuess__Click()

Dim guess As Integer

Dim msg As String

Dim cap As String

Dim rc As String

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

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

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

rс = InputBox(msg)

'Переконатися в тому, що користувач ввів значення..

If rс < > " " Then

'Перетворити рядок в ціле число

guess = CInt(rc)

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

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, vbInformatidn, cap

End Select

Else

msg = " Ви повинні ввести число"!

cap = " Введіть число"!

MsgBox msg, vbInformation, cap

End If

End Sub

5. Збережете і Запустіть проект

Перевірка умови " більше або рівно"

Іноді доводиться перевіряти, що деяка величина більше іншої або дорівнює їй. Для цієї мети використовується оператор > =:

if x > = 3 Then

MsgBox " x більше або рівне 3"

End If

Приведений фрагмент надзвичайно простий. Якщо значення x більше або рівне 3, програма виводить вікно повідомлення.

Ймовірно, ви вже зрозуміли, як користуватися цим оператором. Припустимо, ви пишете програму для управління пасажирським літаком. Звичайно, якщо пілот летить занадто швидко, його необхідно попередити. Перевищення швидкості може привести до перевантаження і викликати катастрофічні ушкодження літака. Проте на літаку працює ваша (звичайно ж, чудова!) програма; вона перевіряє швидкість і переконується в тому, що пілот не перевищив максимальну рекомендовану швидкість. Виконаєте наступні дії:

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

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

3. Задайте властивості Name форми значення frmMain, а властивості Caption - значення Датчик швидкості.

4. Створіть на формі вертикальну смугу прокрутки і задайте її властивості Name значення vscThrottle. Розташуєте смугу в правій частині форми і розтягніть її на усю висоту форми.

5. Задайте властивості Мах смуги vscThrottle значення 100.

6. Створіть на формі frmMain напис. Задайте її властивості Name значення lbl Airspeed, а властивості Caption - значення Поточна швидкість:.

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

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

Option Explicit

Private Throttle As Integer ' Поточне значення газу

Private Const VNE = 427 ' Гранична швидкість

9. Ініціалізуйте значення газу в наступному фрагменті, який необхідно вставити в процедуру події Load форми frmMain,:

Private Sub Form_Load()

vscThrottle.Value = 100

End Sub

10. Вставте наступний фрагмент в процедуру події Change елементу vscThrottle:

Private Sub vsc_Throttle_Change()

Dim ias As Integer ' Поточна швидкість

' Відстань до верхньої позиції смуги прокрутки

Throttle = 100 - vscThrottle.Value

' Вичислити поточну швидкість за значенням газу

ias = Throttle * 4.5

' Відновити датчик швидкості

lblAirspeed.Caption = " Поточна швидкість: " & Trim$(Str$(ias))

' Перевірити поточну швидкість і переконатися, що вона не перевищує граничної

If ias > = VNE Then

MsgBox " Зменшити газ"!, vbCritical, " Перевищення швидкості"

End If

End Sub

Цю процедуру варто розглянути детальніше. Перша частина, в якій ми обчислюємо значення Throttle, потрібна через те, що при знаходженні бігунка у верхній позиції смуги прокрутки її властивість Value за умовчанням дорівнює 0. Максимальному газу на літаку, навпаки, відповідає верхнє положення руків'я (" від себе"). Наша програма імітує літакове руків'я газу за допомогою смуги прокрутки.

Рядок, в якому розраховується поточна швидкість (ias), не занадто точний. Обчислення швидкості справжнього літака - завдання складна і така, що виходить далеко за рамки цієї книги. Я скористався простою формулою, яка дозволяє літаку розганятися до 400 вузлів. Попередження виводиться в наступному фрагменті:

' Перевірити поточну швидкість і переконатися,

' що вона не перевищує граничної

If ias > = VNE Then

MsgBox " Зменшити газ"!, vbCritical, " Перевищення швидкості"

End If

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

11. Збережете і Запустіть проект. Переміщайте бігунок на смузі прокрутки і стежите за тим, як росте поточна швидкість. Коли вона досягне граничної, з'являється попередження (мал. 6.5).