Автоматизация работы в среде MS Office

  End Sub  

  Сохраните изменения в макросе, выбрав пункт Save Normal в меню File,  и закройте окно редактора Visual Basic - пункт Close and Return to Microsoft Word в меню File. Запустите макрос и заполните поля контракта. 
 
 
 
 
 
 
 
 
 

  PowerPoint, позволяет пользователю самостоятельно по собственному сценарию подготовить интерактивную мультимедийную презентацию с минимальными временными затратами. Разработка небольших программ на VBA позволяет превращать презентации из наглядных пособий в диалоговые системы обучения и проверки знаний. Рассмотрим процесс создания одного из элементов таких систем на примере проверки  знания учениками теоремы Пифагора.  

  Задание 1. Создать на слайде  интерфейс для проведения вычислений.

    Создайте слайд аналогично рисунка 19. В нём наряду с обычными объектами PowerPoint находятся два элемента управления VBA Поле и Кнопка, которые добавляются при помощи панели Элементы управления. Нажмите изображение элемента на панели и нарисуйте его точно так же, как и при помощи любого графического редактора, в том месте слайда, где задумали расположить. Нажав на кнопку измените свойство Caption (надпись) элемента управления Кнопка изменим на Проверка. При нажатии на кнопку будет проведена проверка правильности значения введенного в поле.

Рис. 19

  Теперь  можно перейти к созданию программы  активизирующейся при нажатии на кнопку. Для этого дважды щёлкните на созданной кнопке. В результате откроется редактор VBA с активизированным модулем рабочего листа. Кроме того,  двойной щелчок на кнопке создаст в модуле первую и последнюю инструкции процедуры обработки события – нажатие кнопки:   Наберите следующий код программы:

                      Private Sub CommandButton1_Click()

                        If TextBox1.Text = “4” Then MsgBox "Верно" Else MsgBox "Ответ неверный"

                        TextBox1.Text = ""

                        End Sub     Программа готова, протестируйте её работу. Предложите учащимся привести примеры других теорем, для которых можно использовать данный пример.

  Разработка  заданий для MS PowerPoint. 

  Трудно  представить в наше время защиту диссертации, научный доклад или  даже защиту студенческой курсовой работы, которые не сопровождались бы мультимедийной презентацией. Многообразие возможностей для создания презентаций предоставляет Windows-приложение PowerPoint, входящее в комплект интегрированного пакета Microsoft Office. Это приложение позволяет пользователю самостоятельно по собственному сценарию подготовить интерактивную мультимедийную презентацию с минимальными временными затратами. PowerPoint отличается от других интерактивных средств для аналогичных целей простотой, так как построено по идеологии «программирование без программирования», и его основные возможности могут быть освоены пользователем всего за несколько часов самостоятельной работы за компьютером [16].

    Недостатки интерактивного интерфейса  вполне могут быть скомпенсированы  использованием макросов. Разработка небольших программ на VBA позволяет превращать презентации из наглядных пособий в диалоговые системы обучения и проверки знаний. Рассмотрим процесс создания одного из элементов таких систем на примере проверки  знания учениками теоремы Пифагора.  

  Задание 1. Создать на слайде  интерфейс для проведения вычислений.

    Создайте слайд аналогично рисунка 19. В нём наряду с обычными объектами PowerPoint находятся два элемента управления VBA Поле и Кнопка, которые добавляются при помощи панели Элементы управления. Нажмите изображение элемента на панели и нарисуйте его точно так же, как и при помощи любого графического редактора, в том месте слайда, где задумали расположить. Нажав на кнопку измените свойство Caption (надпись) элемента управления Кнопка изменим на Проверка. При нажатии на кнопку будет проведена проверка правильности значения введенного в поле.

Рис. 19

  Теперь  можно перейти к созданию программы  активизирующейся при нажатии на кнопку. Для этого дважды щёлкните на созданной кнопке. В результате откроется редактор VBA с активизированным модулем рабочего листа. Кроме того,  двойной щелчок на кнопке создаст в модуле первую и последнюю инструкции процедуры обработки события – нажатие кнопки:

                      Private Sub CommandButton1_Click()

                       End Sub

  Наберите следующий код программы:

                      Private Sub CommandButton1_Click()

                        If TextBox1.Text = “4” Then MsgBox "Верно" Else MsgBox "Ответ неверный"

                        TextBox1.Text = ""

                        End Sub

  Программа готова, протестируйте её работу. Предложите учащимся привести примеры других теорем, для которых можно использовать данный пример.