E-prime编写自定步速实验范式程序
2024-03-11 12:05:10

本教程只供学习和参考

E-prime安装

E-prime下载地址

  1. 打开设置、控制面板、点击程序，启用或关闭windows功能，点击安装. Net Framework 3.5
    控制面板
  2. 下载上面的压缩包，解压到一个目录
  3. 双击运行两个REG格式文件，分别点击是，是，最后点击确定
    REG文件
  4. 双击打开EXE格式文件,弹出界面点击是
    EXE文件
  5. 在下面的界面点击Install
    点击Install
  6. 依次点击Next，Accept，复制Serial Number DC416F-20EB30-13E903，点击Complete安装
    安装
  7. 安装完成后，点击finish，会弹出下面界面，选择不更新
    不更新
  8. 之后会进入E-prime界面，选择I agree，点击确定，会弹出浏览器，关闭即可，选择Blank会新建程序，这边选择Cancel
    Software
  9. 如果是按照操作安装，进入C:\\Program Files (x86)\\PST\\E-Prime 2.0\\Program目录,删除LicenseManager.exe软件，避免等待10ms进入程序
    Delete

E-prime编写简单自定步速实验

  1. 打开E-Studio，点击Blank(Professional)，点击确定

  2. 双击SessionProc，拖拽一个TextDisplay，双击打开，点击左上角小手修改属性，Frame size改为100%，Duration改为Infinite，Device添加Keyboard，Allowable改为Q
    Step 2

  3. 拖拽一个List，双击打开，在Procedure下面的单元格输入TrialProc，软件会提示是否新建，点击确定即可，最后点击有绿色的按钮即可创建新单元格，类似Excel(正式实验一般会有两个Proc，一个给被试练习，另一个正式实验，这里仅作演示)
    Step 3

  4. 在单元格内添加分好的单词，可以直接从Excel复制进去，E-prime会自己添加单元格，然后修改单元格名称
    Step 4

  5. 在单元格后添加两列，添加Question和Answer
    Step 5

  6. 双击新建的Proc，拖拽一个TextDisplay，重命名为W1(名字和之前List里的列名一样)，双击W1修改属性，frame如上，Allowable改成{SPACE}我有四个词，就把W1复制粘贴四次
    Step 6

  7. 拖拽以修改TextDisplay位置，再复制粘贴一个W5，在拖拽一个TextDisplay修改为Question，双击Question，填入[Question],修改属性，Allowable修改为YN，Correct修改为[Answer]，这也是跟List里设置的一样,还会提示打开Data logging，选择Standard即可
    Step 7

  8. 拖拽一个Inline，复制下面的代码
    Step 8

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    ' 下面的4代表list中放单词的列数，列数不同，需要修改
    ' W1到W4需要根据TextDisplay的名字修改，arrPhrase代表每个分下来的单词
    ' arrMask负责对每个单词盖上横线，数量也需要修改
    Dim arrPhrases(4) As String
    arrPhrases(1)= c.Getattrib("W1")
    arrPhrases(2)= c.Getattrib("W2")
    arrPhrases(3)= c.Getattrib("W3")
    arrPhrases(4)= c.Getattrib("W4")

    Dim arrMask(4) As String
    arrMask(1)= String$(len(arrPhrases(1)), "-")
    arrMask(2)= String$(len(arrPhrases(2)), "-") 
    arrMask(3)= String$(len(arrPhrases(3)), "-")
    arrMask(4)= String$(len(arrPhrases(4)), "-") 

    ' 下面是一个循环，用来负责被试按下空格，显示一个单词，但是遮住别的单词，以此类推 

    Dim nCount As Integer

    For nCount = 1 To 5
    Select Case nCount

    Case 1	
    W1.Text = arrMask(1) &" "& arrMask(2) &" "& arrMask(3) &" "& arrMask(4) 
    Case 2
    W2.Text = arrPhrases(1) &" "& arrMask(2) &" "& arrMask(3) &" "& arrMask(4) 
    Case 3
    W3.Text = arrMask(1) &" "& arrPhrases(2) &" "& arrMask(3) &" "& arrMask(4) 
    Case 4
    W4.Text = arrMask(1) &" "& arrMask(2) &" "& arrPhrases(3) &" "& arrMask(4) 
    Case 5
    W5.Text = arrMask(1) &" "& arrMask(2) &" "& arrMask(3) &" "& arrPhrases(4) 

    End  Select
    Next nCount

  9. 点击左上角的小紫人，即可运行程序，一个简单的自定步速的程序就做完了
    Run

  10. 如果无法运行，点击Experiment，选择Devices，选择Display，Match desktop resolution at runtime，选择不同的选项是多试几次，把下面的分辨率改成800 * 600
    Step 9

Prev
2024-03-11 12:05:10
Next