% 保存為 imaq_cyc.m
%讀取任一文件，識別其文件名、后綴名、所在路徑
[filename, pathname, filterindex] = uiputfile( ...
       {'*.jpg;*.bmp;*.tif;*.png', 'All PHOTO Files (*.jpg;*.bmp;*.tif;*.png)';
        '*.jpg','jpg-files (*.jpg)'; ...
        '*.bmp','bmp-files (*.bmp)'; ...
        '*.tif','tif-files (*.tif)'; ...
        '*.png','png-files (*.png)'; ...
        '*.*',  'All Files (*.*)'}, ...
        'Save as');
 
if isequal(filename,0) || isequal(pathname,0)
   h=msgbox('你按下了取消鍵！');,%'Title','custom',hot(64)
    else
%確定存盤時的主文件名、后綴名
filelen=length(filename);
for k=1:filelen;
if filename(k)=='.';
dotnum=k;
end;
k=k+1;
end;
insuffix= filename(dotnum:end);
infname=filename(1:dotnum-1);
%確定存盤時的主文件名、后綴名
end

%%%%%%%%%%%%%%循環采集、保存圖像
% vid=videoinput('winvideo');
% imaqnum=10; %采集幀數
% for k=1:imaqnum;
% start(vid);
% aqdata1=getdata(vid,1);
% %先保存、再顯示
% fullpath=[pathname,infname,num2str(k),insuffix]; %保存路徑
% imwrite(aqdata1,fullpath);  %不知道此處為何不能帶上'Quality'參數
% imshow(aqdata1);
% % pause(2); %采集頻率2s/次
% k=k+1;
% end
%%%%%%%%%%%%%%循環采集、保存圖像
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%