4.1.Создать слайд №27 “Правильный ответ” (рисунок 21).
Вставить текстовые сообщения Меню-Вставка→WordArt→выбрать шаблон→ОК.
Изменить текст шаблона согласно рисунку 21.
4.2Создать слайд №28 “Неправильный ответ” (рисунок 22).
Вставить текстовые сообщения Меню-Вставка→WordArt→выбрать шаблон→ОК.
Изменить текст шаблона согласно рисунку 22.
5. Создать слайд №29-подведение итогов (рисунок 23).
При создании слайда потребуются объекты «Надпись» и «Кнопка» .
Выбрать слайд «Подведение итогов».
При помощи инструмента Панель рисования →Надпись создайте на слайде несколько текстовых сообщений:
«всего вопросов», « из них правильных», «процент правильных ответов», «оценка».
В созданных текстовых полях на слайде необходимо удалить появившиеся надписи Label1, Label2, Label3, Label4. Для этого очистите поле «Caption» в окне «Properties» (Свойства).
Изменить настройки для Label1 Правая клавиша мышки→Свойства→
Шрифт→ Arial Black60→ForeColor→&H00C00000&→TextAlign-2.
Изменить настройки для Label2 Правая клавиша мышки→Свойства→
Шрифт→ Arial Black60→ForeColor→&H000000C0&→TextAlign-2.
Изменить настройки для Label3 Правая клавиша мышки→Свойства→
Шрифт→ Arial Black60→ForeColor→&H00C0C000&→TextAlign-2.
Изменить настройки для Label4 Правая клавиша мышки→Свойства→
Шрифт→ Arial Black60→ForeColor→ &H000000FF&→TextAlign-2.
Создать на слайде еще три объекта: “Подвести итоги” , “Результат” и ”Завершение работы” (рисунок 20).
При создании данных кнопок действия должны быть аналогичны действию создания кнопки «Далее».
Изменить местоположение текста, надписей и кнопок так, чтобы все объекты разместились на слайде.
На слайде «Подведение итогов» созданы три кнопочных объекта: «Подвести итоги» и «Продолжит тестирование» «Закончить тестирование». Необходимо, чтобы:
•При нажатии кнопки «Подвести итоги» появлялись сообщения об общем количестве пройденных вопросов, правильных ответов, процентном соотношении, а также выставлялась оценка.
•При нажатии кнопки «Продолжить тестирование» очищались все поля сообщений и совершался переход к титульному слайду.
При нажатии кнопки «Закончить тестирование» очищались все поля сообщений и завершалась работа презентации.
Дважды щелкнув кнопкой мыши на кнопке «Закончить тестирование», автоматически откроется окно VBA с заготовкой процедуры обработки :
Private Sub CommandButton3_Click()
End Sub
Убрать эти строки ,добавив следующий код процедуры
Private Sub CommandButton3_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
SlideShowWindows(Index:=1).View.Exit
End Sub
Дважды щелкнув кнопкой мыши на кнопке «Продолжить тестирование», автоматически откроется окно VBA с заготовкой процедуры обработки :
Private Sub CommandButton2_Click()
End Sub
Убрать эти строки ,добавив следующий код процедуры
Private Sub CommandButton2_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
SlideShowWindows(Index:=1).View.GotoSlide 1
End Sub
Дважды щелкнув кнопкой мыши на кнопке «Подвести итоги», автоматически откроется окно VBA с заготовкой процедуры обработки :
Private Sub CommandButton1_Click()
End Sub
Убрать эти строки , добавив следующий код процедуры:
Private Sub CommandButton1_Click()
Label1.Caption = kolvopros 'Присвоение свойству Caption объекта "Всего вопросов" значения kolvopros
For nomer = 1 To 8
If Vopros(nomer) = 5 Then koltrue = koltrue + 1
Next nomer
Label2.Caption = koltrue 'Присвоение свойству Caption объекта "Из них правильных" значения koltrue
Pro = (koltrue / kolvopros) * 100 'вычисляем процент правильных ответов
Label3.Caption = Int(Pro) 'Присвоение Caption объекта "Процент правильных ответов" значения Pro
If Pro > 85 Then Label4.Caption = 5 'При значении Pro>85 присвоение свойству Caption объекта Оценка значения "Отлично"
If Pro <= 85 And Pro > 60 Then Label4.Caption = 4 'При значении Pro<=85 и одновременном выполнении условия Pro> 60 присвоение свойству Caption объекта Оценка значения "Хорошо"
If Pro <= 60 And Pro > 20 Then Label4.Caption = 3 'При значении Pro<=60 и одновременном выполнении условия Pro> 20 присвоение свойству Caption объекта Оценка значения "Удовлетворительно"
If Pro <= 20 Then Label4.Caption = 2 'При значении Pro<=20 присвоение свойству Caption объекта Оценка значения "Плохо"
End Sub
В главном меню редактора VBA выбрать команду меню Insert →Module.
В появившейся папке Module активизируйте окно «Module1», щелкнув на нем один раз кнопкой мыши.
Добавить следующий код процедуры:
Public a, b, c, xx, xxx, k, j, i As Integer 'открываем переменные для общего использования
Public Vopros(1 To 8), nomer As Integer 'открываем переменные для общего использования
Public kolvopros, koltrue, Pro As Integer 'открываем переменные для общего использования
Public vremja_starta, max_sek, pl, pp 'открываем переменные для общего использования
Public Function sluch(ByVal c As Integer, ByVal b As Integer) As Integer 'функция случайного целого числа от c до b
Randomize
sluch = Int((b - c) * Rnd() + c)
End Function
Public Sub delay(ByVal max_sek As Single, ByVal pp As Single) 'процедура задержки очередной операции на max_sek секунд с шагом pp
vremja_starta = Timer 'установливаем начало таймера показа слайда
Do While Timer < vremja_starta + max_sek
'paus 0.1 'процедура задержки отсчета на 0,1 секунды
pl = Timer() + pp
Do
DoEvents
Loop While Timer() < pl
Loop
End Sub
Public Sub formbegin()
For k = 2 To 10
SlideShowWindows(1).View.Next 'смена следующего слайда
delay 0.2, 0.1 'задержка показа слайда 0,2 секунды
Next k
End Sub
Public Sub strelka()
For j = 1 To 3
For i = 11 To 18
SlideShowWindows(1).View.GotoSlide i 'показ вращающейся стрелки 3 круга
delay 0.2, 0.1
Next i
Next j
End Sub
Public Sub strelka_vybor(ByVal c As Integer)
For i = 11 To c + 10
SlideShowWindows(1).View.GotoSlide i 'показ вращения стрелки до выбранного числа
delay 0.2, 0.1
Next i
delay 0.2, 0.1
SlideShowWindows(1).View.GotoSlide c + 18 'переходим на выбранный слайд
End Sub
Установите уровень безопасности работы макросов с помощью команды основного меню Сервис→ Макрос → Безопасность. Обычно по умолчанию используется уровень высокой безопасности. Так как в готовой презентации будут использоваться созданные вами программы, то необходимо изменить уровень безопасности использования макросов на средний или низкий. Если этого не сделать, то при запуске теста макросы будут автоматически отключаться без уведомления пользователя и тест - программа работать не будет.
Запустить программу презентации, нажав на клавиатуре F5.
Появиться титульный слайд презентации-теста, приглашая начать тестирование, ответив на три вопроса.
Нажать кнопку на титульном слайде “Начать тестирование”.
Появиться мультипликационное изображение рулетки, где стрелка будет двигаться
вдоль цифр от 1 до 8, выбирая вопрос случайным образом.
Далее появиться слайд выбранного вопроса, где необходимо отметить правильный ответ (или ответы) галочкой и нажать кнопку “Далее”.
Программа покажет слайд с надписью “Правильный ответ” или “ Неправильный ответ “.
Если это не последний вопрос, то появиться опять изображение рулетки и стрелка сделает очередной выбор. Программа здесь проверить номер вопроса и если он уже был, то будет сделан очередной случайный выбор до тех пор, пока вопрос не окажется новым.
Далее надо дать ответ на представленный на слайде вопрос аналогично предыдущему вопросу.
Если три вопроса уже заданы и на них получены ответы (правильные или неправильные), программа перейдет на слайд “Поведение итогов”.
Нажатие клавиши “Подвести итоги” выдаст на слайд информацию о количестве заданных вопросов, количестве правильных ответов, проценте правильных ответов и оценит вас по пятибалльной системе (2-не удалось ответить на вопросы, 3-удалось ответить на один вопрос, 4-на 2 вопроса, 5-на все вопросы).
После получения результатов можно запустить новое тестирование, нажав на кнопку “Продолжить тестирование” или выйти из презентации-теста, нажав на кнопку “Завершить тестирование”.
Содержание отчета.
1.Блок-схема алгоритма работы программы презентации-теста.
2.Скриншоты слайдов презентации-теста на заданную тему.
Выбрать тему самостоятельно по направлению- Информатика, Электроника, Электротехника, Физика, Математика.
Презентация должна быть на 10 слайдов с выбором ответа на 4 вопроса.
3.Листинг программ на языке VBA с подробными комментариями.
4. Рекомендации по улучшению программ тестирования.
5.Исходные программы представить в бумажном и электронном виде.
Контрольные вопросы.
1.Создание и форматирование презентации PowerPoint.
2. Структура презентации PowerPoint .
3. Работа в программе Power Point.
4. Добавление эффектов анимации к объекту на слайде.
5. Работа с PowerPoint из VBA, автоматизация создания презентаций.
6. Алгоритм создания тестов в среде Visual Basic for Applications и MS Office.
7. Анимация и гиперссылки как инструментальные обучающие приемы программы PowerPoint.
8. Объекты, свойства и методы VBA.
9. Типы данных VBA.
10. Переменные и их объявление VBA.
11. Арифметические и логические операции VBA.
12. Операторы присваивания VBA.
13. Условные операторы VBA.
14.Операторы цикла VBA.
15.. Встроенные диалоговые окна VBA.
Список литературы:
1 А. Гарнаев, Самоучитель VBA. – Санкт-Петербург, Издательство БХВ–Санкт-Петербург, 2011. – 511с.
2. В.С. Пташинский, Самоучитель Office 2013– Москва, Издательство Эксмо,2013. – 288с.
3. О.В.Спиридонов, Microsoft Office для пользователя– Москва, Издательство Эксмо,2013– 350с.
4. Н.В.Макарова, В.Б. Волков, Информатика – Санкт-Петербург, Издательство Питер, 2011– 576с.
5. Г.Н.Хубаев, С.М. Патрушина, Н.Г. Савельева, Е.Г. Веретенникова, Информатика– Ростов-на-Дону, Издательство Феникс,2010– 288с.
6. Э.В. Вашкевич, PowerPoint 2007. Эффективные презентации на компьютере– Санкт-Петербург, Издательство Питер, 2008– 240с.
7. Ю.И.Кудинов, Ф.Ф. Пащенко, А.Ю. Келина, Практикум по основам современной информатики – Санкт-Петербург, Издательство Лань, 2011– 352 с.
8. Ю.И. Кудинов ,Ф.Ф. Пащенко, Основы современной информатики– Санкт-Петербург, Издательство Лань ,2011– 256 с.
9. В.Леонов, PowerPoint 2010 с нуля– Москва, Издательство Эксмо,2010– 320с.
11.А.В. Гураков, Информатика. Введение в Microsoft Office –Томск, издательство Эль Контент, 2012– 120с.
10. А.С.Грошев, Информатика.Учебник для вузов-Архангельск, издательство Архангельского государственного технического университета,2010-470с.
11. А.С.Грошев, Программирование на языке Microsoft Visual Basic for Applications.Методические указания к выполнению лабораторных работ.- Архангельск, издательство Архангельского государственного технического университета,2013-35с.
12. С.Каммингс, VBA для “чайников”-Москва,Издательский дом “Вильямс”,2002-448с.
13. А.Н.Любин, Создание пользовательских форм в Visual Basic for Applications.Учебное пособие-Москва,издательство МГМУ “МАМИ” ,2012-60с.
14.Л.А.Демидова, А.Н.Пылькин, Программирование в среде Visual Basic for Applications.Практикум-Москва,Горячая линия-Телеком,2014-175с.
15. И.С.Осетрова, Н.А.Осипов, Microsoft Visual Basic for Applications.Учебное пособие- Санкт-Петербург, Издательство НИУ ИТМО ,2013– 130 с.