MATLAB编程之PTB：简单的P300脑电实验

- 日理万妓 2022-01-23 15:06 266阅读 0赞

为了验证设备的可靠性，编写了一个诱发脑电P300的odd-ball范式，因为采集信号的方式不同，可能打marker的方式也就不一样，所以我就把自己给串口发送trriger的代码省略了，有需要的话可以在下面的代码的基础上加上发送trriger的代码即可。

clear all;
    clc;
    fixation = imread('experiment2\cross.bmp');
    blank = imread('experiment2\blank.bmp'); 
    KbName('UnifyKeyNames');  
    subinfo=getSubInfo;       %获取被试信息
    if isempty(subinfo)
        return
    end
    firstKey=KbName('1');        %左边的按f,右边的按j
    secondKey=KbName('2');
    spaceKey = KbName('space');
    wptr = Screen('OpenWindow',0,128);
    s = double('同学您好，欢迎参加本次实验，接下来您将会看到两个符号，\n如果出现$时请按1，出现￥请按2，请您尽快作出反应');
    oldtxcolor = Screen('TextColor',wptr);
    DrawFormattedText(wptr,s,'center','center',0,15,[],[],2);
    Screen('Flip',wptr);
    Screen('TextColor',wptr,oldtxcolor);
    while true
         [~,~,keycode]=KbCheck;
         if keycode(spaceKey)
            break;                            %等待按空格键
         end
    end
    sequence = [1,1,1,1,2];
    for i = 1:500
        A = randperm(numel(sequence));
        flag = sequence(A(1));
        tex = Screen('MakeTexture',wptr,fixation);      %显示注视点
        Screen('DrawTexture',wptr,tex,[]);
        Screen('Flip', wptr);
        WaitSecs(0.1);
        [x,y]=WindowCenter(wptr);
        Screen('TextSize',wptr,55);
        if flag == 1
           stimulus = double('$');
           fwrite(com,40);
           DrawFormattedText(wptr,stimulus,x,y,[0,128,0]);
           Screen('Flip',wptr);
           Screen('TextColor',wptr,oldtxcolor);
           WaitSecs(0.25);
           DrawFormattedText(wptr,'',x,y);
           Screen('Flip',wptr);
           Screen('TextColor',wptr,oldtxcolor);
        end
        if flag == 2
           stimulus = double('￥');
           fwrite(com,50);
           DrawFormattedText(wptr,stimulus,x,y,[255,0,0]);
           Screen('Flip',wptr);
           Screen('TextColor',wptr,oldtxcolor);
           WaitSecs(0.25);
           DrawFormattedText(wptr,'',x,y);
           Screen('Flip',wptr);
           Screen('TextColor',wptr,oldtxcolor);
        end
          
        while true
                [~,~,keycode]=KbCheck;%获取被试反应后的时间                  
                if keycode(firstKey)
                    break;
                end
                if keycode(secondKey)              
                    break;
                end
        end
        KbWait;
        tex = Screen('MakeTexture',wptr,blank);         %显示空白图片
        Screen('DrawTexture',wptr,tex,[]);
        Screen('Flip', wptr);
        WaitSecs(0.5); 
    end
    sca;
    disp('finish');

上面字符串使用double时为了解决编码问题，使得在某台机器上编写在其他机器上不会出现乱码问题。