Hi, I am developing an experiment which participants must remember the orientataion of numbers presented sequentially. Participants will click on the empty boxes which would show the orientation of top of numbers.<div>A slide which displays 8 empty boxes images arranged like circle on the screen and show one of the 8 different angles (45, 90, 135....). After participant click on the box, it will be checked by filling. </div>
<div>I have done until here.</div><div> My problem is limiting the numbers of checking boxes. I mean for first trial block particpnat will select only two boxes that are correct. If they choose a third one, I want their last selection will dissapper. Or maybe program will not allow to select choosing more than two. My boxes names are; Check1, Check2, Check3, Check4, Check5, Check6, Check7, Check8.</div>
<div>I attached two imaged that are selected or not selected. I am including my code below.</div><div>Coul you help me how can I limit numbers of selecting .</div><div><br></div><div><div>Dim theState as SlideState</div><div>
Set theState = Stimulus.States("Default")</div><div><br></div><div>'Variable for holding the name of the sub-object clicked by the subject.</div><div>Dim strHit As String</div><div><br></div><div>'Variable for holding the subject's response information.</div>
<div>Dim theMouseResponseData As MouseResponseData</div><div><br></div><div><br></div><div>'Was a response made?</div><div>If Stimulus.InputMasks.Responses.Count > 0 Then</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">      </span>'Get the mouse response</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>Set theMouseResponseData = CMouseResponseData(Stimulus.InputMasks.Responses(1))</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>'Determine string name of SlideImage or SlideText object at </div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>'mouse click coordinates. Assign that value to strHit</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>strHit = theState.HitTest(theMouseResponseData.CursorX, theMouseResponseData.CursorY)</div>
<div><br></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>'If a check box was clicked, check or uncheck it based on its current state.</div><div><span class="Apple-tab-span" style="white-space:pre">     </span>If Mid(strHit, 1, 5) = "Check" Then</div>
<div><br></div><div><span class="Apple-tab-span" style="white-space:pre">             </span>'Store the number of the checkbox clicked.</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>Dim nCheck As Integer</div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>nCheck = CInt(Mid(strHit, 6, 1))</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">            </span>Debug.Print nCheck</div><div><br></div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>If c.GetAttrib("Check" & nCheck & "Image") = "checkempty.bmp" Then</div><div><span class="Apple-tab-span" style="white-space:pre">                     </span></div>
<div><span class="Apple-tab-span" style="white-space:pre">                      </span>c.SetAttrib "Check" & nCheck & "Image", "checkfull.bmp"</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">                       </span>'If a box has been checked, log the RT and RESP.</div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span></div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">            </span>Else </div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">                       </span>c.SetAttrib "Check" & nCheck & "Image", "checkempty.bmp"</div>
<div><span class="Apple-tab-span" style="white-space:pre">                      </span>c.Setattrib "Check" & nCheck & "RESP", ""</div><div><span class="Apple-tab-span" style="white-space:pre">                      </span></div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>End If</div><div><br></div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">     </span></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>End IF</div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>if c.GetAttrib("Check4Image")="checkfull.bmp" and c.GetAttrib("Check5Image")="checkfull.bmp" and c.GetAttrib("Check1Image")="checkempty.bmp" and c.GetAttrib("Check2Image")="checkempty.bmp" and c.GetAttrib("Check3Image")="checkempty.bmp" and c.GetAttrib("Check6Image")="checkempty.bmp" and c.GetAttrib("Check7Image")="checkempty.bmp" and c.GetAttrib("Check8Image")="checkempty.bmp" Then</div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>     'if strHit = "Check5" and strHit = "Check4" Then</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span> <span class="Apple-tab-span" style="white-space:pre">   </span>Stimulus.ACC = 1</div>
<div><br></div><div><span class="Apple-tab-span" style="white-space:pre">                     </span>else Stimulus.ACC = 0</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>End if</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 />