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

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

Дизайн проекту

1. Для форми проекту у вікні властивостей змініть такі властивості:

2. Помістить на форму багаторядкове текстове поле для виведення результатів табулювання функції (значень x та y) з такими властивостями:

3. Самостійно помістить на форму три текстові поля для введення лівої і правої границі значення аргументу, а також кроку. Вони повинні мати імена відповідно: TextLeft, TextRight, TextStep, бути розташовані на формі так, як показано на рис. 15.

4. Помістить на форму графічне поле PictureBox для побудови графіку функції з такими властивостями:

5. Самостійно помістить на форму надписи зі змістом: y=sin(x), Графік функції, Ліва межа, Права межа, Крок. Розташуйте їх так, як показано на рис. 15.

6. Помістить на форму прапорець CheckBox і задайте йому такі властивості:

7. Створіть рядок меню з пунктом Функція, який має ім’я mnuFun. В ньому повинні знаходитись команди меню з такими властивостями:

Створення програмного коду

8. У вікні редактора коду в розділі General Declarations оголосимо змінні:

Dim x As Double

Dim y As Double

Dim xn As Double

Dim xk As Double

Dim dx As Double

Dim i As Integer

Dim NewLine As String

Dim STab As String

Робота з підпрограмами

В тому випадку, коли необхідно виконувати певну послідовність операцій в різних місцях програми, доцільно використовувати підпрограми. Підпрограми мають наступну структуру:

Sub < Ім’я підпрограми> ()

End Sub

Тут ключові слова Sub – початок підпрограми, End Sub – кінець підпрограми. Між ними записується тіло підпрограми.

Викликати підпрограму з тіла основної програми можна за допомогою ключового слова Call. Після нього вказати ім’я підпрограми:

Call < Ім’я підпрограми>

9. Створимо підпрограму для зчитування вихідних даних з текстових полів:

' Підпрограма введення початкових значень

Sub Coordinats()

xn = TextLeft.Text

xk = TextRight.Text

dx = TextStep.Text

End Sub

10. Створимо підпрограму для обчислення функції: y=sin(x):

' Підпрограма обчислення функції

Sub Tabuls()

y = Sin(x)

End Sub