1. Інструментальне середовище Visual Basic for Application та створення власної панелі інструментів
Мета роботи вивчення інструментального середовища програмування Visual Basic for Application, його системи меню, режимів роботи, текстового редактора програм, виконання програм, довідково-інформаційної системи.
1.1 Створення документа ms Word
Починаю роботу зі створення файлу документа Word і присвоюю йому ім’я «RGR_5_Sacharcenko.doc». (рис. 1.1)
Рис.1.1.Створення документа MS Word
1.2 Створення панелі інструментів користувача
Створюю власну панель інструментів з ім’ям «Sacharchenko». Для цього викликаю контекстне меню, пункт Настройки, обираю закладку Панель инструментов, натискаю клавішу Создать. У полі вводу Панель инструментов набираю Sacharchenko. У полі вводу Сделать панель доступной для вказується файл «Sacharchenko.doc». (рис. 1.2)
Рис.1.2 Вікно настройки
1.3 Створення макросів програми.
Сервис → Макрос →Макросы. У полі ввода Макросы я вказую файл «RGR_5_Sacharchenko.doc». Створюю 2 макроси для програм:
Лінійна програма – Linijna
Розгалуджена програма – Rozgal
У вікні макрос ввожу ім’я першої програми та натискаю клавішу Создать. Відкривається вікно Visual Basic в якому дописую коментарі і функцію для вивелення назви програми:
Sub Linijna ( )
’ автор розробник студент групи 203-Б Захарченко О. І.
’ лінійна програма
MSGBOX («Лінійна програма»)
End Sub
Натискаю Run, виводиться вікно Лінійна програма, це вказує на те, що заготовка працює вірно. Повторюю операцію для іншої програм: розгалуження. (рис 1.3)
Рис.1.3. Створення макросу
1.4. Заповнення власної панелі інструментів піктографічними клавішами.
Д
ля
цього викликаю Контекстное меню пункт
Настройки. У вікні Настройки викликаю
закладку Команды.
У списку Категории обираю пункт Макросы.
Створені макроси з’являються
в панелі команди і починаються зі слова
Project.
За допомогою миші перетаскуємо необхідні
макроси у власну панель інструментів.
(рис 1.4)
Рис.1.4. Заповнення панелі інстрементів
1.5 Редагування піктографічних кнопок панелі інструментів.
Для цього при включеному вікні Настройки викликаю контекстне меню відповідної програми. Вибираю пункт основний стиль, піктограма приймає вигляд стандартної іконки. Викликаю контекстне меню відповідної програми, обираю пункт Изменить значок на кнопке, з’являеться вікно графічного редактора піктограм кнопок, змінюю зовнішній вигляд 2 кнопок. (рис 1.5)
Рис.1.5. Редагування піктографічних кнопок
Висновок: у ході виконання цієї роботи мною було створено власне піктографічне меню «Sacharchenko», які я наповнив кнопками з заготовками макросів, які буду використовувати в майбутньому.
2. Програмування алгоритмів лінійної структури
Мета роботи програмування обчислювального процесу лінійної структури і навичками налагодження й тестування програм.
2.1 Постановка задачі.
Р
озробити
алгоритм та програму розрахунку значень
функції y і z згідно з формулами:
Протестувати роботу програми за такими
вхідними даними: a=16,5; b=3,4; x=0,61.
2
.2
Блок схема
алгоритму
Блок-схему алгоритму наведено на рис.1.
2.3 Таблиця ідентифікаторів
Змінна алгоритму |
x |
S |
Q |
a |
b |
Ідентифікатор |
x |
S |
Q |
a |
b |
Тип |
Single |
Single |
Single |
Single |
Single |
Рис 1.1. Блок схема
2.4 Текст програми
Sub Linijna( )
'' автор розробник студент гр 203-Б Захарченко О. І.
' лінійна програма
' 13.10.2011 KREST
MsgBox ("Лінійна")
Dim a As Single, b As Single
Dim x As Single
Dim S As Single, Q As Single
'Введення вхідних даних
a = InputBox("Уведіть a")
b = InputBox("Уведіть b")
x = InputBox("Уведіть x")
'обчислення виразу
S = x ^ 3 * Tan((x + b) ^ 2) + a / Sqr(x + b)
Q = ((b * (x ^ 2)) - a) / ((Exp(a * x)) - 1)
'вивести результат
MsgBox ("S=" + Str(S))
MsgBox ("Q=" + Str(Q))
End Sub