Public B As Integer

Якщо рядкову змінну Name, оголошену як Publi c у формі Form1 то дістати доступ до неї можна з іншої форми за допомогою наступного виразу:

X=Form1.Name.

Для оголошення констант використовується оператор Const, Одночасно з оголошенням констант їм присвоюється значення. Наприклад:

Const Pi = 3.141592 (у дробовому числі повинна бути крапка а не кома)

Circle = Pi*Radius^2

Константи можна оголосити також із значенням типу даних, при цьому використовуються ті самі ключові слова, що й при оголошенні змінних.

Const Pi As Single =3.141592

3.4. Основні елементи керування для створення написів та введення текстових даних

Елемент Label дозволяє створювати написи на формі додатку. Для цього властивості Caption привласнюється якісь текстові дані. Даному елементу можна привласнити в програмі текстові дані наприклад: Label1.Caption = C. Це означає, що текстове значення змінної С буде привласнено властивості Text елемента Label1, для VBA Label1 = C або навпаки, це означає що в програмі можна використовувати цей елемент для введення в нього та виведення текстових даних.

Елемент TextBox призначена для введення або виведення числових і текстових символів в елемент керування TextBox, числові символи сприймаються як текст. Наприклад: А =TextBox1.Text. Така запис означає, що при запуску в роботу програми значення яке буде введено в перший елемент TextBox1 і буде привласнено змінній А. Тип змінної А повинен бути String. Цей елемент може бути однорядковим чи багаторядковим в залежності від встановлених властивостей: Single-line (однорядкове текстове поле), Multi-line (багаторядкове текстове поле). Для виведення даних: TextBox2.Text = Ціна * Кількість.

3.5. Основні функції Visual Basic

Функція – це оператор, що виконує певні дії (наприклад, запит користувача на введення інформації або обчислення за формулою), а потім повертає результат своєї роботи. В цілому це закінчений фрагмент програми.

Стандартні функції. Це функції які є складовими компонентами системи Visual Basic, тобто вбудовані в систему. До них належать математичні, рядкові, фінансові та інші. Наприклад: Обчислення квадратного кореня для Visual Basic.Net Y = Math.Sqrt(x) для VBA Y = Math.Sqr(x). Математичні та рядкові вбудовані функції приведені в таблицях 2,3.

Таблиця 2. Найпоширеніші математичні функції

№ п/п	Функція	Дії функції
	Abs(x)	Повертає абсолютне значення х
	Atan(x) для VBA Atn(x)	Повертає арктангенс х. Кут х виражається в радіанах
	Cos(x)	Повертає косинус кута х. Кут х виражається в радіанах
	Exp(x)	Повертає e x
	Rnd(x)	Генерує випадкове число між 0 та 1
	Sign(x) для VBA Sgn(x)	Повертає 1, якщо х<0; 0, якщо х=0; -1, якщо х >0
	Sin(x)	Повертає синус кута х. Кут х виражається в радіанах
	Sqr(x)	Повертає квадратний корінь х
	Log(x)	Повертає натуральний логарифм х
	Tan(x)	Провертає тангенс кута х. Кут х виражається в радіанах

Таблиця 3. Найпоширеніші рядкові функції

