Hi everyone,<div><br></div><div>I made a related post about this issue a couple weeks ago (which saw no activity), however I have progressed since then and wanted to make a new post with the updated information.</div><div><br></div><div>The goal of my current project is to create a slide which contains 3 rating scales and allows participants to use the mouse to select one rating on each scale before advancing after 5 seconds (regardless of whether all ratings were made or not).  The project is currently set up so that each scale point is represented by an individual text box which becomes activated (i.e. turns and remains a different color and logs data) when clicked. </div><div><br></div><div>Currently, everything about the slide is functional, with the exception of advancing after 5 seconds.  Because, I believe, there is a change in slide state when a text box becomes "activated" (the participant makes a selection), the 5 second slide duration resets every time a participant makes a rating scale selection.  This, in turn, results in the slide advancing 5 seconds after the participant makes their final selection, rather than advancing 5 seconds after the slide comes on the screen as desired.</div><div><br></div><div>As a secondary question, I was wondering if anyone with experience with slide states had any problems with data collection (E-Prime logging and Physio) or if you can foresee any problems I may run into using this technique.</div><div><br></div><div>I've had problems attaching files in the past, but will post the relevant inline code that follows the stimulus slide below.  Also, the stimulus slide properties currently have Duration set to 5000ms, Timing Mode is Cumulative, and a Mouse as a registered device with the following properties:</div><div><br></div><div>Allowable: 1</div><div>Time limit: (Same as duration)</div><div>End Action: Terminate</div><div><br></div><div>Thanks for any help you can provide,</div><div>ekwing</div><div><br></div><div><b>DOHIT TEST</b></div><div><div>'Designate "theState" as the Default Slide State, which is the</div><div>'current ActiveState on the Slide object "Stimulus".</div><div>Dim theState as SlideState</div><div>Set theState = Stimulus.States("Default")</div><div><br></div><div>Dim strHit As String</div><div>Dim theMouseResponseData As MouseResponseData</div><div><br></div><div>'Was there a response?</div><div>If Stimulus.InputMasks.Responses.Count < 1 Then</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">  </span>Set theMouseResponseData = Nothing</div><div><br></div><div>End If</div><div><br></div><div>'Was there a response?</div><div>If Stimulus.InputMasks.Responses.Count = 1 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 name of SlideText object at mouse click coordinates. Assign that value to </div><div><span class="Apple-tab-span" style="white-space:pre">   </span>'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>Else</div><div>'<span class="Apple-tab-span" style="white-space:pre">        </span>Set theMouseResponseData = Nothing</div><div><br></div><div>End If</div><div><br></div><div>'Was there a response?</div><div>If Stimulus.InputMasks.Responses.Count = 2 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(2))</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>'Determine name of SlideText object at mouse click coordinates. Assign that value to </div><div><span class="Apple-tab-span" style="white-space:pre">   </span>'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>Else</div><div>'<span class="Apple-tab-span" style="white-space:pre">        </span>Set theMouseResponseData = Nothing</div><div><br></div><div>End If</div><div><br></div><div>'Was there a response?</div><div>If Stimulus.InputMasks.Responses.Count = 3 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(3))</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>'Determine name of SlideText object at mouse click coordinates. Assign that value to </div><div><span class="Apple-tab-span" style="white-space:pre">   </span>'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>Else</div><div>'<span class="Apple-tab-span" style="white-space:pre">        </span>Set theMouseResponseData = Nothing</div><div><br></div><div>End If</div><div><br></div><div>'If the subject did not click on a box or the SlideText used to exit the trial,</div><div>'then loop back to the Stimulus so the subject can make another selection.</div><div>'If strHit = "Question" OR strHit = "State1" OR strHit = "State2" OR strHit = "" Then</div><div>'<span class="Apple-tab-span" style="white-space:pre">        </span>Goto RedoTrial</div><div>'End If</div><div><br></div><div>'Release references</div><div>'Set theMouseResponseData = Nothing</div></div><div><br></div><div><b>HIGHLIGHT SELECTION</b></div><div><div>'Declare SlideText variable used for modifying box properties.</div><div>Dim xSlide As SlideText</div><div><br></div><div>'Declare string for holding the name of the Row the box clicked is in.</div><div>Dim strRow As String</div><div><br></div><div>'Declare variables for storing subject's final rating.</div><div>Dim intRating1 As Integer, intRating2 As Integer, intRating3 As Integer</div><div><br></div><div>If Stimulus.InputMasks.Responses.Count > 0 Then</div><div><br></div><div>  'Gain access to selected box.</div><div>  Set xSlide = CSlideText(Stimulus.States.Item("Default").Objects(strHit))</div><div><br></div><div>  'Store the name of the row the box was clicked in. This Mid function will return</div><div>  'the first 4 characters of strHit (the name of the box) and store them in strRow</div><div>  strRow = Mid(strHit, 1, 4)</div><div><span class="Apple-tab-span" style="white-space:pre">    </span></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>Select Case strRow</div><div>    Case "Row1"</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>  'If a box in this row has not yet been selected...</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>  If R1 = False Then</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">   </span>    'Highlight this box and set R1 to true (a box in this row has now been selected)</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>xSlide.BackColor = CColor("yellow")</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>R1 = True</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">           </span>'Return the final character in strHit (the digit) as subject's rating for this</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>'row.</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>intRating1 = CInt(Mid(strHit, 5, 1))</div><div><br></div><div>      'If a box in this row has been selected...</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>'If this is the box that has already been selected, reset the color and set R1</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>'to false (a box in this row has not been selected). Otherwise, do nothing.</div><div><span class="Apple-tab-span" style="white-space:pre">  </span>    If xSlide.BackColor = CColor("yellow") Then</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>  xSlide.BackColor = CColor("green")</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>  R1 = False</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>    End If</div><div><br></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></div><div><br></div><div>   <span class="Apple-tab-span" style="white-space:pre">       </span>Case "Row2"</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">       </span>  'If a box in this row has not yet been selected...</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>  If R2 = False Then</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">           </span>'Highlight this box and set R2 to true (a box in this row has now been selected)</div><div><span class="Apple-tab-span" style="white-space:pre">             </span>xSlide.BackColor = CColor("yellow")</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>R2 = True</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">           </span>'Return the final character in strHit (the digit) as subject's rating for this</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>'row.</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>intRating2 = CInt(Mid(strHit, 5, 1))</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>  'If a box in this row has been selected...<span class="Apple-tab-span" style="white-space:pre">   </span></div><div>      Else</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">            </span>'If this is the box that has already been selected, reset the color and set R2</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>'to false (a box in this row has not been selected). Otherwise, do nothing.</div><div><span class="Apple-tab-span" style="white-space:pre">  </span>    If xSlide.BackColor = CColor("yellow") Then</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>  xSlide.BackColor = CColor("green")</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>  R2 = False</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>    End If</div><div><br></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>Case "Row3"</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">       </span>  'If a box in this row has not yet been selected...</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>  If R3 = False Then</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">           </span>'Highlight this box and set R3 to true (a box in this row has now been selected)</div><div><span class="Apple-tab-span" style="white-space:pre">             </span>xSlide.BackColor = CColor("yellow")</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>R3 = True</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">           </span>'Return the final character in strHit (the digit) as subject's rating for this</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>'row.</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>intRating3 = CInt(Mid(strHit, 5, 1))</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>  'If a box in this row has been selected...<span class="Apple-tab-span" style="white-space:pre">   </span></div><div>      Else</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">            </span>'If this is the box that has already been selected, reset the color and set R3</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>'to false (a box in this row has not been selected). Otherwise, do nothing.</div><div><span class="Apple-tab-span" style="white-space:pre">  </span>    If xSlide.BackColor = CColor("yellow") Then</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>  xSlide.BackColor = CColor("green")</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>  R3 = False</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>    End If</div><div><br></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> End Select</div><div><span class="Apple-tab-span" style="white-space:pre">  </span></div><div><br></div><div>  Goto RedoTrial</div><div>  </div><div> ' Else</div><div> <span class="Apple-tab-span" style="white-space:pre">    </span> 'If R1 = False Or R2 = False OR R3 = False Then</div><div>  <span class="Apple-tab-span" style="white-space:pre">      </span>' Goto EndStimulus</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">  </span>' End If</div><div><br></div><div>  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 />
To view this discussion on the web visit <a href="https://groups.google.com/d/msg/e-prime/-/8tBvzkHlFhcJ">https://groups.google.com/d/msg/e-prime/-/8tBvzkHlFhcJ</a>.<br />
For more options, visit <a href="https://groups.google.com/groups/opt_out">https://groups.google.com/groups/opt_out</a>.<br />
 <br />
 <br />