%保存为 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(0.3); %采集频率2s/次
k=k+1;
end
%%%%%%%%%%%%%%循环采集、保存图像
