Payoff Matrix - Feedback Counter (Tidy up script)

[Caleb J. Picker]

Let me try to repost my solution at end of page below.

Select Case TestSlideOLDNEW.ACC
Case "1"
If c.getattrib("StatusOldNew") = "Old" then
AccuracyDisplay=AccuracyDisplay+(c.getattrib("Points_HR"))'Hits
Elseif c.getattrib("StatusOldNew") = "New" then
AccuracyDisplay=AccuracyDisplay+(c.getattrib("Points_CR"))'Correct Rejection
Else MsgBox "Accuracy display case 1 error"
End if
c.setattrib "Accuracy", AccuracyDisplay
Set x = 
CSlideText(TestSlideOLDNEW.States(TestSlideOLDNEW.ActiveState).Objects("Text4"))
If Not x Is Nothing Then
     x.Text = "Running Total: " & c.getattrib("Accuracy")
End if
Debug.Print "Debug Points_HR: " & c.getattrib("Accuracy")
Case "0"
   AccuracyDisplay=AccuracyDisplay
c.setattrib "Accuracy", AccuracyDisplay
Set x = 
CSlideText(TestSlideOLDNEW.States(TestSlideOLDNEW.ActiveState).Objects("Text4"))
If Not x Is Nothing Then
     x.Text = "Running Total: " & c.getattrib("Accuracy")
End if
Debug.Print "Debug Incorrect Accuracy: " & c.getattrib("Accuracy")
Case Else 
MsgBox "TestSlideOLDNEW Accuracy Error"
End Select

Once again, sorry.

Caleb

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com.
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com.
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20110110/f8174911/attachment.htm>