Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Мал. 6.5. Перевищення граничної швидкості.
Перевірка умови " менше або рівно" Іноді вимагається перевірити, що деяка величина менше або рівна (але не більше) іншої величини. Для перевірки цієї умови застосовується оператор < =. Наступний фрагмент показує, як виконуються подібні перевірки:
if x < = 3 Then MsgBox " x менше або рівне 3" End If
Ми скористаємося новим оператором в новому варіанті попереднього прикладу. Якщо літак летить занадто повільно, він може увійти до штопора і впасти. Haш датчик швидкості повинен повідомляти пілота про те, що він летить занадто повільно. Продовжимо роботу над прикладом: 1. Відкрийте приклад з попереднього розділу, якщо він не був відкритий раніше. 2. Вставте наступний рядок в секцію(Declarations) форми frmMain:
Private Const VSTALL = 73 ' Мінімальна швидкість
3. Припустимо, ви в даний момент летите і руків'я газу встановлене на 77 відсотків. Відредагуйте процедуру події Form_Load і приведіть її до наступного виду:
Private Sub Form_Load() vscThrottle.Value = 23 vscThrottle_Change End Sub
Нарешті, відредагуйте процедуру події 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
' Переконатися, що літак не входить в штопор If ias < = VSTALLThen MsgBox " Збільшити газ"!, vbCritical', " Вхід в штопор"! End If End Sub
5. Збережете і Запустіть проект. Якщо зменшити газ нижче за порогове значення датчик швидкості видає попередження. Отже, ви навчилися користуватися різними операторами для ухвалення рішень в програмах. Після знайомства з азами комп'ютерної логіки ми переходимо до наступної теми - як використовувати цю логіку для управління виконанням програми і як приймати прості рішення в додатках. Ухвалення рішень в програмі Логіка - лише одна складова " мислячого" застосування. Вам також знадобляться засоби її практичного використання. Наведені в цьому уроці приклади наочно показують, як приймаються рішення в програмах.
|