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

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

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

Перш ніж розглядати цей приклад, давайте коротко розглянемо приведений вище код. Функція отримує аргумент х і намагається вичислити його кубічний корінь. Тип значення, який повертається функцією (у нашому прикладі 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 це робиться командою

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

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

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

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

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

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