- •Передмова
- •Оцінювання результатів розрахункової роботи студентів
- •Вимоги до оформлення розрахункової роботи
- •Загальні вимоги
- •Теоретичні відомості
- •Алгоритмізація обчислювальних процесів
- •План–графік захисту розрахункових робіт
- •Завдання для розрахункової роботи
- •IV. Реалізація завдання засобами vba
- •V. Реалізація моделі в системі «Парус-підприємство»
- •Методичні вказівки до виконання завдання
- •Реалізація задачі ms Access.
- •Зв’язок між таблицями виконується за допомогою команди Схема даних ( ). Існують такі типи зв’язків: один до одного, один до багатьох, багато до багатьох.
- •Реалізація обчислювальних алгоритмів та аналіз даних в ms Excel
- •Реалізація завдання засобами vba
- •Тип даних які підтримує Visual Basic.
- •Стандартні типи функцій
- •Оператори програмування
- •Приклади виконання по розділах
- •Постановка задачі
- •Фінансове моделювання створеної схеми операцій
- •Приклади розрахунків
- •Результат роботи програми Екранна сторінка
- •Контрольні питання
- •Варіанти завдань до розрахункової роботи
- •Список рекомендованої літератури Основна
- •Додаткова
- •Інформаційні Ресурси мережі Інтернет
Стандартні типи функцій
Стандартні математичні функції:
Математичний запис |
Запис на Visual Basic |
Математичний запис |
Запис на Visual Basic |
sin x |
Sin (x) |
Випадкове число |
Rnd (x) |
cos x |
Сos (x) |
Перетворює числового значення у рядок |
Str (x) |
tg x |
Tan (x) |
Перетворює рядок у числове значення |
Val (x) |
x |
Abs (x) |
Закруглення числа до заданого числа значків |
Round (x , a) |
arctg x |
Atn (x) |
Визначення цілої частини додатного числа |
Fix (x) |
ln x |
Log (x) |
Визначення цілої частини від’ємного числа |
Int (x) |
ex |
Exp (x) |
logax |
Log(x)/Log(a) |
|
Sqr (x) |
Визначає знак числа |
Sgn (x) |
Функції для роботи з рядковими змінними:
Функція |
Дія |
Приклад |
Ucase (str) |
Переводить усі символи рядка у верхній регістр |
Ucase (“Ivan”) IVAN |
Lcase (str) |
Переводить усі символи рядка у нижній регістр |
Lcase (“IVAN”) ivan |
Len (str) |
Визначає довжину рядка |
Len (“Ivanova”) 7 |
Right (str, int) |
Виводить задане число символів від кінця рядка |
Right (“Ivanova”, 2) va |
Left (str, int) |
Виводить задане число символів з початку рядка |
Left (“Ivanova”, 4) Ivan |
Mid (str, int1, int2) |
Виводить задану кількість символів від указаної позиції |
Mid (“Ivanova”, 2, 3) |
String (int, str) |
Повторює вказаний символ установлену кількість разів |
String (4, “$”) $$$$ |
Asc (str) |
Виводить ACSII-код для вказаного символу |
Asc (”R”) 82 |
Chr (int) |
Виводить символ для вказаного ACSII-коду |
Chr (114) r |
Оператори програмування
InputBox забезпечує формування вікна для введення інформації з відображенням його заголовка і запрошенням користувача до введення інформації.
Приклад: х = InputBox (“х =” , “ Проект ” , , 400, 400)
MessageBox використовується для одержання від користувача відповідей “так” або “ні” і відображення коротких повідомлень, або виведення повідомлень (результатів розрахунків). Прочитавши повідомлення, користувач клацанням на кнопці “ОК” закриває вікно діалогу.
Приклад: MsgBox “Процес обчислення завершено”, 1, “Проект”
Для зміни послідовності виконання операторів використовуються оператори управління. До них відносяться оператори умови та циклу.
Умовний оператор IF має дві структури: лінійну та блочну. Синтаксис лінійної структури:
IF < логічний вираз > Then < оператори 1 > [ Else < оператори 2 > ]
Синтаксис блочної структури:
IF < логічний вираз 1 > Then
< оператори 1 >
[ ElseIf < логічний вираз 2 > Then
< оператори 2 > ]
[ Else < оператори n > ]
End If
Оператор циклу For (для). Синтаксис оператора:
For x=x0 To xn [Step h]
< група операторів >
[Exit For]
Next x
Де x – змінна циклу; x0 xn – початкове і кінцеве значення змінної; h – крок з яким змінюється значення змінної. Якщо h=1, то Step не пишеться. Exit For використовується у разі дострокового виходу з цикла. При виході з циклу значення змінної дорівнює останньому значенню, і відповідно результати розрахунків.
Оператор циклу While. Синтаксис оператору циклу:
While < умова>
< група операторів >
Wend
Оператор призначений для організації циклу з передумовою, у якому вказана група операторів виконується до того часу, поки вказана умова не стає хибною. Змінна, що входить в умову, змінюється в тілі циклу. Для дострокового виходу з циклу в разі виконання деякої додаткової умови використовується оператор Exit While.
Оператору циклу Do (ітераційний цикл). Синтаксис має два варіанти:
Do
< група операторів >
[ Exit Do ]
Loop While / Until < умова >
Do While / Until < умова >
< група операторів >
[ Exit Do ]
Loop
Де < умова > - логічний вираз, який може приймати два значення: істина, або хибність; While – виконання циклу, поки умова істина; Until - виконання циклу, поки умова хибна; Exit Do - достроковий вихід із циклу. Ітераційний цикл ПОКИ: Do While ... Loop - цикл, що задається цією конструкцією, виконується доти, поки умова, що задається в циклі істина (дотримується).
Процедура Function (функція). Функції створюються тоді, коли деякі дії потрібно виконувати багато разів і необхідно їх зафіксувати.
Синтаксис:
Function < ім’я функції > ( [ аргументи функції ] ) [As < тип > ]
<оператори функції>
[ Exit Function ].
End Function
Де:
ім’я функції - ідентифікатор функції;
аргументи – імена змінних, значення яких використовується функцією;
тип - це тип значень, які повертає функція
Exit Function – достроковий вихід.
Приклад .
Function TotalTax(Cost)
StateTax=Cost*0.05 ‘Податки штату 5%
CityTax= Cost*0.015 ‘Міські податки 1,5 %
TotalTax= StateTax + CityTax
End Function
Для активізації процедури типу Function треба ввести в програму ім'я процедури з тією кількістю аргументів, які використовувалися при її оголошенні. Зазвичай процедури типу Function (функція) розробляють з метою виконання певних обчислень. Використовуються за тими ж правилами як і стандартні функції: значення функції зазвичай присвоюється змінній чи властивості об’єкта
Прогамування обчислювальних процесів
Програма обчислення вартості товару:
Private Sub Command_Click()
Dim Ціна As Currency
Dim Кількість As Integer
Dim Вартість As Single
Ціна=Val(Text1.Text)
Кількість= Val(Text2.Text)
Вартість = Ціна*Кількість
Text3.Text= Вартість
End Sub
