E-prime 滑鼠點選選擇
實驗過程:
介面上有四個區域,每個區域顯示一個數字,其中一個數字為正確答案,滑鼠點選之後FeedbackDisplay給予反饋。
難點:
1.E-prime預設不顯示游標,怎樣顯示滑鼠游標呢?又如何在顯示下一個刺激時關掉滑鼠游標呢?
2.如何獲得滑鼠的點選資訊?又如何根據點選資訊確定點選區域呢?
針對第一個問題:
我是在Slide6中收集滑鼠點選,所以在此之前需要建立inline語句:
Mouse.ShowCursor True
這樣游標就能好好顯示了。相應的slide6顯示後寫入語句“Mouse.ShowCursor False”,滑鼠游標就停止顯示了。
針對第二個問題:
Dim theState As SlideState Set theState=Slide6.States("Default") Dim strHit As String Dim theMouseResponseData As MouseResponseData
If Slide6.InputMasks.Responses.Count > 0 then Set theMouseResponseData=CMouseResponseData(Slide6.InputMasks.Responses(1)) strHit = theState.HitTest(theMouseResponseData.CursorX,theMouseResponseData.CursorY)
'這一步就獲取了滑鼠點選的位置,並且這一步將滑鼠點選的位置轉換成所在位置控制元件的名稱 If strHit=c.GetAttrib("answer")Then Slide6.CRESP=c.GetAttrib("answer") Slide6.ACC=1 End if End if 我還在List中對answer的值進行了修改:
answer的值全部改成了控制元件的名稱"V1 ,V2,V3.."
這樣只需要判斷滑鼠點選位置控制元件的名稱是否和正確答案所在控制元件名稱是否相同即可。
strHit=c.GetAttrib("answer")