<div>Hello,</div><div><br></div><div>This is what I ended up using.  It is really quite beautiful (Thanks, David)!  The script below sets up a counter based on three different attributes (i.e. TestType,TestCondition,and Accuracy).  Dependent upon these attributes either 0 points, Points_HR or Points_CR are awarded.  The latter two variables are set up in my MasterList List object.  At the bottom of the TestSlideOLDNEW (the object that collects responses), there is a textbox that display the counter variable, thus keeping a "Running Total" of accumulated points.  Also, there is a FeedbackDisplay that displays the number of points awarded based on a correct (either Points_HR or Points_CR) or incorrect (0 points) response.</div><div><br></div><div>Thanks!</div><div><br></div><div>Caleb</div><div><br></div><div>**********************************************************************</div><div>Dim x As SlideText</div><div>Dim PayoffMatrix(1,2,1) as integer</div><div><br></div><div>'First dimension = Test Type</div><div>'Second Dimension = Test Condition</div><div>'Third Dimension = TestSlideAccuracy</div><div><br></div><div>If c.getattrib("TestType") = "OldNew" then</div><div><span class="Apple-tab-span" style="white-space:pre">   </span>c.setattrib "TestType", "0"</div><div>Elseif c.getattrib("TestType") = "PDP" then</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>c.setattrib "TestType","1"</div><div>Else MsgBox "TestType Set attribute error"</div><div>End if</div><div><br></div><div>If c.getattrib("TestCondition") = "Inclusion" then</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>c.setattrib "TestCondition", "0"</div><div>Elseif c.getattrib("TestCondition") = "Exclusion" then</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>c.setattrib "TestCondition", "1"</div><div>Elseif c.getattrib("TestCondition") = "New" then</div><div><span class="Apple-tab-span" style="white-space:pre">      </span>c.setattrib "TestCondition", "2"</div><div>Else</div><div><span class="Apple-tab-span" style="white-space:pre">      </span>MsgBox "TestCondition Set attribute error"</div><div>End if</div><div><br></div><div>For y = 0 to 1</div><div><span class="Apple-tab-span" style="white-space:pre">      </span>For k = 0 to 2</div><div>PayoffMatrix(y,k,0) = 0</div><div>Next k,y</div><div><br></div><div>'Payoff Matrix (OldNew,Inclusion-Exclusion-New,Acc=1)</div><div>Payoffmatrix(0,0,1) = c.getattrib("Points_HR")</div><div>PayoffMatrix(0,1,1) = c.getattrib("Points_HR")</div><div>PayoffMatrix(0,2,1) = c.getattrib("Points_CR")</div><div>'PayoffMatrix(PDP,Inclusion-Exclusion-New,Acc=1)</div><div>PayoffMatrix(1,0,1) = c.getattrib("Points_HR")</div><div>PayoffMatrix(1,1,1) = c.getattrib("Points_CR")</div><div>PayoffMatrix(1,2,1) = c.getattrib("Points_CR")</div><div><br></div><div>AccuracyDisplay = AccuracyDisplay + PayoffMatrix(CInt(c.getattrib ("TestType")),_</div><div>CInt(c.getattrib("TestCondition")), TestSlideOLDNEW.ACC )<span class="Apple-tab-span" style="white-space:pre">      </span></div><div><br></div><div>c.setattrib "Accuracy", AccuracyDisplay</div><div><br></div><div>Set x = CSlideText(TestSlideOLDNEW.States(TestSlideOLDNEW.ActiveState).Objects("Text4"))</div><div><span class="Apple-tab-span" style="white-space:pre">  </span>If Not x Is Nothing Then</div><div>   <span class="Apple-tab-span" style="white-space:pre">                </span>x.Text = "Running Total: " & c.getattrib("Accuracy")</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>End if</div><div><br></div><div>'Debug.Print AccuracyDisplay</div><div><br></div><div>If TestSlideOLDNEW.ACC = 1 then</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>FeedbackDisplay1.ActiveState = "Correct"</div><div><span class="Apple-tab-span" style="white-space:pre">   </span>Set x = CSlideText(FeedbackDisplay1.States(FeedbackDisplay1.ActiveState).Objects("Text2"))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>If Not x Is Nothing Then</div><div><span class="Apple-tab-span" style="white-space:pre">             </span>x.Text = "You have received " & PayoffMatrix(CInt(c.getattrib ("TestType")),_</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>CInt(c.getattrib("TestCondition")), TestSlideOLDNEW.ACC ) & " Points!"</div><div><span class="Apple-tab-span" style="white-space:pre">       </span>End if</div><div>Elseif TestSlideOLDNEW.ACC = 0 then</div><div><span class="Apple-tab-span" style="white-space:pre">     </span>FeedbackDisplay1.ActiveState = "Incorrect"</div><div>Else Msgbox "FeedbackDisplay1 Error!"</div><div>End if</div><div><br></div><div>*********************************************************************</div>

<p></p>

-- <br />
You received this message because you are subscribed to the Google Groups "E-Prime" group.<br />
To post to this group, send email to e-prime@googlegroups.com.<br />
To unsubscribe from this group, send email to e-prime+unsubscribe@googlegroups.com.<br />

For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.<br />