Делаем тест в MS PowerPoint 2010 (часть 2)

Итоговый слайд

^{(Если картинка для вас слишком маленькая и на ней ничего не разобрать кликните по ней)}

Делаем тест в MS PowerPoint 2010 (часть 1)

Итоговый слайд на котором будет отображено сколько всего было задано вопросов, сколько из них правильных, вывод оценки (оценивать будем по процентовке количества правильных ответов) и сделаем возможность пройти тест снова.

Оформляем его как показано на рисунке.
«Итоги теста» пишем в заголовке слайда;
«Всего вопросов:, Из них правильных: и Оценка:» набираем в поле объект.
Для подведения итогов добавляем кнопку (на панели добавления элементов управления ) и меняем ее название на, «Итог».

C использованием флажка (CheckBox)

Для повтора теста ставим флажок (на панели добавления элементов управления ) с названием «Повторить тест», потом напишем для него код.

И последним поставим еще одну кнопку с названием «Выход» она будет выполнять двойную функцию. Т.е. если флажок включен то кнопка «Выход» поменяет свое название на «Повторить тест» и соответственно будет выполнять эти действия.

Также для вывода информации о всего заданных вопросах о количестве правильных ответов и оценки на слайд добавляем подпись (на панели добавления элементов управления ) на против каждого из этих пунктов.

Перейдем к коду и начнем со флажка его задача сменить название кнопки выход:

1. If CheckBox1.Value = True Then
2. CommandButton2.Caption = «В начало«
3. Else: CommandButton2.Caption = «Выход«
4. End If

Кнопка выхода у нас будет выполнять двойную функцию это и выход и повтор теста поэтому тут мы также будем проверять состояние флажка:

1. Label1.Caption = «»
2. Label2.Caption = «»
3. Label3.Caption = «»
4. Prav = 0
5. Vsego = 0
6. CommandButton2.Enabled = False
7. CheckBox1.Enabled = False
8. If CheckBox1.Value = True Then
9. SlideShowWindows(1).View.GotoSlide 1 ‘тут вместо единицы после gotoslide можно указать номер слайда с которого начинается тест либо оставить без изменений и вся презентация повторится заново.
10. Else: SlideShowWindows(1).Presentation.Close
11. End If

Для кнопки «Итог»:

1. Label1.Caption = Vsego
2. Label2.Caption = Prav
3. procent = Prav / Vsego * 100
4. If procent >= 85 Then
5. Label3.Caption = «Отлично«
6. ElseIf procent < 85 And procent >= 60 Then
7. Label3.Caption = «Хорошо«
8. ElseIf procent < 60 And procent > 30 Then
9. Label3.Caption = «Удовлетворительно«
10. Else: Label3.Caption = «Плохо«
11. End If
12. CommandButton2.Enabled = True
13. CheckBox1.Enabled = True

Проверяем на правильность тест, проверив все возможные ответы (т.е. когда все правильно, допущена одна ошибка, две ошибки и т.д.).

СОХРАНЯЕМ НАШУ ПРЕЗЕНТАЦИЮ С ПОДДЕРЖКОЙ МАКРОСОВ!!! ИНАЧЕ ВСЕ ЧТО ДЕЛАЛИ ТО ЗРЯ.

Чтобы потом запустить нам нужно в PowerPoint включить макросы для этого идем по следующему пути Файл/Параметры/Центр управления безопасностью нажимаем кнопку «Параметры центра управления безопасностью…» выбираем Параметры макросов и Отключаем все макросы с уведомлением тем самым у нас появляется возможность включения выполнения нужных макросов.