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

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

Ключове слово Static

Окрім змінних рівня процедури (Dim) існує ще один спосіб оголошення змінних - з ключовим словом Static:

Static X As Integer

Це означає, що змінна зберігатиме останнє присвоєне нею значення навіть після завершення процедури. Статичні змінні зручні для зберігання поточного значення накопичуваної суми. Якщо пропустити ключове слово Static (і скористатися замість нього Dim), то при кожному запуску процедури змінна обнулюватися разом з іншими числовими змінними. Розглянемо наступний приклад, в якому показана статична змінна у дії. Відвідаєте кафетерій Sybex і замовте в нім усе, що вам завгодно. Кава подається безкоштовно, але попереджаю - туалету тут немає! Якщо ви відчуваєте спрагу або потребуєте " хорошої дози кавового допінга", поступите так:

1. Створіть новий проект типу Standard EXE.

2. Задайте властивості Caption форми Form1 значення Кафетерій Sybex.

3. Створіть напис в середині верхньої частини форми. У вікні властивостей задайте її властивості Name значення lblQuantity, а властивості Caption - значення Замовлене каві; 0.

4. Створіть кнопку під написом lblQuantity. Задайте її властивості Name значення cmdAdd, а властивості Caption - значення & Принесіть ще!.

5. Двічі клацніть на кнопці cmdAdd в конструкторі форм, щоб відкрити вікно програми.

6. Вставте наступний код в процедуру події Click кнопки cmdAdd:

Private Sub cmdAdd_Click()

Static count As Integer

count = count + 1

lblQuantity = " Замовлений каві: " & Str$(count)

End Sub

7. Запустіть програму і натисніть кнопку, щоб замовити будь-яку кількість чашок кави.

Змінна count в процедурі події Click оголошена статичній (Static), завдяки чому її значення зберігається між подіями. В результаті змінна пам'ятає, скільки чашок кави ви встигли замовити.

Масиви

Масиви можна вважати різновидом змінних, проте в них зберігається відразу декілька значень. Наприклад, електронна таблиця є масивом осередків. Масив можна використовувати для зберігання записів невеликої бази даних або червоного, зеленого і синього (RGB) компонентів растрового зображення. Хоча масиви використовуються дещо рідше за змінних, вони відіграють важливу роль в розробці програм. У наступному прикладі оголошується масив чисел цілого типу, а потім його елементам привласнюються значення:

Static X(2) As Integer

X(0) = 7

X(1) = 99

X(2) = 123

Для обробки масивів часто застосовується цикл For..Next, в якому в якості лічильника використовується цілочисельна змінна (мал. 7.8):

Dim Y As Integer

For Y = 0 To 2

Print X(Y)

Next Y

Мал. 7.8. Використання циклу For..Next.

Цей фрагмент виводить на поточній формі значення кожного елементу цілого масиву X (числа 0, 1 і 2 використовуються як посилання на елементи). Щоб створений масив був доступний на рівні модуля, оголосите його з ключовим словом Dim в секції(Declarations) модуля. Якщо ж масив має бути доступний на рівні додатка, оголосите його з ключовим словом Public. Наступний приклад показує, як працювати з масивами:

1. Створіть проект типу Standard EXE.

2. Видалите з нового проекту форму Form1. Для цього слід клацнути на рядку Forml правою кнопкою миші у вікні проекту і вибрати команду Remove Forml з контекстного меню.

3. Додайте в проект новий модуль - клацніть правою кнопкою миші у вікні проекту і виберіть команду Add > Module з контекстного меню.

4. У діалоговому вікні Add Module виберіть значок ModuLe.

5. У вікні програми модуля Module1 додайте наступну процедуру:

Sub Main()

Dim x(7) As Integer

Dim i As Integer

Dim txt As String

‘ Заповнити масив бітовими значеннями

For i = 0 To 7

x(i) = 2 ^ i

Next

‘ Вивести масив

For i = 0 To 7

txt = " Елемент масиву " & Str$(i) & " ="

txt = txt & x(i)

Next

End Sub

6. Запустіть програму і простежите за вікном відладки.

У першій частині фрагмента оголошуються змінні, необхідні для роботи програми. Масив x повинен містити 8 елементів (з індексами від 0 до 7). Змінна i використовується в циклах For..Next, а в рядку txt виконується форматування результату.

Перший цикл For..Next заповнює масив. Відповідно до формули

x(i) = 2 ^ i

кожному елементу привласнюється значення чергової міри двійки. Не турбуйтеся про математичну сторону що відбувається - тут обчислення використані лише для прикладу.

Останній цикл For..Next форматує змінну txt, а команда Debug. Print виводить її у вікні відладки.