Interactive Quiz with Scores at the end?

[VisionAvenger]

I found a site that gave some ideas for using PowerPoint for an interactive quiz, ie, when someone clicks a button, it counts if they got the question right and then gives a score at the end.


Using this code . . .

Option Explicit
Public Tally As Integer
Sub InitializeScore()
Tally = 0
End Sub
Sub AddToTally(Points As Integer)
Tally = Tally + Points
End Sub
Function ShowTally()
MsgBox "Your final score is " & CStr(Tally)
End Function

This is good, but I can't connect an Action button to the Function (only a Sub), so I'm not sure if it's working.

Two questions, please:
1) How do Initialize the score without requiring someone click the button, ie, it should initialize when the Slideshow begins.

2) How do I show the person the score at the end, seeing as I can't attach it to an Action, eg, "Click here to see your score"?

Thanks in advance, and if you have any suggestions for improving the above, I would naturally be happy to hear your thoughts!

Cheers

Brian

[JohnWilson]

Why did you use a Function??

Just make it a Sub

Sub ShowTally()
MsgBox "Your final score is " & CStr(Tally)
End Sub

[VisionAvenger]

I understand, after reading a few articles, that Functions can return values; Subs cannot.

[JohnWilson]

That is true but you don't really understand what return a result means. For your use the sub will work just fine. Functions usually perform calculations and then return a result.

For example if you recorded numberCorrect and numberWrong you could return the % age correct with a Function

Simple (trivial) example

Sub chexPercent()
Dim Correct As Long
Dim Wrong As Long
Correct = 3
Wrong = 4
MsgBox getpercent(Correct, Wrong) & "%"
End Sub

Function getpercent(numberCorrect As Long, numberWrong As Long) As Single
Dim totalTried As Long
totalTried = numberCorrect + numberWrong
getpercent = (numberCorrect / totalTried) * 100
End Function

[VisionAvenger]

OK. Thanks again. Stupid question, but isn't 1+1 a calculation?
I need to be able to assign an Action/Macro to every 'correct' answer, so that an addition occurs, and on the final slide, it will give me a total.
I just tried this . . .
I clicked a button that had the 'AddToTally' macro assigned. I then clicked another link that had the 'ShowTally' macro assigned.
A message box appeared, saying "Your final score is 0" (obviously should've been 1).

[JohnWilson]

If a correct answer always adds 1

Sub InitializeScore()
Tally = 0
End Sub
Sub AddToTally()
' this adds 1 to the score
Tally = Tally + 1
End Sub
Sub ShowTally()
MsgBox "Your final score is " & CStr(Tally)
End Sub

With your original code (unless there was more than you posted) 'Points' was always zero and the result would always be zero

[VisionAvenger]

OK, thanks for the amended code, but now it just says, "Your final score is" (ie, no number).

Really appreciate your help with this, by the way.

[JohnWilson]

You left out the Public Tally I think then

Public Tally as Integer


Sub InitializeScore()
Tally = 0
End Sub
Sub AddToTally()
' this adds 1 to the score
Tally = Tally + 1
End Sub
Sub ShowTally()
MsgBox "Your final score is " & CStr(Tally)
End Sub

[VisionAvenger]

Thanks. That's working now.
Is there a way to initialize the score without someone having to click something, ie, OnLoad, BeforeUpdate, etc?

You're a star!

[JohnWilson]

Try this

Sub OnSlideShowPageChange(SW As SlideShowWindow)
If SW.View.CurrentShowPosition = 1 Then Call InitializeScore
End Sub

To make this reliable add a CommandButton (or anything from the controls toolbox) on slide 1 and set it to not visible in the selection pane

[VisionAvenger]

Sorry for being obtuse, but doesn't adding this to a Command Button mean that someone has to click the button in order for it to initialize?

Thanks in advance for clarifying.