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

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3

Тема: Условный оператор

Цель: Закрепить навыки использования условного оператора

Порядок выполнения

32. Установите на форме следующие объекты и измените им свойства о

33. Выделите все изображения светофора (при нажатой клавише Shift) и установите следующие значения для свойств:

- Stretch True

- Left 1000

- Top 200

- Height 1000

-

34. Приведите свою форму в соответствие с образцом

35. В окне кода процедуры обработки события Click для объекта Command1 набрать

If ImgG.Visible = True Then

'выключи зеленый включи желтый

ImgG.Visible = False

ImgY1.Visible = True

Timer1.Interval = 0

Timer2.Interval = 0

Exit Sub

End If

If ImgY1.Visible = True Then

'выключи желтый включи красный

ImgY1.Visible = False

ImgR.Visible = True

Timer1.Interval = 0

Timer2.Interval = 1

Exit Sub

End If

If ImgR.Visible = True Then

'выключи красный включи желтый

ImgR.Visible = False

ImgY2.Visible = True

Timer1.Interval = 0

Timer2.Interval = 0

Exit Sub

End If

If ImgY2.Visible = True Then

'выключи желтый включи зеленый

ImgY2.Visible = False

ImgG.Visible = True

Timer1.Interval = 1

Timer2.Interval = 0

Exit Sub

End If

36. В окне кода процедуры обработки события Timer для объекта Timer1 набрать

ImgAvto.Top = ImgAvto.Top - 50

If ImgAvto.Top < 0 Then ImgAvto.Top = 4000

37. В окне кода процедуры обработки события Timer для объекта Timer2 набрать

ImgDog.Left = ImgDog.Left - 50

If ImgDog.Left < 0 Then ImgDog.Left = 4000

38. Проверьте работу программы

39. Измените приложение, включив проверку на аварию, для этого в процедуру Timer1_Timer добавьте

X1 = ImgDog.Left: Y1 = ImgDog.Top

X2 = ImgAvto.Left: Y2 = ImgAvto.Top

If (X2 > X1 - 500) And (X2 < X1 + 500) Then

If (Y2 < Y1 + 500) And (Y2 > Y1 - 500) Then

MsgBox " Авария"

ImgAvto.Top = 4000

ImgDog.Left = 4000

End If

End If

40. Проверьте работу программы