Лабораторная работа № 2

Создание макросов

Макросы в OpenOffice.org пишутся на языке VBA, синтаксис которого почти полностью идентичен синтаксису Visual Basic. Основные синтаксические принципы этого языка:

• VBA нечувствителен к регистру;
• чтобы закомментировать код до конца строки, используется одинарная кавычка или команда REM;
• символьные значения должны заключаться в двойные кавычки (“);
• максимальная длина любого имени – 255 символов.

Оператор – наименьшая единица кода VBA.

Арифметических операторов 7: сложение +, вычитание -, умножение *, деление /, возведение в степень ^, целочисленное деление \ (делит первое число на второе, отбрасывая дробную часть), деление по модулю mod (делит первую число на второе, возвращая только остаток от деления).

Переменные – это контейнеры для хранения данных. Переменные объявляются следующим образом:

Dim имя_переменной As тип_переменной

Типы данных:

• числовые:

Byte – целое число от 0 до 255;

Integer – целое число от -32 768 до 32 767;

Long – большое целое число от -2 147 483 648 до 2 147 483 647;

Single и Double – значения с плавающей запятой;

• строковые – String;
• дата и время – Data;
• логический – Boolean;
• объектный – Object – хранит ссылку на любой объект в памяти;
• variant – специальный тип данных, который может хранить любые другие типы данных;

Ввод данных

Осуществляется с помощью функции InputBox():

InputBox(«Тестовая строка»).

Особенность этой функции в том, что она всегда возвращает строку. Если пользователь вводит число, то оно будет сначала сохраняться в виде строки текста:

S=InputBox(«Введите число»).

Так что в переменной s сохранится тестовая строка, т.е. число в виде «12». Поэтому его нужно преобразовать в число. Для этого используется функция Val:

A=val(s).

Эта функция возвращает число, полученное преобразованием строки s. Если в s было, например, «12», то после использования Val, в переменной А будет число 12.

Вывод данных

Используется функция MsgBox(«Тестовая строка» & имя_переменной).

Задание 1

1. Откройте новый документ в Calc.
2. Откройте редактор Visual Basic, используя команду Сервис -> Макросы -> Управление макросами -> OpenOffice.org Бэйсик. С левой стороны окна диалога найдите документ, который Вы только что открыли. Кликните справа ниже от «untitled1» на названии папки «standard». Для создания нового модуля нажмите кнопку «Создать», расположенную справа. Откроется окно «Новый модуль» (рис. 11).

Рис. 11. Окно «Новый модуль»

3. В поле «Название» введите имя модуля «Hello». Откроется среда редактирования и отладки макросов OOo Basic IDE (рис. 12).

Рис. 12. Окно среды редактирования и отладки макросов

4. В поле окна между словами Sub Main   End Sub введите текст

MsgBox(«Hello»)

5. Кликните на кнопке с зеленым треугольником («Выполнить Basic») в верхней панели для выполнения макроса.
6. Программа запустится и откроется окно, которое создается функцией MsgBox (рис. 13). Обратите внимание, что текст, введенный в скобках функции выводится как надпись в окне функции.

Рис. 13. Окно функции MsgBox

7. Сохраните документ.

Самостоятельно

Выведите поздравления с Новым годом.

Задание 2

1. В этом же документе откройте редактор OOo Basic, используя команду меню Сервис->Макросы -> Управление макросами ->OpenOffice.org Бэйсик и выберите только что созданный макрос. Нажмите кнопку «Редактировать».
2. В среде редактирования поправьте имеющейся модуль, введя следующий текст:

Dim a as Integer

Dim s As String

s=InputBox(«Введите число»)

a = val(s)

MsgBox a

8. В первых строках объявляются переменные a и s. Первая имеет тип Integer (целое число), вторая – строка, в нее можно сохранять буквы или слова.
9. Далее используем функцию InputBox, которая считывает то, что ввел пользователь. Но все, что вводит пользователь, считается строкой. Если вводит число, то оно представляется как «2», а все, что в «» считается числом. Поэтому результат ввода сохраняется в переменной s. Чтобы убрать «» с числа применяется функция val, она переводит строку в число. И теперь результат можно сохранить в переменную а.
10.  Кликните на кнопке с зеленым треугольником («Выполнить Basic») в верхней панели для выполнения макроса.
11.  Программа запустится и откроется окно, которое создается функцией InputBox (рис. 14). Обратите внимание, что текст, введенный в скобках функции, выводится как надпись в окне функции. В окне функции InputBox в поле для ввода введите число и нажмите кнопку «ОК».

Рис. 14. Окно функции InputBox

12.  Откроется окно функции MsgBox с введенным ранее числом (рис. 15).

Рис. 15 Окно функции с результатом работы программы

13.  Сохраните документ.

Самостоятельно

1. Создайте программу, перемножающую два числа, введенных пользователем.
2. Выведите поздравления для того человека, имя которого введет пользователь.