Приклад виконання курсової роботи
Теоретична частина
1. Створення макроса за допомогою макрорекордера
Мета роботи: освоєння прийомів виготовлення макроса в середовищі додатків до Windows 95, програмування макроса шляхом виконання певного переліку операцій над документом і автоматичного запису цих операцій у вигляді інструкцій мови Visual Basic for Application, запуску та перевірки роботи макроса.
Макрос представляє собою програму, написану мовою Visual Basic for Application. Він призначений для автоматизації рутинної та непродуктивної роботи з документами. Як правило, макроси використовують для розширення можливостей додатків до Windows 95, зокрема MS Word, MS Excel та ін. Зберігається макрос у тому самому файлі, де знаходиться документ, який він обробляє.
Макрос можна виготовити за допомогою макрорекордера або редактора Visual Basic. Макрос, виготовлений за допомогою макрорекордера, має обмежені можливості, бо може виконувати лише види робіт, передбачені додатком. Рекомендується виготовляти макрос за допомогою макрорекордера, а потім доповнювати його засобами Visual Basic за допомогою редактора макросів.
Для виготовлення макроса за допомогою макрорекордера служить команда головного меню: Сервіс – Макрос – Почати запис. Під час виконання цієї команди появляється вікно Запис макроса, призначене для найменування макроса. Макрорекордер пропонує свої варіанти імен – Макрос1, Макрос2 і т. д., можна погодитися з ним і натиснути клавішу Ok. Після цього необхідно виконати всі роботи, які повинен буде повторити макрос. Для закінчення запису макроса служить команда Припинити запис із одноіменного віконця, розташованого на фоні документа. Якщо це віконце випадково виявилося відсутнім, його можна встановити командою головного меню: Вигляд – Панелі інструментів – Припинити запис.
Всі операції над документом, виконані під час запису макроса, виявляться записаними у вигляді інструкцій Visual Basic. Текст макроса можна переглянути і відредагувати за допомогою команди головного меню: Сервіс – Макрос – Макроси, яка викликає вікно Макрос. У цьому вікні вибираємо команду Змінити, після чого появляється вікно редактора макросів Microsoft Visual Basic з текстом макросів. Запуск готового макроса забезпечується командою Виконати з вищезгаданого вікна Макрос.
Приклад.
Постановка задачі: виготовити макрос, який додає в кінець тексту відкритого документа MS Word слова “До зустрічі”, окрашені в червоний колір. Описати команди одержаного макроса.
Виготовлення макроса:
відкриваємо документ MS Word;
виконаємо команду головного меню: Сервіс – Макрос – Почати запис;
у вікні Запис макроса погодимось на пропозицію рекордера назвати новий макрос Макрос1 (може бути Макрос2, Макрос3 і т.д.), натиснемо клавішу Ok;
появляється вікно Документ MS Word, у ньому перенесемо курсор на кінець тексту командою Ctr+End;
вносимо текст До зустрічі.;
натискаємо клавішу Home для переводу курсора на початок рядка;
натискаємо клавіші Shift+End для виокремлення рядка;
на панелі інструментів Малювання вибираємо колір шрифту – Червоний;
у вікні Припинити запис натискаємо клавішу Припинити запис, вона має вигляд заштрихованого синім кольором квадратика.
Перегляд тексту макроса:
у вікні Документ MS Word виконуємо команду Сервіс – Макрос – Макроси;
у вікні Макрос вибираємо ім’я макроса та команду Змінити.
Текст макроса у вікні MS Visual Basic має вигляд:
Sub Макрос1()‘‘
Макрос1 Макрос‘
Макрос записан 30.11.02 DroNgo‘
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:=”До зустрічі.”
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Color = wdColorRed
Selection.TypeParagraph
End Sub
Опис інструкцій макроса:
Sub Макрос1() – початок програми, назва макроса;‘
‘ Макрос1 Макрос
‘ Макрос записан 30.11.02 DroNgo
‘ – коментарі програми, які не виконуються, вони служать для пояснення програми;
Selection.EndKey Unit:=wdStory – перенесення курсора на кінець тексту відкритого документа;
Selection.TypeText Text:=”До зустрічі.” – занесення тексту До зустрічі;
Selection.HomeKey Unit:=wdLine – перенесення курсора на початок рядка тексту;
Selection.EndKey Unit:=wdLine, Extend:=wdExtend – виокремлення рядка тексту;
Selection.Font.Color = wdColorRed – надання виокремленому фрагменту червоного кольору;
Selection.TypeParagraph – переведення курсора на наступний рядок;
End Sub – кінець програми.
Виконати макрос можна, натиснувши кнопку-команду Виконати у вікні Макрос або у вікні редактора Microsoft Visual Basic.
2. Редагування макороса за допомогою редактора Visual Basic
Мета роботи: освоєння прийомів редагування макроса в середовищі додатків до Windows 95, налагодження, запуску та перевірки роботи макроса.
Редагування макроса відбувається в режимі редактора Visual Basic, який викликається командою Змінити у вікні Макрос. Під час редагування можна використовувати конструкції мови Visual Basic. З них найбільш вживаними є:
оголошення констант, які не змінюються в процесі роботи програми
Const ім’я_константи=значення
Приклад: Const Pi=3.1415926
оголошення простих змінних
Dim ім’я_змінної As тип_ змінної
Основними типами змінних є:
Integer – ціле число (наприклад, 238);
Long – велике ціле число;
Single – дійсне число (наприклад 45.50);
Date – дата (наприклад, 04.08.02);
Boolean – логічний (True або False);
String – рядок довжиною до 256 літер;
Variant – будь-який тип (програма сама визначає тип залежно від даних);
Object – об’єкт Visual Basic.
Приклад оголошення двох змінних: а – цілого типу і slovo – рядка літер та присвоєння їм значень у програмі:
Dim a As Integer, slovo As String
a=632: slovo=”Петренко П.П.”
розгалуження
If умовний_вираз Then інструкція
або
If умовний_вираз Then інструкція1 Else інструкція2 EndIf’
Приклад: введення числа та його аналіз
Dim oplata As Single, slovo As String
oplata = MsgBox(“Введіть число”, “Вивід результата аналізу”, “100”)
If oplata < 300 then slovo = ”мало” Else slovo = ”небагато”
MsgBox “Введено число: ” & oplata & “ Висновок: ” + slovo
цикл 1 (з регулярною зміною параметра)
For ім’я_змінної=початкове_значення To кінцеве_значення Step крок
тіло циклу
Next ім’я_змінної’
Приклад: видача чисел від 1 до 10
Dim i As Integer
For i=1 To 10
MsgBox “№ виконання циклу: ” & i
Next i
цикл 2 (ітераційного типу)
While умовний вираз
тіло циклу
Wend’
Приклад: видача чисел від 1 до 10
Dim i As Integer
i=0
While i <