Лабораторная работа 8. Макросы Basic в Impress
Краткая теория
Примеры
Sub Main
MyDialog12
'HelloWorld0()
End Sub
Sub HelloWorld0
Print "HelloWorld One"
End Sub
Sub HelloWorld10
Select Case MsgBox( "Вы щелкните по OK?", 3 + 512, "Сообщение №10")
Case 1:
Print "Вы выбрали О'Кей (Ok)!"
Case 2:
Print "Вы выбрали Отмена (Cancel)!"
Case 4:
Print "Вы выбрали Повторить (Repeat)!"
Case 5:
Print "Вы выбрали Пропустить (Skip)!"
Case 6:
Print "Вы выбрали Да (Yes)!"
Case 7:
Print "Вы выбрали Нет (No)!"
End Select
End Sub
Sub CityHero11
MyCity = InputBox("Назовите Ваш город:", "Сообщение №11", "Глазов")
If MyCity = "" Then
Print "Вы нажали Отмена (Cancel) :o("
Else
Print MyCity + " - Город-Герой :o)"
End If
End Sub
Sub MyDialog12
Dim Dlg As Object
DialogLibraries.LoadLibrary("lib_pract4")
Dlg = CreateUnoDialog(DialogLibraries.lib_pract4.Dialog1)
Dlg.Execute()
Dlg.dispose()
End Sub
Об отметках
Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.
"5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".
"4" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной "звездочкой".
"3" - в отчете выполнены все основные упражнения.
Упражнения
1. Создайте с помощью OOo Impress презентацию.
На слайде поместите прямоугольник-кнопку, при щелчке
мышкой по которому запускается макрос
на языке OOo Basic. Макрос запрашивает
имя пользователя и приветствует его.
2. Макрос запрашивает 2-хбуквенное обозначение
национального сетевого домена и выводит название
страны, которой принадлежит домен. Например, при
вводе домена "ru", вывод - "Российская Федерация".
Решить задачу двумя способами: 1) с помощью
оператора If ... Then ... Else ...; 2) с помощью
оператора Select Case ...
3. Макрос запрашивает ввод двух целых чисел
и выводит их наибольший общий делитель.
4.* Создайте макрос, который проверяет знание
таблицы умножения. Макрос должен генерировать
примеры из таблицы умножения с помощью
генератора псевдослучайных чисел.
5.** Создайте макрос, который проверяет знание
таблицы Менделеева.
6.* Реализуйте 8 различных вариантов
диалоговых окон с помощью функции MsgBox.
Окна должны появляться
при щелчке по объекту, который находится на слайде.
В 3-х вариантах проанализируйте
и сообщите, какая кнопка диалогового окна
была нажата, с помощью Print.
В 2-хкнопочных диалогах при анализе используйте
оператор If ... Then ... Else, а для 3-х кнопочных -
оператор Select Case ...