We will be exporting/sending the results of the PowerPoint Quiz...Read More
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.
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
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.