ChangeColor BackC, Simbol

Підпрограми – функції, на відміну від процедур, призначені для обчислення деякого параметру. Кажуть, що функція повертає деяке значення. Для створення функції, як і процедури, слід виконати команду меню Tools – Add Procedure, ввести ім’я процедури, обрати перемикачі Function, Public. Функція може також приймати деякі параметри, у тілі функції можна виконувати різні дії. Обов’язково всередині функції привласнити якесь значення імені функції, значення, яке буде повертати функція.

Наприклад, у декількох частках програми треба виконувати розрахунок значення функції:

Щоб скоротити програмний код, спростити програму, цю операцію можна оформити як функцію:

Public Function RozF (S As Integer, i As Integer, X As Integer)

Dim Y As Integer

Y = 0

For n = 1 To X

Y = Y + S * (1 + i)

Next

RozF = Y

End Function

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

Наприклад, таке використання функції

lbl1.Caption = Str(RozF(10, 1, 2))

призводить до зміни властивості Caption об’єкту lbl1 – їй привласнюється значення, яке розраховується функцією RozF для S=10, i=1, X=2.

5.2 Вікна повідомлень

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

Ö оператор MsgBox;

Ö функцію MsgBox().

Оператор MsgBox викликає стандартну підпрограму, яка виводить вікно повідомлення. Загальна форма оператору:

MsgBox Message, CodKey + CodIcon, Title

Параметри процедури MsgBox:

Message – повідомлення у вікні діалогу, рядок символів;

CodKey – код кнопок у вікні;

CodIcon – код значка, який відображається у вікні;

Title – вміст заголовку вікна повідомлення, рядок символів.

Коди кнопок і значків дають змогу визначити які кнопки повинні бути присутніми у вікні повідомлення і який знак виводити.

У таблицях наведена інформація про деякі можливі сполучення кнопок, значки вікон повідомлень.

Коди сполучень кнопок у вікні повідомлення

Ім’я константи	Значення	Сполучення кнопок
vbOKOnly		Ok
vbOKCancel		Ok i Cancel (Отмена)
vbAbortRetryIgnore		Abort (Стоп), Retry (Повтор), Ignore (Пропустить)
vbYesNoCancel		Yes (Да), No (Нет), Cancel (Отмена)
vbYesNo		Yes (Да), No (Нет)
vbRetryCancel		Retry (Повтор), Cancel (Отмена)

Коди значків у вікні повідомлення

Ім’я константи	Значення	Значок	Вигляд
vbCritical		Критичне повідомлення
vbQuestion		Запит
vbExclamation		Попередження
vbInformation		Інформація

У операторі можна використовувати як імена стандартних констант, так і їх значення.

Наприклад, якщо виконати оператор

MsgBox "Ви впевнені?", vbOKOnly + vbExclamation, "Увага!"

на екрані з’явиться таке вікно

Результат не зміниться, якщо в програмному коді ввести:

MsgBox "Ви впевнені?", 0 + 48, "Увага!"

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

Функція MsgBox() усуває цей недолік. Параметри функції MsgBox() такі ж, як і параметри оператору MsgBox. Функція MsgBox() повертає деяке значення, яке можна привласнити змінній, проаналізувати і в залежності від обраної кнопки виконати різні дії.

Можливі значення, що повертає функція MsgBox()

Ім’я константи	Значення	Обрано кнопку
vbOK		кнопка Ok
vbCancel		кнопка Cancel (Отмена)
vbAbort		кнопка Abort (Стоп)
vbRetry		кнопка Retry (Повтор)
vbIgnore		кнопка Ignore (Пропустить)
vbYes		кнопка Yes (Да)
vbNo		кнопка No (Нет)

Приклад використання функції MsgBox():