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.