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

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

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

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

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

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

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

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

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

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2. Тема: Статические массивы данных.

Тема: Статические массивы данных.

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

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

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

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

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

Dim Mas(4, 6) As Integer

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

PicMassiv.Cls

For i = 0 To 4

For j = 0 To 6

Mas(i, j) = Int(Rnd * 10)

PicMassiv.Print Mas(i, j); " ";

Next j

PicMassiv.Print

Next i

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

PicMax.Cls

PicMin.Cls

For i = 0 To 4

Max = Mas(i, 0)

Min = Mas(i, 0)

For j = 0 To 6

If Max < Mas(i, j) Then Max = Mas(i, j)

If Min > Mas(i, j) Then Min = Mas(i, j)

Next j

PicMax.Print Max

PicMin.Print Min

Next i

6. Проверьте работу программы. Измените программы так, чтобы она определяла также максимальные и минимальные значения для каждого столбца, а также сумму значений каждого столбца.

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

'поменять местами первый и последний столбец

For i = 0 To 4

s = Mas(i, 0)

Mas(i, 0) = Mas(i, 6)

Mas(i, 6) = s

Next

'вывести массив после перестановки столбцов

PicMassiv0.Cls

For i = 0 To 4

For j = 0 To 6

PicMassiv0.Print Mas(i, j); " ";

Next j

PicMassiv0.Print

Next i

8. Проверьте работу программы. Измените программу так, чтобы местами менялись значения первой и последней строки.

9. Добавьте на форму еще одну командную кнопку (Cmd4) и графическое окно (PicMas2). При щелчке по новой кнопке заполнить массив 5 на 5 по следующему правилу: значения элементов главной диагонали равны 0, ниже главной диагонали – 1, выше главной диагонали равны –1. Для этого объявите массив и в окне кода процедуры обработки события Click для объекта Cmd4 набрате