pb_vPrimeGUI.m 11.2 KB
Newer Older
Jesse Heckman's avatar
Jesse Heckman committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function varargout = pb_vPrimeGUI(varargin)
   % PB_VPRIMEGUI MATLAB code for pb_vPrimeGUI.fig
   %      PB_VPRIMEGUI, by itself, creates a new PB_VPRIMEGUI or raises the existing
   %      singleton*.
   %
   %      H = PB_VPRIMEGUI returns the handle to a new PB_VPRIMEGUI or the handle to
   %      the existing singleton*.
   %
   %      PB_VPRIMEGUI('CALLBACK',hObject,eventData,handles,...) calls the local
   %      function named CALLBACK in PB_VPRIMEGUI.M with the given input arguments.
   %
   %      PB_VPRIMEGUI('Property','Value',...) creates a new PB_VPRIMEGUI or raises the
   %      existing singleton*.  Starting from the left, property value pairs are
   %      applied to the GUI before pb_vPrimeGUI_OpeningFcn gets called.  An
   %      unrecognized property name or invalid value makes property application
   %      stop.  All inputs are passed to pb_vPrimeGUI_OpeningFcn via varargin.
   %
   %      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
   %      instance to run (singleton)".
   %
   % See also: GUIDE, GUIDATA, GUIHANDLES

   % Edit the above text to modify the response to help pb_vPrimeGUI

25
   % Last Modified by GUIDE v2.5 17-Sep-2018 12:27:46
Jesse Heckman's avatar
Jesse Heckman committed
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

   % Begin initialization code - DO NOT EDIT
   gui_Singleton = 1;
   gui_State = struct('gui_Name',       mfilename, ...
                      'gui_Singleton',  gui_Singleton, ...
                      'gui_OpeningFcn', @pb_vPrimeGUI_OpeningFcn, ...
                      'gui_OutputFcn',  @pb_vPrimeGUI_OutputFcn, ...
                      'gui_LayoutFcn',  [] , ...
                      'gui_Callback',   []);
   if nargin && ischar(varargin{1})
       gui_State.gui_Callback = str2func(varargin{1});
   end

   if nargout
       [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
   else
       gui_mainfcn(gui_State, varargin{:});
   end
   % End initialization code - DO NOT EDIT
end


% --- Executes just before pb_vPrimeGUI is made visible.
function pb_vPrimeGUI_OpeningFcn(hObject, eventdata, handles, varargin)
   % This function has no output args, see OutputFcn.
   % hObject    handle to figure
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)
   % varargin   command line arguments to pb_vPrimeGUI (see VARARGIN)

   % Choose default command line output for pb_vPrimeGUI
   handles.output = hObject;

   % Update handles structure
   guidata(hObject, handles);
Jesse Heckman's avatar
Jesse Heckman committed
61
   
62
63
   cd(datapath);
   set(handles.editLoad,'string',cd);
Jesse Heckman's avatar
Jesse Heckman committed
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

   % UIWAIT makes pb_vPrimeGUI wait for user response (see UIRESUME)
   % uiwait(handles.figure1);
end


% --- Outputs from this function are returned to the command line.
function varargout = pb_vPrimeGUI_OutputFcn(hObject, eventdata, handles) 
   % varargout  cell array for returning output args (see VARARGOUT);
   % hObject    handle to figure
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)

   % Get default command line output from handles structure
   varargout{1} = handles.output;
end


% --- Executes on selection change in popExperimenter.
function popExperimenter_Callback(hObject, eventdata, handles)
   % hObject    handle to popExperimenter (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)

   % Hints: contents = cellstr(get(hObject,'String')) returns popExperimenter contents as cell array
   %        contents{get(hObject,'Value')} returns selected item from popExperimenter
90
91
92
93
94
95
96
97
98
   path = get(handles.editLoad,'string');
   if isempty(pb_fext(path))
      path = datapath;
      contents 	= get(handles.popExperimenter,'string');
      user        = contents{get(handles.popExperimenter,'Value')};
      newpath     = datapath([path filesep user]);
      
      set(handles.editLoad,'string',newpath);
   end
Jesse Heckman's avatar
Jesse Heckman committed
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
end

