Построение эталона интерактивной презентации

Сначала создадим титульный слайд.

1. Введите название – Пример интерактивной презентации
2. Вставьте второй слайд
3. С первого слайда осуществляется переход на второй по гиперссылке. В качестве гиперссылки используйте элемент «Прямоугольник» (панель рисования PowerPoint, кнопка прямоугольник), растянутый на весь слайд, цвет заливки – нет, цвет линии – нет линии.

После щелчка на кнопку «Начать работу» появится окно для регистрации. Если имя не было введено, то появится соответствующее сообщение:

Если регистрационное имя будет введено, то под этим именем будет создан файл рабочей копии презентации с расширением.pps, в которой для слайдов 1 и 2 устанавливается атрибут «скрытый слайд» (в папке VB) В этой же папке создаются три текстовых файла последовательного доступа. Файл Y:\VB\фамилия предназначен для записи внедренного регистрационного имени, файл Y:\VB\....rtf – для записи номеров слайдов и результатов выполнения заданий, файл y:\VB\Slaid_...- для записи номеров слайдов с выполненными заданиями. Перед созданием всех четырех файлов проводится проверка их наличия в папке Y:\VB\ и в случае обнаружения они удаляются, а затем создаются вновь(для повторного тестирования).

1. Наберите текст –Регистрационный слайд

Создание кнопки «Начать работу»:

1. Активизируйте панель Элементы управления (команда Вид, Панели инструментов, Элементы управления)
2. Щелкните на элементе управления CommandButton (кнопка)
3. Изобразите кнопку на слайде
4. Щелкните на ней правой кнопкой мыши и выберите пункт Свойства
5. Измените свойства элемента управления CommandButton (кнопка в соответствии с приведенной ниже таблицей

1. Щелкните на кнопке правой кнопкой мыши и выберите пункт меню Исходный текст. Откроется окно ввода кода
2. Введите код процедуры:

Private Sub cmdWork_Click()

frmInteraction.Show

End Sub

1. Сохраните презентацию

Создание формы:

1. Запустите редактор Visual Basic командой Сервис, Макрос, Редактор VB., появиться окно редактора, состоящее из нескольких окон
2. Выберите команду Insert, UserForm. Появится пустое окно формы UserForm1
3. щелкните на окне формы – оно станет активным
4. Выполните команду View, Properties Win. Откроется окно свойств Properties.
5. Выберите вкладку Alphabetic окна свойств
6. Измените значения свойств согласно таблице:

1. Сохраните презентацию