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

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

Мал. 4.14. Клас Person з властивостями, подіями і методами.

18. Базова структура класу Person готова. Включите її в проект Visual Basic командою File > Update Project або клавішами Ctrl+S.

19. Закрийте вікно Class Builder командою File > Exit.

Після невеликої паузи в проекті з'являється новий клас. Залишається лише додати код в базову структуру, щоб зробити його функціональним. Якщо заглянути в код властивості PersonName (процедури Property Let і Property Get), з'ясовується, що Class Builder згенерував шаблон властивості за нас. Залишається лише написати код, який виконуватиме конкретне завдання, - ідентифікувати нашу " людину".

Вставте наступний фрагмент в процедуру WhoAreYou():

Public Sub WhoAreYou()

RaiseEvent Say (" Moe ім'я" & mVarPersonName)

End Sub

Зверніть увагу: уся процедура складається з одного рядка. Щоб ініціювати подію, необхідно викликати в класі команду RaiseEvent. У нашому випадку ініціюється подія Say. Для передачі інформації можна було також скористатися функцією, але я хочу привчити вас до роботи з подіями. Вони згодяться вам пізніше, при розробці додатків, керованих подіями. А зараз ми доповнимо форму Form1 кодом для тестування класу Person:

1. Двічі клацніть на рядку Form1 у вікні проекту, щоб активізувати форму. Потім двічі клацніть на формі, щоб відкрити вікно програми.

2. Вставте наступний фрагмент в секцію(Declarations) форми:

Option Explicit

Private WithEvents p As Person

3. Для виведення інформації ми скористаємося вікном повідомлення. Вставте в процедуру події р_Sау() наступний фрагмент:

Private Sub p_Say(Sentence As String)

MsgBox Sentence

End Sub

4. Залишається лише написати код, в якому створюватиметься наш об'єкт,:

Private Sub Form_Load()

Set p = New Person

p.PersonName = " Джон Доу"

p.WhoAreYou

Set p = Nothing

End

End Sub

Звичайно, змінному р. PersonName можна присвоїти довільне ім'я.

5. Запустіть програму клавішею F5.

Звичайно, утиліта Class Builder має і інші можливості, проте більшість з них не вимагають пояснень, а найважливіші ми розглянули. Не шкодуйте часу і поекспериментуйте з вашими власними класами - як простими, так і складними. Практика - вірний шлях до досконалості. На сторінках цієї книги ми ще неодноразово зустрінемося з класами. Ваших знань в області модулів і класів цілком вистачить для самостійної роботи. Ви повинні неодмінно освоїти ці концепції, оскільки програмні модулі " склеюють" різні частини вашого застосування і об'єднують форми і елементи для вирішення корисних завдань.