Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Как продвинуть сайт на первые места?

Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

Exit Sub

End If

If Test(4, n) = s Then Verno = Verno + 1

If n = 5 Then 'тест окончен

MsgBox Str(Verno),, " количество верных ответов"

End

End If

'вывод следующего вопроса

n = n + 1

LblVopros.Caption = Test(0, n)

For i = 1 To 3

OptOtvet(i).Caption = Test(i, n)

Next i

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8

Тема: Массивы объектов. Массивы данных

Цель: Закрепить навыки использования массива данных и массива объектов

Постановка задачи: Создать приложение «Ваша диета», которое позволяет вводить данные для 6 человек (фамилия, имя, вес, рост) и выводит рекомендации по питанию каждого человека.

Порядок выполнения:

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

2.

3. В разделе общих объявлений набрать

Dim f(1 To 6), n(1 To 6) As String

Dim w(1 To 6) As Integer

Dim r(1 To 60) As Integer

Dim i As Integer

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

If i > 6 Then

MsgBox " Ввод окончен"

For j = 1 To 6

LblDieta(j).Visible = True

If r(j) - 100 > w(j) Then dieta = " на хлеб и воду"

If r(j) - 100 < w(j) Then dieta = " возьми с полки пирожок"

If r(j) - 100 = w(j) Then dieta = " все Ok"

LblDieta(j).Caption = f(j) + " " + n(j) + " " + dieta

Next j

Exit Sub

End If

f(i) = TxtFam.Text

n(i) = TxtNam.Text

w(i) = Val(TxtW.Text)

r(i) = Val(TxtR.Text)

i = i + 1

TxtFam.Text = " "

TxtNam.Text = " "

TxtW.Text = " "

TxtR.Text = " "

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