www.gusucode.com > IPCV_Eval_Kit_R2019a_0ce6858工具箱源码程序matlab > IPCV_Eval_Kit_R2019a_0ce6858/code/demo_files/I4_11_1_webcam_IMAQ_SysObj.m

    clc;close all;imtool close all;clear;

%% 僇儊儔偐傜夋憸傪庢傝崬傓偨傔偺僔僗僥儉僆僽僕僃僋僩偺惗惉
hCamera = imaq.VideoDevice('winvideo', 1, 'RGB24_640x480')      % 娐嫬偵崌傢偣偰丄Webcam偺斣崋(2斣栚偺堷悢)傪愝掕
hCamera.ReturnedDataType = 'uint8';       %僨僼僅儖僩偼Single宆丗昞帵摍uint8傊曄姺偟丄崅懍壔

%% 價僨僆傪昞帵偡傞偨傔偺僆僽僕僃僋僩偺惗惉
viewer = vision.DeployableVideoPlayer;

%% 僼儗乕儉儗乕僩傪彂偒崬傓偨傔偺僆僽僕僃僋僩傪惗惉
fps = single(0.0);
texts = vision.TextInserter('Running at %2.2f fps', ...
  'Color',[0, 255, 0], 'FontSize',30, 'Location',[20 20]); 

%% 僼儗乕儉儗乕僩寁應梡
t = tic();
cnt = 1;

%% 僗僩僢僾儃僞儞偺昞帵
a=true;
sz = get(0,'ScreenSize');
figure('MenuBar','none','Toolbar','none','Position',[20 sz(4)-100 100 70])
uicontrol('Style', 'pushbutton', 'String', 'Stop',...
        'Position', [20 20 80 40],...
        'Callback', 'a=false;');

%% 1僼儗乕儉枅偵張棟偡傞偨傔偺儖乕僾張棟
while (a)
% for i=1:200 
  I = step(hCamera);         %1僼儗乕儉庢崬傒
  Itxt = step(texts,I,fps);  %僼儗乕儉儗乕僩偺彂崬傒
  step(viewer,Itxt);         %1僼儗乕儉昞帵

   % 30僼儗乕儉偺暯嬒偐傜僼儗乕儉儗乕僩偺寁嶼
   cnt = cnt + 1;
   if (mod(cnt,30) == 0)
    t = toc(t);
    fps = single(30/t);
    t = tic();
   end
   drawnow limitrate;
end

%%
release(hCamera);
release(viewer);
release(texts);

%%



%% 嶲峫丗奺庬愝掕傪偡傞椺
hCamera.DeviceProperties.FrameRate = '5';     %僼儗乕儉儗乕僩傪5fps(枅昩5僼儗乕儉)傊曄峏





%%
%  Copyright 2014 The MathWorks, Inc.