E-prime 鼠标点击选择

本文详细介绍了使用E-prime进行心理学实验时,如何通过编写特定代码来实现鼠标光标显示与隐藏,以及如何获取并处理鼠标点击信息,以判断参与者的选择是否正确。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

实验过程

       界面上有四个区域,每个区域显示一个数字,其中一个数字为正确答案,鼠标点击之后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")

评论 9
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值