boxo.m

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

% boxo
% Viewing/Changing Old Box Data.

if (mbox==0), 
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Ther are no boxes defined'],...
   'Position',[60 230 240 20]);

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

end;

if (mbox>0),
   mbox1=0;
   figure(1);
   Frame1=uicontrol(gcf,...
   'Style','frame',...
   'Position',[45 40 350 220]);
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Box Number: ',num2str(mbox1)],...
   'Position',[60 230 240 20]);
   boxo1;
   figure(1);
    pb_OK3 =uicontrol(gcf,...
   'Style','push',...
   'String','Next Box','Position',[80 85 90 20],...
   'CallBack','if (mbox1+1>0), if (mbox1+1<=mbox), boxo1; else mbox1=mbox+1;  disp(''no more boxes''); end; end; ');
    pb_OK1 =uicontrol(gcf,...
   'Style','push',...
   'String','Previous Box','Position',[200 85 90 20],...
   'CallBack',' if (mbox1-1<=mbox), if (mbox1-1>0), mbox1=mbox1-2; boxo1; else mbox1=0; disp(''number of box below 1''); end; end;');
    pb_OK2 =uicontrol(gcf,...
   'Style','push',...
   'String','Cancel','Position',[310 85 60 20],...
   'CallBack','figure(1); set(pb_OK3,''visible'',''off'');set(pb_OK1,''visible'',''off'');set(pb_OK2,''visible'',''off''); set(txt_tdir1,''visible'',''off''); set(Frame1,''visible'',''off'');');
   figure(2);
   
end;