Adding scores with VBA in PowerPoint

[pemaher]

I am using your book Powerful PowerPoint for Educators to create a
final project for my graduate course in Instructional Education.
My situation is a little different as I am not a school teacher, but
work in UMaine Cooperative Extension. I help other Extension educators
use technology tools to enhance their education and instructional
programs. I'm creating a kiosk-type interactive PowerPoint
presentation to familiarize the educators with instructional
technology tools.
I want to create a personality type quiz assessment that does not
involve right or wrong answers, but answers with a range of numerical
scores attached to them.
At the end of the assessment, the total of the scores (high or low)
indicates which types of technology tools they are directed to
investigate. Lower score directs them to simpler tools, higher score
directs them to tools which will involve more sophisticated equipment
and additional help from staff with more expertise.
So, I know I need to assign score values to each multiple choice
answer, have all the answer values add up to a total, then use a
conditional statement to send the user to either a low score
destination slide or high score destination slide.

I''m having a tough time converting the Right Answer / Wrong Answer
method of score keeping to something like a 1 point Answer / 10 point
Answer / 20 point Answer script that adds up all points.

Does this make sense? It doesn't seem like it would be that difficult,
but I'm fumbling.
Can you advise?
Thanks,
Pat

 

[David Marcovitz]

Sorry for the delayed response on this. I actually answered Pat's
question via email and haven't been to the newsgroup in a few days. In
case anyone else is interested, here is what I wrote:

Pat,

Let me give you a quick answer now. Perhaps, later in the week I'll have
time to explore your example, but for now, I don't. You are correct that
what you want to do is relatively easy. Instead of one RightAnswer and
one WrongAnswer button, you are going to want to have a procedure for
each point value (there are other ways to do this, but this is probably
the easiest to understand. It might look something like this:

Sub 5PointAnswer()
score = score + 5
Msgbox "That is interesting and worth five points."
ActivePresentation.SlideShowWindow.View.Next
End Sub

You could write similar procedures with various point values. Simply
assign each answer to the procedure with the correct point value. At the
end you could write a big If statement as you suggested, something like:

If score > 50 Then
MsgBox "You are wonderful. You should use tools like Audacity for
podcasting and FinalCut Pro for video editing. Also check out Dr.
Marcovitz's great book on VBA."
ElseIf score > 40 Then
MsgBox "You are pretty good. You should look at tools like
Inspiration and Excel."
ElseIf score > 30 Then
MsgBox "Nice job. Word is a good tool for word processing. Have you
looked at EduBlogs?"
Else
MsgBox "Perhaps, you have some friends who can help you with your
technology needs."
End If

Is this what you are looking for?

--David

I am using your book Powerful PowerPoint for Educators to create a
final project for my graduate course in Instructional Education.
My situation is a little different as I am not a school teacher, but
work in UMaine Cooperative Extension. I help other Extension educators
use technology tools to enhance their education and instructional
programs. I'm creating a kiosk-type interactive PowerPoint
presentation to familiarize the educators with instructional
technology tools.
I want to create a personality type quiz assessment that does not
involve right or wrong answers, but answers with a range of numerical
scores attached to them.
At the end of the assessment, the total of the scores (high or low)
indicates which types of technology tools they are directed to
investigate. Lower score directs them to simpler tools, higher score
directs them to tools which will involve more sophisticated equipment
and additional help from staff with more expertise.
So, I know I need to assign score values to each multiple choice
answer, have all the answer values add up to a total, then use a
conditional statement to send the user to either a low score
destination slide or high score destination slide.

I''m having a tough time converting the Right Answer / Wrong Answer
method of score keeping to something like a 1 point Answer / 10 point
Answer / 20 point Answer script that adds up all points.

Does this make sense? It doesn't seem like it would be that difficult,
but I'm fumbling.
Can you advise?
Thanks,
Pat

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland