Download code: https://pptvba.com/quizgamepercentage/'>https://pptvba.com/quizgamepercentage/
Download file: https://pptvba.com/quizgamepercentage/'>https://pptvba.com/quizgamepercentage/

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

In this Microsoft PowerPoint Tutorial, we will be using Visual Basic Coding (VBA Coding) and making an interactive quiz game which can be used by teachers and in online courses.

We will be making a scorecard/report card slide and showing the following:
1. The number of correct answers.
2. The number of wrong answers.
3. The number of questions passed.
4. The total number of questions.
5. Points
6. Percentages

Download PPTM file and code:
http://tutorials.bhaveshshaha.com/dow...

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

Part 1:
I will be showing you how to make an interactive quiz game that can keep scores/points in PowerPoint using Visual Basic or VBA Code.

   • How to make PowerPoint Interactive Qu...  

Part 2:
We will be adding labels for the number of correct and wrong answers, total and passed questions. We will also show the Points and Percentages scored.
We will also allow questions to be passed and for the user to retry the quiz game.

   • Make PPT Quiz Game Report Card  perc...  

Part 3:
We will be adding a certificate slide which contains the name and the location of the user. Then, we will be printing the certificate slide and the result slide and save it as a .PDF file.

   • Print Certificate with student's NAME...  

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

Be responsible for the next part, comment on any one of my videos for any suggestions that you might have!

Comment below if you have any doubts.

I also do freelancing and make custom powerpoint games and templates. Contact me for more information.

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

CODE:

Sub Correct()
Points.Caption = (Points.Caption) + 10
CA.Caption = (CA.Caption) + 1
Output = MsgBox("Your Answer is correct, well done!", vbOKOnly, "Correct Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Wrong()
Points.Caption = (Points.Caption) 5
WA.Caption = (WA.Caption) + 1
Output = MsgBox("Your Answer is wrong.", vbOKOnly, "Incorrect Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Reset()
CA.Caption = 0
WA.Caption = 0
PQ.Caption = 0
TQ.Caption = 0
Points.Caption = 0
Percentages.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub

Sub CalculateResults()
TQ.Caption = 6
PQ.Caption = (TQ.Caption) (CA.Caption) (WA.Caption)

Percentages.Caption = (CA.Caption) * 100 / (TQ.Caption)
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Retry()
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


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

Bhavesh Shaha,
[email protected]
   / bhaveshshaha  
www.instagram.com/basicallybhavesh