In this PowerPoint Quiz Module, we will be designing our...Read More
The PowerPoint Quiz Game is going to generate the Number of Questions answered correctly, wrongly, passed along with Points and Percentage secured by the student attempting the PPT Quiz Game.
In the module, 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.
Also, the feature of allowing questions to be passed and for the user to retry the quiz game will be added.
If Percentages.Caption > 50 Then Grade.Caption = "D Grade" ElseIf Percentages.Caption > 70 Then Grade.Caption = "C Grade" ElseIf Percentages.Caption > 80 Then Grade.Caption = "B Grade" ElseIf Percentages.Caption > 90 Then Grade.Caption = "A Grade" End If
I have not added this in my module but it is very simple. Just use the above code and place a label called “Grade” in your Report Card Slide. You can customise the grades by playing with the numbers and the text which should be shown in the caption.
We create a slide-master layout within which we place multiple Labels which can keep count of the number of questions answered correctly and the number of questions answered incorrectly.
Then, we calculate the percentage as per the total questions present and the number of questions which were answered correctly.
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 ResetAllCaptions CA.Caption = 0 WA.Caption = 0 PQ.Caption = 0 TQ.Caption = 0 Percentage.Caption = 0 Points.Caption = 0 End Sub Sub Reset() ResetAllCaptions ActivePresentation.SlideShowWindow.View.Exit End Sub Sub Retry() ResetAllCaptions ActivePresentation.SlideShowWindow.View.GotoSlide (1) End Sub Sub ShowResult() TQ.Caption = 6 'change accordingly as per your pptm file' PQ.Caption = Int((TQ.Caption) - (CA.Caption) - (WA.Caption)) Percentage.Caption = (CA.Caption) * 100 / (TQ.Caption) ActivePresentation.SlideShowWindow.View.Next End Sub