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

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8. Тема: Программирование графики

Тема: Программирование графики

Цель: Получить навыки использования графических методов

Порядок выполнения 1 часть

1. Откройте новый проект.

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

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

pic1.Scale (-10, 10)-(10, -10) 'назначить объекту новую систему координат

pic1.DrawWidth = 10 'изменим размеры точки

pic1.ForeColor = vbWhite ' цвет точек - белый

pic1.PSet (0, 0) 'вывод точек

Pic1.PSet (-5, -5)

Pic1.PSet (5, 5)

Pic1.PSet (-5, 5)

Pic1.PSet (5, -5)

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

5. Измените программу для вывода а) четырех точек; б) шести точек (самостоятельно)

6. Результат показать преподавателю. 2 часть

7. Откройте новый проект.

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

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

Cls

Line (2000, 2000)-(4000, 2500), vbWhite, BF

PSet (2000, 2200)

Print " Да Здравствует РОССИЯ! "

Line (2000, 2500)-(4000, 3000), vbBlue, BF

Line (2000, 3000)-(4000, 3500), vbRed, BF

Line (2000, 2000)-(2000, 4000)

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

Cls

Line (200, 200)-(2200, 200), vbBlue 'вывод тонкой горизонтальной линии

DrawWidth = 6 'вывод толстой вертикальной линии

Line (200, 400)-(200, 2000), vbRed

DrawWidth = 3 'вывод наклонного отрезка средней толщины

Line (600, 1400)-(1200, 500), vbGreen

Line (1600, 2000)-(400, 1500),, B 'прямоугольник незакрашенный

Line (3000, 1400)-(2200, 500), vbCyan, BF 'прямоугольник закрашенный

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

12. Самостоятельно измените программу так, чтобы она рисовала флаги Франции (вертикальные полосы - синяя, белая, красная), Германии (горизонтальные полосы – черная, красная, желтая)

Часть

13. Откройте новый проект.

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

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

Pic1.Scale (0, 30)-(16, 0)

Pic1.ForeColor = QBColor(7) 'установим цвет линии

Pic1.FillStyle = 0 'установим стиль заполнения (сплошной)

Pic1.Circle (8, 25), 4 'вывод окружности

Pic1.FillColor = QBColor(7) 'установим цвет заполнения и линии

Pic1.ForeColor = QBColor(0)

Pic1.Circle (8, 16), 5.5,,,, 0.5 'овал горизонтальный

Pic1.Circle (8, 6.5), 4.5,,,, 1.5 'овал вертикальный

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