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

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

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

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

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

12. В окне кода процедуры обработки события Load для объекта Form набрать

Form1.KeyPreview = True

13. В окне кода процедуры обработки события KeyDown для объекта Form набрать

'определим текущие координаты

x = sss.Left

y = sss.Top

'определим будущие координаты

If KeyCode = 37 Then 'нажата клавиша ç

x = x - 50

End If

If KeyCode = 39 Then ‘'нажата клавиша è

x = x + 50

End If

If KeyCode = 38 Then ‘'нажата клавиша é

y = y - 50

End If

If KeyCode = 40 Then ‘'нажата клавиша ê

y = y + 50

End If

ys1 = (Line1.Y2 - Line1.Y1) * (x - Line1.X1) / (Line1.X2 - Line1.X1) + Line1.Y1

ys2 = (Line2.Y2 - Line2.Y1) * (x - Line2.X1) / (Line2.X2 - Line2.X1) + Line2.Y1

If y < ys1 Or y > Abs(ys2) - sss.Height Then

MsgBox " Bыход за территорию! ",, " Kуда пошел? "

Exit Sub

End If

sss.Move x, y 'движение

14. Проверьте работу приложения

15.

16. Измените программу так, чтобы при нажатии клавиш шарик становился красным, а когда отпущена – белым.

17. Измените программу так, чтобы управление шариком осуществлялось клавишами М (влево), И (вверх ), Т (вправо) и пробел (вниз)

Результат показать преподавателю