% --- Executes during object creation, after setting all properties.
function popExperimenter_CreateFcn(hObject, eventdata, handles)
   % hObject    handle to popExperimenter (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    empty - handles not created until after all CreateFcns called

   % Hint: popupmenu controls usually have a white background on Windows.
   %       See ISPC and COMPUTER.
   if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
       set(hObject,'BackgroundColor','white');
   end
end


function editLoad_Callback(hObject, eventdata, handles)
   % hObject    handle to editLoad (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)

   % Hints: get(hObject,'String') returns contents of editLoad as text
   %        str2double(get(hObject,'String')) returns contents of editLoad as a double
end

% --- Executes during object creation, after setting all properties.
function editLoad_CreateFcn(hObject, eventdata, handles)
   % hObject    handle to editLoad (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    empty - handles not created until after all CreateFcns called

   % Hint: edit controls usually have a white background on Windows.
   %       See ISPC and COMPUTER.
   if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
       set(hObject,'BackgroundColor','white');
   end
end

% --- Executes on button press in buttonRun.
function buttonRun_Callback(hObject, eventdata, handles)
   % hObject    handle to buttonRun (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)
   expf = get(handles.editLoad,'string');
   [ext,~] = pb_fext(expf);
   if isempty(ext)
      msgbox({'Non-valid file selected.';'Please select an expfile before starting an experiment.'});
   else
      clc;
      fprintf(['<strong>Experiment has started.</strong>\n\n']);
      
      % select experimental parameters
      contents          = get(handles.popExperimenter,'string');
      Exp.experimenter  = contents{get(handles.popExperimenter,'Value')};
      Exp.SID           = get(handles.editPart,'string');
      Exp.expfile       = get(handles.editLoad,'string');
      Exp.recording     = get(handles.editRec,'string');

157
158
159
160
161
162
      % Sets parameters & run exp
      Exp = mkDat(Exp,handles);
      disp(['Experimenter: '  Exp.experimenter newline ...
            'Expfile: '       Exp.expfile newline ...
            'Subject ID: '    Exp.SID newline ...
            'Recording: '     Exp.recording newline]);
Jesse Heckman's avatar
Jesse Heckman committed
163
      pb_vRunExp(Exp,handles);
Jesse Heckman's avatar
Jesse Heckman committed
164
165
166
167
168
169
170
171
   end
end

% --- Executes on button press in buttonClose.
function buttonClose_Callback(hObject, eventdata, handles)
   % hObject    handle to buttonClose (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)
Jesse Heckman's avatar
Jesse Heckman committed
172
173

   close(handles.figure1);
Jesse Heckman's avatar
Jesse Heckman committed
174
175
176
177
178
179
180
181
end

% --- Executes on button press in buttonLoad.
function buttonLoad_Callback(hObject, eventdata, handles)
   % hObject    handle to buttonLoad (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)
   
182
183
184
185
186
187
   path = get(handles.editLoad,'string');
   path = datapath(path);
   set(handles.editLoad,'string',path);
   
   [ext, ~] = pb_fext(path);
   if isempty(ext); cdir = path; else; fol = dir(path); cdir = fol.folder; end
Jesse Heckman's avatar
Jesse Heckman committed
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
   
   [fn, path] = pb_getfile('dir',cdir,'ext','*.exp','title','Load exp-file..' );
   if fn ~= 0
      expfile = [path fn];
      set(handles.editLoad,'string',expfile);
   end
end


function editPart_Callback(hObject, eventdata, handles)
   % hObject    handle to editPart (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)

   % Hints: get(hObject,'String') returns contents of editPart as text
   %        str2double(get(hObject,'String')) returns contents of editPart as a double

   % --- Executes during object creation, after setting all properties.
end

function editPart_CreateFcn(hObject, eventdata, handles)
   % hObject    handle to editPart (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    empty - handles not created until after all CreateFcns called

   % Hint: edit controls usually have a white background on Windows.
   %       See ISPC and COMPUTER.
   if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
       set(hObject,'BackgroundColor','white');
   end
end

function editRec_Callback(hObject, eventdata, handles)
   % hObject    handle to editRec (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    structure with handles and user data (see GUIDATA)

   % Hints: get(hObject,'String') returns contents of editRec as text
   %        str2double(get(hObject,'String')) returns contents of editRec as a double

end

% --- Executes during object creation, after setting all properties.
function editRec_CreateFcn(hObject, eventdata, handles)
   % hObject    handle to editRec (see GCBO)
   % eventdata  reserved - to be defined in a future version of MATLAB
   % handles    empty - handles not created until after all CreateFcns called

   % Hint: edit controls usually have a white background on Windows.
   %       See ISPC and COMPUTER.
   if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
       set(hObject,'BackgroundColor','white');
   end
end
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272

function exp = mkDat(exp,handles)
   % Creates directory and sets parameters for data storage
   datname = [exp.experimenter '-' exp.SID '-' datestr(now,'yy-mm-dd')]; %% <-- SET PATH FOR WINDOWS DATADIR
   path = [datapath filesep exp.experimenter filesep 'Recordings' filesep datname];
   
   if ~exist(path,'dir'); mkdir(path); cd(path); mkdir('trial'); end
   
   path = [path filesep 'trial']; exp.dir = path; cd(path);
   fname = [datname '-' exp.recording '-0001.vc'];
   
   while exist(fname,'file')
      % Check for existing recordings
      quest = 'Recording already exists. How to proceed?';
      answer = questdlg(quest,'Choices','Overwrite', 'Increment','Stop','Stop');
      switch answer
          case 'Overwrite'
              break;
          case 'Increment'
               exp.recording = num2str(str2double(exp.recording)+1,'%04d');
               set(handles.editRec,'string',exp.recording);      
          case 'Stop'
              error('Run stopped.');
      end
      fname = [datname '-' num2str(exp.recording,'%04d') '-0001.vc']; 
   end
end

function path = datapath(path)
   if nargin == 0; path = []; end
   if isempty(path) || ~exist(path)
Jesse Heckman's avatar
Jesse Heckman committed
273
      if ismac                                                             % MAC       (personal   //    NO VC, NO TDT)
274
         path = '/Users/jjheckman/Documents/Data/PhD/Experiment/VC';
Jesse Heckman's avatar
Jesse Heckman committed
275
276
277
      elseif isunix && ~ismac                                            	% LINUX     (public     //    VC, NO TDT)
         path = 'C:/VC/DATA';
      elseif ispc                                                        	% WINDOWS   (public     //    VC, TDT)
278
279
280
281
         path = 'C:/VC/DATA';
      end  
   end
end