№ п/п	Функція	Дії функції
	Chr(int)	Повертає символ, ASCII- код якого дорівнює числовому аргументу
	Lcase (str)	Повертає аргумент, записаний символами тільки нижнього регістру
	Len(str)	Повертає число символів у рядку
	Ltrim(str)	Повертає рядок-аргумент із вилученими початковими пропусками
	Left(str,int)	Повертає int перших символів рядка аргументу str
	Mid (str, intStart[,intLend]	Повертає підрядок рядкового аргументу, що починається символом із номером intStart і/або продовжується до кінця рядка і має довжину intLend символів
	Right (str,int)	Повертає int завершальних символів рядка str
	Rtrim(str)	Повертає рядок-аргумент, в якому вилучено всі завершальні пропуски
	Str()	Повертає числовий аргумент на рядок
	Ucase(str)	Повертає аргумент. Записаний символами верхнього регістра
	Val(x)	Перетворює рядок числових символів на число

Фінансові функції. Фінансові функції мають більш як один аргумент.

До фінансових функцій відносяться такі: NPer, Rate, Pmt, Pv, Fv. Усі фінансові функції мають однакову структуру написання. Наприклад, функція Nper має такий синтаксис NPer(Rate,Pmt,Pv,Fv), де Nper -число облікових періодів, Rate -процентна ставка за один обліковий період, Pmt -сумма періодичного платежу, Pv -справжня вартість внеску, Fv -майбутня вартість внеску.

Фінансові функції записуються по такому правилу, щоб знайти відповідну фінансову функцію необхідно її винести за скобки такого виразу (Rate,NPer, Pmt,Pv,Fv).

Функції з формування вікна для введення виведення даних

Функція InputBox. Забезпечує формування вікна для введення даних в текстовому виді з відображенням його заголовка і запрошення до користувача.

Синтаксис функції:

P = InputBox("Запрошення для введення текстових даних", " Заголовок вікна").

Приклад:

P = InputBox("Введіть значення розряду працюючого", " Розрахунок заробітної плати ")

Функція MsgBox. Ця функція призначена для виводу повідомлень у вигляді числа або текста у діалоговому вікні MsgBox з ім’ям додатку який створював користувач.

Синтаксис функції MsgBox такий: MsgBox(“Значення для виводу даних”, число кнопок”, “Назва вікна для виводу”). Число кнопок у вікні повідомлення може бути 0,1,2.... Якщо 0 то буде одна кнопка ОК у вікні повідомлення, якщо 1 то буде дві кнопки ОК та Отмена, якщо 2 то буде: Прервать, Повтор, Пропустить. Треба уважно дивитись на кількість ком у аргументі функції, дужки не обов’язкові.

Приклади: MsgBox(“A = ”&A) або MsgBox(NPer), де NPer ім’я змінної, MsgBox "Заробітна плата (для Р*С<=8) становить" & z & " грн.".

4. Лінійні алгоритми та алгоритми що розгалужуються

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

Програмування лінійних алгоритмів

У лінійному обчислювальному процесі всі операції виконуються послідовно у порядку їх запису. Всі оператори програми виконуються зліва направо й донизу. Прикладом лінійної програми є: програма обчислення вартості товару за формулою: Сума=Ціна*кількість де Ціна = С+П, С – собівартість продукції тобто витрати виробництва, П – прибуток.

Постановка задачі. Спроектувати додаток для розрахунку вартості товару, якщо відомо ціну одиниці товару - Ц, і кількість його одиниць - N.

И створення додатку:

1. Розроблення призначеного для користувача інтерфейсу.

2. Введення тексту програмного коду.

3. Виконання програми на ПК.

4. Збереження спроектованого додатку.

Розроблення інтерфейсу починається з розташування елементів керування на формі. На формі потрібно встановити 2 текстових елемента для введення даних і одне поле для виведення. Крім того потрібно зробити одне текстове поле для напису назви додатку і 3 пояснюючи написи для введення даних. До інтерфейсу слід додати кнопку керування рис.12.

Рисунок 12. Вікно інтерфейсу

Властивості елементів керування встановлюються згідно таблиці 4.

Таблиця 4. Значення властивостей елементів керування

Елемент керування	Назва властивості	Значення властивості
Label1	Caption Font	Каса Times New Roman,;жирний, 14
Label2	Caption Font	Ціна Times New Roman,;жирний, 14
Label3	Caption Font	Кількість Times New Roman,;жирний, 14
Label4	Caption Font	Вартість Times New Roman,;жирний, 14
TextBox1	Text Font TabIndex	Times New Roman,;жирний, 14
TextBox2	Text Font TabIndex	Times New Roman,;жирний, 14
TextBox3	Text Font TabIndex	Times New Roman,;жирний, 14
CommandButton1	Caption Font TabIndex	Обчислити Times New Roman,;жирний, 14

Подвійним клацанням лівою клавішею миші на кнопці «Обчислити» відкривається вікно редактора коду, де відображається шаблон для процедури:

Private Sub CommandButton1_Click()

End Sub

Між цими операторами треба ввести код програми:

Dim Ціна As Currency

Dim Кількість As Integer

Ціна = Val(TextBox1.Text)

Кількість = Val(TextBox2.Text)

TextBox3.Text = Ціна * Кількість

Перші три оператори оголошують тип змінних. Наступні два оператори присвоюють змінним Ціна і Кількість значення, введені користувачем у перше та друге текстові поля та перетворюють введені дані в числові значення. Наступний оператор присвоює властивості Text третього поля результат перемноження змінних Ціна і Кількість із відображенням результату в третьому текстовому полі.

Запуск додатка виконується за допомогою кнопки Run. Введення даних виконується в перше та друге текстове поле. Обчислення виконується натисненням лівою клавішею миші на кнопці «Обчислити».

Збереження проекту. Робота над проектом закінчується виконанням команди File ►Save.

4.2. Програмування алгоритмів що розгалужуються

Обчислювальний процес, що розгалужується, передбачає вибір одного з кількох можливих варіантів обчислень залежно від результату перевірки умови, яка має вигляд виразу логічного типу (наприклад: X>Y, 15<>30, (A>B) And (C<D), (A>B) Or (C<D), Not(x=0)).

Для вибору одного з кількох можливих варіантів обчислень залежно від результату перевірки умови використовують наступні оператори умовного переходу If... Then.... Else:

Однорядкова форма оператора

If умова Then оператор 1[ Else оператор 2],

де оператор1 та оператор 2 це любі оператори або можуть бути операторами умовного переходу (квадратні дужки вказують на те що оператор 2 не є обов’язковим).

Багаторядкова форма

If умова Then

послідовність операторів 1

Else

послідовність операторів 2

End if

Синтаксис вкладеного умовного оператора

If умова1 Then

if умова2 Then

послідовність операторів A

Else

послідовність операторів B

End if

End if

Оператор If... Then.... Elseif

If головний умовний вираз Then

послідовність операторів A

Else if умовний вираз 1 Then

послідовність операторів 1

Else if умовний вираз 2 Then

послідовність операторів 2

............................................

Else if умовний вираз N Then

послідовність операторів N

[ Else послідовність операторів B]

End if

Наприклад. Розрахувати відсоток виконання (ВВ) плану випуску продукції підприємством за місяць, користуючись формулою

ВВ = ФВП/ПВП*100, де ФВП – фактичний випуск продукції, ПВП –плановий випуск продукції. Для розрахунку спочатку створюємо інтерфейс (рис.13).

Рисунок 13. Вікно інтерфейсу по розрахунку відсотка виконання (ВВ) плану

При створенні інтерфейсу враховувалось, що можуть бути такі випадки:

план перевиконано на... відсотків;

план недовиконано на.. відсотків;

план виконано на 100%.

Якщо введені нульове значення плану тоді потрібно вивести: «Не задано план. Помилка».

Значення властивостей елементів керування, встановлених на формі приведені в таб.5.

Таблиця 5. Значення властивостей елементів керування

Елемент керування	Назва властивості	Значення властивості
TextBox1	Name Font Text	План Times New Roman,;жирний, 14
TextBox2	Name Font Text	Факт Times New Roman,;жирний, 14
Label 1	Caption Font	Факт Times New Roman,;жирний, 14
Label 2	Caption Font	План Times New Roman,;жирний, 14
Label 3	Name Caption	Виконання
Label 4	Name Caption	Відсоток
CommandButton1	Caption	Обчислити
Form	Caption	Програма обчислення відсотка виконання плану

Текст програмного коду: