box.m

来自「This software gave volume MoM solution b」· M 代码 · 共 50 行

% box

figure(2);
clf;
set (gcf,'Units','normalized','Position',[0.45 0.1 0.45 0.4],'Name','Box Input Data Window','NumberTitle','off','Units','normalized');

Frame1=uicontrol(gcf,...
'Style','frame',...
'Position',[25 28 400 275]);
txt_tdir=uicontrol(gcf,...  
   'Style','text',...
   'String','Enter X, Y, Z in Meters:',...
   'Position',[30 260 200 20],'HorizontalAlignment','Left','ForegroundColor',[1 0 0]);

mbox=mbox+1;

for j=1:8,
   txt_tdir(j)=uicontrol(gcf,...  
   'Style','text',...
   'String',['Corner No ',num2str(j),'  (X Y Z)'],...
   'Position',[60 230-(j-1)*25 140 20]);
   X(j)=uicontrol(gcf,'Style','edit', ...
   'String','10', ...
   'Position',[ 240 230-(j-1)*25 50 20]);
   Y(j)=uicontrol(gcf,'Style','edit', ...
   'String','10', ...
   'Position',[ 300 230-(j-1)*25 50 20]);
   Z(j)=uicontrol(gcf,'Style','edit', ...
   'String','10', ...
   'Position',[ 360 230-(j-1)*25 50 20]);

end;

txt_tdir9=uicontrol(gcf,...  
'Style','text',...
'String',['EP1 EP2 '],...
'Position',[60 30 140 20]);
EP1=uicontrol(gcf,'Style','edit', ...
'String','10', ...
'Position',[ 270 30 50 20]);
EP2=uicontrol(gcf,'Style','edit', ...
'String','10', ...
'Position',[ 330 30 50 20]);


pb_OK =uicontrol(gcf,...
'Style','push',...
'String','OK','Position',[80 5 90 20],...
'CallBack','box1');