<div dir="ltr"><div>Hallo everybody</div><div> </div><div>At the moment I am programming a multiple choice test.</div><div>In this test, there is a Stimulus (a slide image) and 4 possible answers (slide images) given.</div><div>The subjects have to choose one of the 4 answers by clicking on it.</div><div> </div><div>At the same time there is a sound-file presented, which is a little story describing the stimulus-image.</div><div>The subjects can answer until the complete story is presented.</div><div>So far it was no huge problem for me.</div><div> </div><div>But now i want to highlight the given answer by changing the border color of the slide image that has been clicked. </div><div> </div><div>By now I could only accomplish, that the border color changes in the following slide state but not in the current one.</div><div>I also didn't accomplish, that the border color changes back to the original color in the next slide states.</div><div> </div><div>I hope you understand what my Problem is and could give me a hand.</div><div> </div><div><div><font color="#000000">Best regards</font></div><div><font color="#000000">Hans</font></div></div><div> </div><div> </div><div> </div><div>Here is the inline code I produced so far (the green part is what i've tried by myself to solve my problem. The rest of the code works fine so far): </div><div> </div><div><br> Dim theState as SlideState<br> Set theState = ExternalCausesSlide.States("Default")</div><div> Dim next_mX as Long, next_mY as Long<br> Dim strHit As String<br> Dim theMouseResponseData As MouseResponseData</div><div><br> 'Was there a response?<br> If ExternalCausesSlide.InputMasks.Responses.Count > 0 Then</div><div> 'Get the mouse response<br> Set theMouseResponseData = CMouseResponseData(ExternalCausesSlide.InputMasks.Responses(1))<br> <br> 'Determine string name of SlideImage or SlideText object at<br> 'mouse click coordinates. Assign that value to strHit<br> strHit = theState.HitTest(theMouseResponseData.CursorX, theMouseResponseData.CursorY)</div><div><br> 'if strHit equals the two buttons, then strHit will be logged, game will move onto next trial.<br> <br> If strHit = ("Image1") or strHit = ("Image2") or strHit = ("Image3")or strHit = ("Image4") Then<br> c.SetAttrib "response", strHit</div><div> 'if click is off, then restart slide 2 so nothing changes on the screen. no data will be logged in this case. </div><div> Else<br> Goto restart2</div><div> End If </div><div><br>'Compare string name where mouse click occurred to CorrectAnswer<br>'attribute on each trial, and score response<br>'NOTE: This comparison is case sensitive<br></div><div>If strHit = c.GetAttrib("CorrectEmotion") Then<br>ExternalCausesSlide.ACC = 1<br>Else<br>ExternalCausesSlide.ACC = 0 <br>End If</div><div> </div><div> </div><div><font color="#38761d">If strHit = ("Image1") Then<br>Dim Image1 As SlideImage</font></div><div><font color="#38761d">Set Image1 = CSlideImage(ExternalCausesSlide.States("Default").Objects("Image1"))</font></div><div><font color="#38761d">Image1.BorderColor = CColor("cyan") </font></div><div></div><font color="#38761d"><div>End If<br> End if<br></div><div> </div><div> </div><div><font color="#000000"></font> </div></font></div>
<p></p>
-- <br />
You received this message because you are subscribed to the Google Groups "E-Prime" group.<br />
To unsubscribe from this group and stop receiving emails from it, send an email to e-prime+unsubscribe@googlegroups.com.<br />
To post to this group, send email to e-prime@googlegroups.com.<br />
To view this discussion on the web visit <a href="https://groups.google.com/d/msgid/e-prime/11000327-bee5-4ad7-a9d8-156efbb73846%40googlegroups.com">https://groups.google.com/d/msgid/e-prime/11000327-bee5-4ad7-a9d8-156efbb73846%40googlegroups.com</a>.<br />
For more options, visit <a href="https://groups.google.com/groups/opt_out">https://groups.google.com/groups/opt_out</a>.<br />