1,658
edits
Changes
Jump to navigation
Jump to search
Line 339:
Line 339: − + + + − + − function ret = buttonbox(cmd,varargin)+ − + − % define settings as structure with fields:+ − % bb.Device = 'COM2';+ − % bb.BaudRate = 115200;+ − % bb.DataBits = 8;+ − % bb.StopBits = 1;+ − % bb.Parity = 'none'; − % handle = buttonbox('open',bb) − % − % to run: (receiving incoming data, check code for own purposes) − % buttonbox('run'); − % − % or − % − % to send a marker: (marker: a numeric value; Fs: sampling frequency device) − % buttonbox(marker,Fs) − % − % or − % − % to wait for a buttonpress: − % buttonbox('clear'); (make sure buttonbox buffer is emptied) − % key = buttonbox('wait_keypress') − % − % to close the connection: − % buttonbox('close'); − − persistent old_hdl % keep handle to COM object persistent − % set defaults − − bb.BaudRate = 115200; − bb.DataBits = 8; − bb.StopBits = 1; − bb.Parity = 'none'; − − if nargin < 1 − cmd = 'open'; − end − if nargin > 1 && isstruct(varargin{1}) − % user overwrites default settings − flds = fields(varargin{1}); − for n = 1 : numel(flds) − bb.(flds{n}) = varargin{1}.(flds{n}); − end − end − if nargin==1 && isnumeric(cmd) − error('Please also specify acquisition sampling frequency of device that receives the marker'); − end − if nargin > 1 && isnumeric(cmd) − marker = cmd; − cmd = 'marker'; − Fs = varargin{1}; − end − − if ~any(strcmp(cmd,{'open','close'})) − if isempty(old_hdl) − help serial_buttonbox_common − error('Buttonbox not yet initialized'); − end − handle = old_hdl; − end − − switch cmd − case 'marker' − fwrite(handle, uint8(marker));%IOPort('Write', handle, uint8(marker), 1); % last argument: blocking − WaitSecs(2/Fs); − fwrite(handle, uint8(0));%IOPort('Write', handle, uint8(0), 0); % last argument: blocking − return − case 'clear' − while(handle.BytesAvailable) − fread(handle, 1); − end − ret = []; % meaningless − return − case 'open' − % get handle to serial device − handle = open_buttonbox(bb); − ret = handle; − return − case 'close' − if nargin > 1 − handle = varargin{1}; − else − handle = old_hdl; − end − fclose(handle); − delete(handle); − ret = []; − return − case 'run' − % read incoming data − % code proceeds below .... − case 'wait_keypress' − % start polling for characters (indicating start of scan) − while(1) − data = []; − while handle.BytesAvailable − navailable = handle.BytesAvailable; − % read incoming data − [newdata, cnt] = fread(handle, navailable); − % concatenate possible new data − if cnt − data = [data newdata(:)]; − end − end − if ~isempty(data) − ret = data; − return − end − end − otherwise − fprintf('Unknown option %s\n',cmd); − ret = []; − return − end − − %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% − % only gets here when cmd = 'run' % − %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% − % Initialize output figure − win = list_output(' ',[]); − while 1 − % Exit if user closed output figure − if ~ishandle(win) − return − end − % start polling for characters (indicating start of scan) − navailable = handle.BytesAvailable; − if navailable − data = []; − while navailable − % read incoming data − [newdata, cnt] = fread(handle, navailable); − % concatenate possible new data − if cnt − data = [data newdata(:)]; − end − % check if any more data left − navailable = handle.BytesAvailable; − end − % output info about which button was pressed − for n = 1 : numel(data) − line = sprintf('incoming: %03d %s',data(n),char(data(n))); − list_output(line,win); − end − end − pause(0.01); − end %while 1 − + + + + + + + + + + + + + + − function hdl = open_buttonbox(device)+ − % open handle to serial device (mini buttonbox) WaitSecs(0.002); % just to load mex-file into memory+ − try+ − hdl = serial(device.Device, 'Baudrate', device.BaudRate, 'DataBits', device.DataBits, 'StopBits', device.StopBits, 'Parity', device.Parity);+ − fopen(hdl);+ − catch+ − if ~isempty(old_hdl)+ − fclose(old_hdl);+ − delete(old_hdl); + − end+ − hdl = serial(device.Device, 'Baudrate', device.BaudRate, 'DataBits', device.DataBits, 'StopBits', device.StopBits, 'Parity', device.Parity);+ − fopen(hdl);+ − end − old_hdl = hdl; − fprintf('Wait for device buttonbox....\n'); − tic − while hdl.BytesAvailable && toc<10 − navailable = bbox.BytesAvailable; − % wait for welcome message device − fread(hdl, navailable); − end − pause(0.5); − end − function win = list_output(line,win)+ − persistent ptr+ − persistent lines+ − persistent edt+ − Maxlines = 40; + − if isempty(win) − % initialize listbox output figure − lines = cell(1,Maxlines); − [lines(1:end)]=deal({''}); − ptr=Maxlines; − lines(ptr) = {'Buttonbox output:'}; − idxs = mod(ptr:ptr+Maxlines-1,Maxlines)+1; − win = figure(); − % initialize figure to hold output text − edt = uicontrol('Parent',win,'Style','ListBox','HorizontalAlignment','left', ... − 'Max',Maxlines,'BackgroundColor',[1 1 1],'Visible','on','String',lines(idxs), ... − 'FontSize',12,'Value',Maxlines); − pos = get(win,'Position'); − set(edt,'Position',[1 1 pos(3) pos(4)]); − end − ptr = mod(ptr,Maxlines)+1; % start − lines{ptr} = line; − idxs = mod(ptr:ptr+Maxlines-1,Maxlines)+1; − set(edt,'String',lines(idxs),'Value',Maxlines); − drawnow; − end − end − end</syntaxhighlight>
no edit summary
For more documentation click here: http://pythonhosted.org//RuSocSci/index.html
For more documentation click here: http://pythonhosted.org//RuSocSci/index.html
<br>
<br>
=== Matlab ===
=== Matlab ===
'''Example using markers with the Buttonbox in Matlab:'''
<syntaxhighlight lang="matlab" line style="height:50em; overflow:auto;">
Download the file Bitsi.m from the DCCN website: https://intranet.donders.ru.nl/index.php?id=bitsim0
<br> Make sure to have this file in your Matlab path.
% to initialize connection: (omit 2nd argument if defaults apply)
<syntaxhighlight lang="matlab" line style="overflow:auto;">
% At the start of your script, create the buttonbox serial object
bb = Bitsi("COM2");
% other code
:
</syntaxhighlight>
bb.Device = 'COM2';
BITSI simple mode:
<syntaxhighlight lang="matlab" line style="overflow:auto;">
% This example is for an EEG system sampling at 500Hz samplerate.
% at the start of your script, reset marker
samplerate = 500;
pulseLen = 2000/samplerate;
bb.sendTrigger(0);
% send a marker
val = 1; % val: this is your marker code, range code 1-255
bb.sendTrigger(val);
java.lang.Thread.sleep(pulseLen); % wait long enough for the EEG system to capture the trigger, i.e., 2000/samplerate ms
% reset marker
bb.sendTrigger(0) % Note: if resetting the marker is not possible at this moment in code, you can decide to do this later as long as it has taken place long enough before the next marker has to be sent.
</syntaxhighlight>
BITSI extended mode:
<syntaxhighlight lang="matlab" line style="overflow:auto;">
samplerate = 500;
pulseLen = 2000/samplerate;
% select a function
bb.sendTrigger(uint8('X')); % select pulse time
bb.sendTrigger(pulseLen); % set time of duration pulse to (2000/samplerate) ms
bb.sendTrigger(uint8('M')); % select marker out
val = 1; % val: this is your marker code, range code 1-255
bb.sendTrigger(val); % val: this is your marker code, range code 1-255
</syntaxhighlight>
<syntaxhighlight lang="matlab" line style="overflow:auto;">
% At the end of your script, close the buttonbox serial object
:
bb.close();
</syntaxhighlight>