💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Мал. 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. Збережете і Запустіть проект. Якщо зменшити газ нижче за порогове значення датчик швидкості видає попередження.

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

Ухвалення рішень в програмі

Логіка - лише одна складова " мислячого" застосування. Вам також знадобляться засоби її практичного використання. Наведені в цьому уроці приклади наочно показують, як приймаються рішення в програмах.