Format NCdisplayGui.m

This commit is contained in:
2024-07-25 13:27:15 -04:00
parent 37533136ae
commit d569bc4be7

View File

@@ -1,146 +1,121 @@
%% CALLED WHEN ACCESSING 'CurveFit Display' %% %% CALLED WHEN ACCESSING 'CurveFit Display' %%
function [scLst, row, col] = NCdisplayGui(eDir) %(ExpPath) function [scLst, row, col] = NCdisplayGui(eDir) %(ExpPath)
%global ExpPath xPos=0.05;
%global expDir btnWid=0.10;
btnHt=0.05;
spacing=0.02; % Spacing between the button and the next command's label
xPos=0.05; % Figure
btnWid=0.10;
btnHt=0.05;
spacing=0.02;% Spacing between the button and the next command's label
%hSpot= figure;
%figure
%====================================
% The ADD Groups button % The ADD Groups button
btnNumber=1; btnNumber=1;
yPos=0.85-(btnNumber-1)*(btnHt+spacing); yPos=0.85-(btnNumber-1)*(btnHt+spacing);
btnPos=[xPos yPos-spacing btnWid btnHt]; btnPos=[xPos yPos-spacing btnWid btnHt];
%
row=1;
hedit = uicontrol(...
'Style', 'edit',...
'String',row,...
'Units','normalized',...
'Position', btnPos,... % [.002 .70 .08 .10],...
'callback',{@editRowNum}); % 'Position', [5 100 60 20])
function editRowNum(source,~) row=1;
user_entry = str2double(get(source,'string')); hedit=uicontrol(...
'Style', 'edit',...
'String',row,...
'Units','normalized',...
'Position', btnPos,... % [.002 .70 .08 .10],...
'callback',{@editRowNum}); % 'Position', [5 100 60 20])
function editRowNum(source,~)
user_entry=str2double(get(source,'string'));
if (isnan(user_entry)||(user_entry<0)||(user_entry>17) ) if (isnan(user_entry)||(user_entry<0)||(user_entry>17) )
errordlg('Enter a Row between 1 and 16','Bad Input','modal') errordlg('Enter a Row between 1 and 16','Bad Input','modal')
return return
end end
row= user_entry; row=user_entry;
end
%-------------------222222-----------
%
btnNumber=2;
yPos=0.85-(btnNumber-1)*(btnHt+spacing);
btnPos=[xPos yPos-spacing btnWid btnHt];
col= 1;
hedit = uicontrol(...
'Style', 'edit',...
'String',col,...
'Units','normalized',...
'Position', btnPos,... % [.002 .70 .08 .10],...
'callback',{@entryColNum}); % 'Position', [5 100 60 20])
function entryColNum(source,~)
user_entry = str2double(get(source,'string'));
if (isnan(user_entry)||(user_entry<0)||(user_entry>25))
errordlg('Enter a Column between 1 and 24','Bad Input','modal')
return
end
col= user_entry;
end
%}
%*************************************************************
%Ncode 12_0120 for reading in numeric folder names
nlist=dir(fullfile(eDir,'*')); %(ExpPath,'*'));
nnn=0;
for n=1:size(nlist,1)
if (~isempty(str2num(nlist(n).name)))
nnn=nnn+1;
PnumLst(nnn)= (str2num(nlist(n).name));
slst(nnn,1)={(nlist(n).name)};
end
end
hListbox = uicontrol(...
'Style', 'listbox',...
'String',sort(slst),...
'value',[],...
'max',1000,...
'min',1,...
'Units','normalized',...
'Position', [.40 .40 .10 .60],...
'callback',{@load_listbox}); %'uiresume(gcbf)'); 'Position', [5 100 60 20])
function load_listbox(source,~)
userIndx = (get(source,'value'));
userStr = (get(source,'string'));
%scLstIndx= str2num(char(strrep(userStr(userIndx), 'Scan', '')))
user_entry=userStr(userIndx);
scLst= user_entry;
end end
%***************************************************************** btnNumber=2;
%-------------------10 10 10 10----------- yPos=0.85-(btnNumber-1)*(btnHt+spacing);
btnPos=[xPos yPos-spacing btnWid btnHt];
col=1;
hedit=uicontrol(...
'Style', 'edit',...
'String',col,...
'Units','normalized',...
'Position', btnPos,... % [.002 .70 .08 .10],...
'callback',{@entryColNum}); % 'Position', [5 100 60 20])
btnNumber=10; function entryColNum(source,~)
yPos=0.85-(btnNumber-1)*(btnHt+spacing); user_entry=str2double(get(source,'string'));
btnPos=[xPos yPos-spacing btnWid btnHt]; if (isnan(user_entry)||(user_entry<0)||(user_entry>25))
errordlg('Enter a Column between 1 and 24','Bad Input','modal')
return
end
col=user_entry;
end
hedit8 = uicontrol(... % Read in numeric folder names
'Style', 'pushbutton',... nlist=dir(fullfile(eDir,'*')); %(ExpPath,'*'));
'String',{'Continue'},... nnn=0;
'Units','normalized',... for n=1:size(nlist,1)
'Position', btnPos,... if (~isempty(str2num(nlist(n).name)))
'callback','uiresume(gcbf)'); nnn=nnn+1;
PnumLst(nnn)=(str2num(nlist(n).name));
slst(nnn,1)={nlist(n).name};
slst(nnn,1)={(nlist(n).name)};
end
end
hListbox=uicontrol(...
'Style', 'listbox',...
'String',sort(slst),...
'value',[],...
'max',1000,...
'min',1,...
'Units','normalized',...
'Position', [.40 .40 .10 .60],...
'callback',{@load_listbox}); %'uiresume(gcbf)'); 'Position', [5 100 60 20])
%------------------------------ function load_listbox(source,~)
userIndx=(get(source,'value'));
userStr=(get(source,'string'));
%scLstIndx=str2num(char(strrep(userStr(userIndx), 'Scan', '')))
user_entry=userStr(userIndx);
scLst=user_entry;
end
%*************************************************************** btnNumber=10;
% { yPos=0.85-(btnNumber-1)*(btnHt+spacing);
%********LABELS****************************** btnPos=[xPos yPos-spacing btnWid btnHt];
% The Labels
xLPos=0.175;
yPos=0;
btnWid=0.20;
hedit8=uicontrol(...
'Style', 'pushbutton',...
'String',{'Continue'},...
'Units','normalized',...
'Position', btnPos,...
'callback','uiresume(gcbf)');
% Removed Not needed for Ncode ImRobot % Labels
lblNumber=1; xLPos=0.175;
yPos=0.85-(lblNumber-1)*(btnHt+spacing); yPos=0;
btnPos=[xLPos yPos-spacing btnWid btnHt]; btnWid=0.20;
lblNumber=1;
yPos=0.85-(lblNumber-1)*(btnHt+spacing);
btnPos=[xLPos yPos-spacing btnWid btnHt];
htxt=uicontrol(...
'Style', 'text',...
'String','Row',...
'Units','normalized',...
'Position', btnPos);
htxt = uicontrol(... lblNumber=2;
'Style', 'text',... yPos=0.85-(lblNumber-1)*(btnHt+spacing);
'String','Row',... btnPos=[xLPos yPos-spacing btnWid btnHt];
'Units','normalized',...
'Position', btnPos); htxt=uicontrol(...
%-------------------222222----------- 'Style', 'text',...
lblNumber=2; 'String','Column',...
yPos=0.85-(lblNumber-1)*(btnHt+spacing); 'Units','normalized',...
btnPos=[xLPos yPos-spacing btnWid btnHt]; 'Position', btnPos);
htxt = uicontrol(...
'Style', 'text',...
'String','Column',...
'Units','normalized',...
'Position', btnPos);
% Not needed for Ncode ImRobot % Not needed for Ncode ImRobot
uiwait(gcf); uiwait(gcf);
end %function end $$$$$ end %function end $$$$$[/INST]
%} %}
%{ %{
%-------------------333333----------- %-------------------333333-----------