<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns:o = "urn:schemas-microsoft-com:office:office"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face="Trebuchet MS" color=#800000 size=2>Anna,</FONT></DIV>
<DIV><FONT face="Trebuchet MS" color=#800000 size=2>I don't know about that code
(although I *think* it should be "PickList1.Run c"), but here's something
that worked for me. I needed to train subjects to a 50% criterion and
their accuracy was logged in the tag of a feedback object (feedback.tag).
"trainCB" is the highest level list object<EM> </EM>that the trial level
procedure was called by. (Note that I have "Set AccuracyMonitor = New Summation"
in there twice, but I can't remember why I had it like that. Doesn't seem
like it should be necessary, but it did what I needed it to do.) I would
think something similar would work for you if you just modify the criterion and
the if...then statements for what you need.</FONT></DIV>
<DIV><FONT face="Trebuchet MS" color=#800000 size=2>Hope this
helps,</FONT></DIV>
<DIV><FONT face="Trebuchet MS" color=#800000 size=2>Colleen</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><EM><U>User script:</U></EM></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>Dim AccuracyMonitor As Summation<BR>Dim
TrialCount as Integer</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><EM><U>In an inline object on the Session
Proc before the relevant list and procedure:</U></EM></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>Set AccuracyMonitor = New
Summation</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2>TrialCount = 0</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><EM><U>On the relevant trial-level
procedure, at the end:</U></EM></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>TrialCount = TrialCount + 1</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>Set AccuracyMonitor = New Summation
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>AccuracyMonitor.AddObservation
c.GetAttrib("feedback.Tag")</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>If TrialCount = 44 Then</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS" size=2> If
AccuracyMonitor.Mean >= .5 Then</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS" size=2>
trainCB.Terminate<BR>
Else<BR> <BR>
TrialCount = 0<BR>
AccuracyMonitor.Reset</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS"
size=2>
trainCB.Load</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2>
Set trainCB.TerminateCondition =
Cycles(44)</FONT></DIV>
<DIV><FONT face="Trebuchet MS"
size=2><BR> End
if </FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2>End if</FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS"
size=2>---------------------------------------<BR>Colleen Parks,
Ph.D.<BR>University of California<BR>One Shields Ave.<BR>Davis, CA
95616</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><A
href="mailto:cmparks@ucdavis.edu">cmparks@ucdavis.edu</A><BR>530.754.9439</FONT></DIV>
<DIV>----- Original Message ----- </DIV>
<BLOCKQUOTE dir=ltr
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=a.holmes@uq.edu.au href="mailto:a.holmes@uq.edu.au">Anna Holmes</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=eprime@mail.talkbank.org
href="mailto:eprime@mail.talkbank.org">eprime@mail.talkbank.org</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, October 28, 2004 11:10
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> rerun all trials when
error</DIV>
<DIV><BR></DIV>
<DIV><FONT face=Garamond color=#0000ff size=4>Hello,</FONT></DIV>
<DIV><FONT face=Garamond color=#0000ff size=4>Please, please can anyone help
me?</FONT></DIV>
<DIV><FONT face=Garamond color=#0000ff size=4>I need to be able to rerun a
practice until a participant reaches 100% accuracy. I have tried to copy
and modify the criterion based exit sample to no avail (see below). I assume a
Do...Loop command but don't know how to do this. Can anyone help me
out?</FONT></DIV>
<DIV><U><SPAN lang=EN-AU>User</SPAN></U><SPAN lang=EN-AU>:</SPAN></DIV>
<DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU> <o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>'Declare
Summation object</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU><SPAN
style="mso-spacerun: yes"> </SPAN>Dim Accuracy as Summation</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU> <o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>'Declare
variable to check criterion</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>Dim
CriterionMet as Boolean</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU> <o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><U><SPAN
lang=EN-AU>Inline:<o:p></o:p></SPAN></U></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU> <o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>Name: InitVar
(beginning of session proc)</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>'Initialize
variables</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>Set Accuracy =
New Summation</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>TrialCount =
0</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>CriterionMet =
True</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU> <o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>Name: AddAcc
(end of trial proc)</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>'Add
individual accuracy scores to Summation object</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU>Accuracy.AddObservation CDbl
(c.GetAttrib("Stimulus.ACC"))</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU> <o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>Name: CheckAcc
(end of block (PickList1) proc)</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>'Evaluate
accuracy<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>If
Accuracy.Mean < 1.0 Then<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU><SPAN
style="mso-tab-count: 1">
</SPAN>PickList1.Run <SPAN style="mso-tab-count: 1"></SPAN><SPAN
style="COLOR: red">(one of the errors thus far reads invalid
context)</SPAN><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU>Else<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU><SPAN
style="mso-tab-count: 1">
</SPAN>'100% acc acheived<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU><SPAN
style="mso-tab-count: 1">
</SPAN>GoTo Label1<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU>End
If</SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN
lang=EN-AU></SPAN> </P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU><FONT
face=Garamond color=#0000ff size=4>Thanks</FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><SPAN lang=EN-AU><FONT
face=Garamond color=#0000ff size=4>A</FONT></SPAN></P></DIV>
<DIV><FONT face=Garamond color=#0000ff
size=4>-----------------------------------------------------------------------<BR>Anna
D Holmes. BSpPath(Hons)<BR>Division of Speech Pathology<BR>School of Health
and Rehabilitation Sciences<BR>University of Queensland <BR>QLD 4072
Australia<BR>Phone: +61 7 3346 9726<BR>Fax: +61 7 3365 1877<BR><A
href="mailto:a.holmes@uq.edu.au">a.holmes@uq.edu.au</A>
</FONT></DIV></BLOCKQUOTE></BODY></HTML>