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

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

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

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

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

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

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

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

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

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

Мал. 4.2. Вікно програми з функцією для обчислення кубічного кореня.

6. Виконайте команду File > Save MyLibrary.

Перш ніж розглядати цей приклад, давайте коротко розглянемо приведений вище код. Функція отримує аргумент х і намагається вичислити його кубічний корінь. Тип значення, який повертається функцією (у нашому прикладі Double - числовой тип, який може працювати з дуже великими і дуже малими, а також дробовими числами), вказується в заголовку функції після ключового слова As. Текст функції закінчується командою End Function, а не End Sub. Зверніть увагу на три рядки, в яких привласнюється значення змінної CubeRoot. Значення функції повертається у вигляді змінної, ім'я якої співпадає з ім'ям функції (у нашому прикладі - CubeRoot). Якби наша функція називалася TimesTwo(), то і значення поверталося б в змінній TimesTwo (наприклад, TimesTwo = х*2).

Перш ніж приступати до обробки аргументу, бажано перевірити отримані дані. Спочатку ми перевіряємо, чи рівний аргумент 0 - як відомо, кубічний корінь з 0 дорівнює 0, тому ми можемо відразу присвоїти змінній CubeRoot, яка повертає значення та вийти із функції, не виконуючи подальших обчислень. Для виходу з функції застосовується команда Exit Function.

Математичне обґрунтування нас зараз не цікавить. Команда CubeRoot = 10 ^ ((Log(Abs(x)) / Log(10)) / 3) повертає кубічний корінь аргументу х.

Нарешті, ми перевіряємо, чи не являється аргумент функції негативним числом. Приведена вище формула завжди повертає позитивний результат, тому для негативного аргументу необхідно змінити знак значення на протилежний. У Visual Basic це робиться командою

CubeRoot = - CubeRoot

Отримавши загальне уявлення про функції, давайте продовжимо наш приклад і використаємо нашу функцію на практиці.

7. Двічі клацніть на формі Form1 у вікні проекту - форма з'являється у вікні конструктора.

8. Задайте властивості Caption значення Робота з програмною бібліотекою.

9. Створіть на формі кнопку. Задайте її властивості Name значення cmdCubeRoot, а властивості Caption - значення Кубічний корінь.

10. Двічі клацніть на кнопці cmdCubeRoot - відкривається вікно програми з процедурою події cmdCubeRoot_Click().

11. Вставте в процедуру наступний фрагмент:

Dim Y As Double

Y = CubeRoot(27)

Print Y

Зразковий вид вікна програми показаний на мал. 4.3.