Создайте отчёт по игре-викторине PPT — проценты, количество правильных ответов | Учебное пособие ...

Скачать код: https://pptvba.com/quiz-game-percentage/
Скачать файл: https://pptvba.com/quiz-game-percentage/

=================

В этом уроке Microsoft PowerPoint мы будем использовать Visual Basic Coding (VBA Coding) и создадим интерактивную игру-викторину, которую могут использовать преподаватели и в онлайн-курсах.

Мы создадим слайд с оценочным листом/отчётом, на котором будут отображаться:
1. Количество правильных ответов.
2. Количество неправильных ответов.
3. Количество решённых вопросов.
4. Общее количество вопросов.
5. Баллы
6. Проценты

Скачать файл PPTM и код:
http://tutorials.bhaveshshaha.com/dow...

=============================================

Часть 1:
Я покажу вам, как создать интерактивную игру-викторину с подсчётом баллов в PowerPoint, используя код Visual Basic или VBA.

   • How to make PowerPoint Interactive Quiz Ga...  

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

   • Make PPT Quiz Game Report Card - percentag...  

Часть 3:
Мы добавим слайд с сертификатом, содержащий имя и местоположение пользователя. Затем мы распечатаем слайд с сертификатом и слайд с результатами и сохраним его в формате PDF.

   • Print Certificate with student's NAME | In...  

============================================

Будьте ответственны за следующую часть. Оставляйте комментарии к любому из моих видео, если у вас есть какие-либо предложения!

Оставьте комментарий ниже, если у вас есть какие-либо сомнения.

Я также работаю фрилансером и создаю игры и шаблоны PowerPoint на заказ. Свяжитесь со мной для получения дополнительной информации.

===========================================

КОД:

Подпись Верно()
Очки.Подпись = (Очки.Подпись) + 10
Подпись CA = (Подпись CA) + 1
Вывод = MsgBox("Ваш ответ правильный, молодец!", vbOKOnly, "Верный ответ")
ActivePresentation.SlideShowWindow.View.Next
Конец подсказки

Подпись Неверно()
Очки.Подпись = (Очки.Подпись) - 5
Подпись WA = (Подпись WA) + 1
Вывод = MsgBox("Ваш ответ неправильный.", vbOKOnly, "Неверный Ответ")
ActivePresentation.SlideShowWindow.View.Next
Конец подпрограммы

Сброс подпрограммы()
CA.Caption = 0
WA.Caption = 0
PQ.Caption = 0
TQ.Caption = 0
Points.Caption = 0
Percentages.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
Конец подпрограммы

ВычислитьРезультаты()
TQ.Caption = 6
PQ.Caption = (TQ.Caption) - (CA.Caption) - (WA.Caption)

Проценты.Caption = (CA.Caption) * 100 / (TQ.Caption)
ActivePresentation.SlideShowWindow.View.Next
Конец подпрограммы

Повторить подпрограмму()
CA.Caption = 0
WA.Caption = 0
PQ.Caption = 0
TQ.Caption = 0
Points.Caption = 0
Percentages.Caption = 0
ActivePresentation.SlideShowWindow.View.GotoSlide (1)
End Sub

===========================================

Бхавеш Шаха,
2002bhavesh@gmail.com
   / bhaveshshaha  
www.instagram.com/basicallybhavesh