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

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

Порядок выполнения. 1. Откройте новый проект, установите следующие объекты и измените им свойства Объект Свойство Значение Рамки Caption Как Вас

1. Откройте новый проект, установите следующие объекты и измените им свойства

Объект	Свойство	Значение
Рамки	Caption	Как Вас зовут?
Caption	Полное имя (заглавные буквы)
Caption	Полное имя (строчные буквы)
Caption	Инициалы
Метки	Caption	Фамилия
	Caption	Имя
	Caption	Отчество
	Name	LblNam2 (для рамки строчные буквы)
Командные кнопки	Name	CmdNam1
Caption	Вывести
	Name	CmdNam2
	Caption	Вывести в одну строку
	Name	CmdNam3
	Caption	Вывести в три строки
	Name	CmdFIO
	Caption	Вывести инициалы
	Name	CmdShifr
	Caption	Шифровать
Текстовые окна	Name	TxtFam
	Name	TxtName
	Name	TxtOt
	Name	TxtNam1 (для заглавных букв)
	Name	TxtFIO
	Name	TxtShifr

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

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

TxtNam1.Text = UCase(tXTfAM.Text) + " " + UCase(TxtName.Text) + " " + UCase(TxtOt.Text)

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

LblNam2.Caption = LCase(tXTfAM.Text) + " " + LCase(TxtName.Text) + " " + LCase(TxtOt.Text)

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

LblNam2.Caption = LCase(tXTfAM.Text) + Chr(13) + Chr(10) + LCase(TxtName.Text)

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

Dim fam, nam, ot As String

Fam= TxtFam.Text

Nam= TxtName.Text

Ot= TxtOt.Text

TxtFIO.Text = Left(Fam, 1) + "." + Left(Nam, 1) + "." + Left(Ot, 1)

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

Dim S, Shifr As String