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

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

Мал. 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).