<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1400" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<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> <?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" /><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></BODY></HTML>