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

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

Типы фигур.

0 - прямоугольник

1 - квадрат

2 - овал

3- окружность

4 - скругленный прямоугольник

5 - скругленный квадрат

Типы заливки (FillStyle)

0 - сплошная

1 - прозрачно

2 - горизонтально

3 - вертикально

4 - диагональ вверх

5 - диагональ вниз

6 - пересечение

7 - диагональное пересечение

Командный код данной программы:

‘ Задание типа фигур

Private Sub Option1_Click()

Shape1 = 1

End Sub

Private Sub Option2_Click()

Shape1 = 0

End Sub

Private Sub Option3_Click()

Shape1 = 3

End Sub

Private Sub Option4_Click()

Shape1 = 2

End Sub

‘Задание цвета фигур

Private Sub Option5_Click()

Shape1.FillColor = vbWhite

End Sub

Private Sub Option6_Click()

Shape1.FillColor = vbBlue

End Sub

Private Sub Option7_Click()

Shape1.FillColor = vbRed

End Sub

‘Задание цвета заливки

Private Sub Option8_Click()

Shape1.FillStyle = 0

End Sub

Private Sub Option9_Click()

Shape1.FillStyle = 2

End Sub

Private Sub Option10_Click()

Shape1.FillStyle = 6

End Sub

Private Sub Option11_Click()

Shape1.FillStyle = 7

End Sub

Private Sub Command1_Click()

End

End Sub

Задача 65. Создайте проект игры в кости. В задаче используется 6 переключателей, при выборе одного из которых появлялся бы кубик с соответствующим количеством точек.

Private Sub Command1_Click()

End

End Sub

Private Sub Option1_Click()

Image1.Picture = LoadPicture(" C: \Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\1.bmp")

End Sub

Private Sub Option2_Click()

Image1.Picture = LoadPicture(" C: \Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\2.bmp")

End Sub

Private Sub Option3_Click()

Image1.Picture = LoadPicture(" C: \Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\3.bmp")

End Sub

Private Sub Option4_Click()

Image1.Picture = LoadPicture(" C: \Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\4.bmp")

End Sub

Private Sub Option5_Click()

Image1.Picture = LoadPicture(" C: \Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\5.bmp")

End Sub

Private Sub Option6_Click()

Image1.Picture = LoadPicture(" C: \Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\6.bmp")

End Sub