Використання функцій

Процедури-функції (функції користувача) майже повністю ідентичні про­цедурам-підпрограмам за винятком того, що вони повертають лише одне зна­чення у ви­кли­каючу програму.

Як і для процедур-підпрограм, є два способи створення функцій. При ви­користанні одного із цих методів буде створено наступний шаблон функції:

Зауваження. Процедура-функція може мати декілька вхідних аргументів і тільки один вихідний аргумент, тип якого може задаватися при описі функції.

Приклад. Обчислити n!

Створюємо процедуру-функцію FCT і викликаємо її в основній програмі

Function Fct(N) As Double

Fct = 1

For i = 1 To N

Fct = Fct * i

Next

End Function

зЗЗPrivate Sub Run_Click()

N = Val(TxtN)

If N < 0 Or N <> Int(N) Then

Print "N має бути цілим невід’ємним"

Else

TxtRes = Fct(N)

End If

End End Sub

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

В процесі виконання програми в залежності від конкретної ситуації ін­ко­ли треба передати повідомлення користувачу програми. У VB така мож­ливість реалізується за до­по­могою вікна повідомлення, що викликається за до­по­могою функції MsgBox(). Базова конструкція функції MsgBox() така:

MsgBox(“Повідомлення”[[, Buttons][,Назва вікна]])

Текст повідомлення задається першим параметром. По­ві­домленням може бути рядок, який містить не більше, ніж 1024 символів. Цей рядок може скла­да­тися із кількох фізичних рядків, які можна об’єднувати за допомогою символів по­вернення каретки та переводу рядка – Chr(13) та Chr(10).

Другий параметр (необов’язковий) повинен бути сумою базових констант VB, які відповідають за наявність у вікні по­відомлення кно­пок, а також інших еле­мен­тів інтерфейсу.

Третій параметр (необов’язковий) задає назву вікна повідомлення.

При появі вікна повідомлення, програма зупиняє роботу і чекає на реак­цію користувача. У вікні повідомлення відображаються кнопки і ко­рис­тувач має вибрати одну із з них. За кожною кнопкою закріплене ціле число. Функція MsgBox() повертає числове значення, яке відповідає вибраній кнопці. Потім у програмі в залежності від отриманого значення можуть ви­ко­ну­ва­ти­ся ті чи інші дії. Кнопки у вікні повідомлення визначаються на­ступним чином:

Базові значення іменованих кнопок:

Константа Набор кнопок Значення

vbOkOnly OK 0

vbOkCancel OK, Cancel 1

vbAbortRetryIgnore Abort, Retry, Ignore 2

vbYesNoCancel Yes, No, Cancel 3

vbYesNo Yes, No 4

vbRetryCancel Retry, Cancel 5

Базові значення параметра піктограм:

Константа Тип повідомлення Значення

vbCritical Критичне 16

vbQuestion Запит 32

vbExclamation Попередження 48

vbInformation Інформація 64

Числові значення кнопок:

Константа Кнопка Значення

vbOk OK 1

vbCancel Cance 2

vbAbort Abort 3

vbRetry Retry 4

vbIgnore Ignore 5

vbYes Yes 6

vbNo No 7

Зауваження 1. За допомогою вікна повідомлення можна передати одне із цих семи значень.

Для введення даних часто доцільно використовувати вікна вводу даних. Вікно вводу даних створюється функцією InputBox():

InputBox(“Повідомлення”[[, Назва вікна][,Default][,x][,y]])

Перший параметр. Текст повідомлення (так са­мо, як у і MsgBox()).

Другий параметр (необов’язковий) задає текст заголовку.

Третій параметр (необов’язковий) задає рядок по замовчуванню.

Додаткові параметри. За допомогою двох необов’язкових параметрів можна вказати x та y – координати лівого верхнього кута вікна вводу.

z = InputBox("Введіть прізвище", "Інформація", " ")

Якщо користувач вибере ОК або натисне кнопку [Enter], то змінній z при­сво­їться значення “Козак”. Прізвище Козак вводимо з клавіатури. При на­ти­сканні Cancel або [Esc], функція повертає пустий рядок.