PC Review


Reply
Thread Tools Rate Thread

Adding scores with VBA in PowerPoint

 
 
pemaher
Guest
Posts: n/a
 
      18th Apr 2010
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
 
Reply With Quote
 
 
 
 
David Marcovitz
Guest
Posts: n/a
 
      21st Apr 2010
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

On 4/18/10 4:21 PM, pemaher wrote:
> 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
 
Reply With Quote
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Adding scores and need average Tom Tripicchio Microsoft Access Forms 2 11th Jun 2007 10:52 PM
Adding up scores in a form Tom Tripicchio Microsoft Access Forms 4 7th Jun 2007 08:29 PM
Adding 'scores' using text boxes =?Utf-8?B?UmViZWNjYU1pbkFS?= Microsoft Access Form Coding 3 1st Sep 2006 09:13 PM
Adding up scores in Excel Robert Jones Microsoft Excel Discussion 6 22nd Jan 2006 10:12 AM
Newbie Question. Adding the top 4 scores from 6 entries =?Utf-8?B?RGppbmk=?= Microsoft VB .NET 2 11th Jan 2005 05:15 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 12:20 AM.