imqacdemo03.m

用MAtlab写的不错的运动目标检测的分析平台。 研究人员可借此学习在Matlab71上如何编写图形化界面的程序

function editObj_Callback(hObject, eventdata, handles)
% hObject    handle to editObj (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of editObj as text
%        str2double(get(hObject,'String')) returns contents of editObj as a double


% --- Executes during object creation, after setting all properties.
function editObj_CreateFcn(hObject, eventdata, handles)
% hObject    handle to editObj (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end



function editSnap_Callback(hObject, eventdata, handles)
% hObject    handle to editSnap (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of editSnap as text
%        str2double(get(hObject,'String')) returns contents of editSnap as a double


% --- Executes during object creation, after setting all properties.
function editSnap_CreateFcn(hObject, eventdata, handles)
% hObject    handle to editSnap (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end




% --- Executes on button press in pbPlay.
function pbPlay_Callback(hObject, eventdata, handles)
% hObject    handle to pbPlay (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
if (get(hObject,'value'))

    set(hObject,'string','Play');
    recorded_data = handles.outdata;
    sz = size(recorded_data.image);
    frm_num = sz(4);
    cntstart = round(get(handles.sldFrame,'value'));

    for cnt = cntstart:frm_num
        axes(handles.axes1);
        subimage(recorded_data.image(:,:,:,cnt));
        axes(handles.axes2);
        St = edge(rgb2gray(recorded_data.image(:,:,:,cnt)));
        subimage(St);
        set(handles.sldFrame,'value',cnt);
        set(handles.editTime2,'string',recorded_data.time{cnt});
        set(handles.txtCurrent,'string',cnt);   
        
        if ~(get(hObject,'value'))
            break
        end
        pause(0.01);
    end
else
    set(hObject,'string','Pause');
end
set(hObject,'value',0);
set(hObject,'string','Pause');

function editTime_Callback(hObject, eventdata, handles)
% hObject    handle to editTime (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of editTime as text
%        str2double(get(hObject,'String')) returns contents of editTime as a double


% --- Executes during object creation, after setting all properties.
function editTime_CreateFcn(hObject, eventdata, handles)
% hObject    handle to editTime (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end




% --- Executes on slider movement.
function sldFrame_Callback(hObject, eventdata, handles)
% hObject    handle to sldFrame (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'Value') returns position of slider
%        get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% 

recorded_data = handles.outdata;
cnt = round(get(handles.sldFrame,'value'));
set(handles.sldFrame,'value',cnt)

axes(handles.axes1);
subimage(recorded_data.image(:,:,:,cnt));
axes(handles.axes2);
St = edge(rgb2gray(recorded_data.image(:,:,:,cnt)));
subimage(St);
set(handles.editTime2,'string',recorded_data.time{cnt});
set(handles.txtCurrent,'string',cnt);







% --- Executes during object creation, after setting all properties.
function sldFrame_CreateFcn(hObject, eventdata, handles)
% hObject    handle to sldFrame (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: slider controls usually have a light gray background, change
%       'usewhitebg' to 0 to use default.  See ISPC and COMPUTER.
usewhitebg = 1;
if usewhitebg
    set(hObject,'BackgroundColor',[.9 .9 .9]);
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end





function editTime2_Callback(hObject, eventdata, handles)
% hObject    handle to editTime2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of editTime2 as text
%        str2double(get(hObject,'String')) returns contents of editTime2 as a double


% --- Executes during object creation, after setting all properties.
function editTime2_CreateFcn(hObject, eventdata, handles)
% hObject    handle to editTime2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end





function editSnapCnt_Callback(hObject, eventdata, handles)
% hObject    handle to editSnapCnt (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of editSnapCnt as text
%        str2double(get(hObject,'String')) returns contents of editSnapCnt as a double


% --- Executes during object creation, after setting all properties.
function editSnapCnt_CreateFcn(hObject, eventdata, handles)
% hObject    handle to editSnapCnt (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end


function Monitor_Mode(hObject, eventdata, handles)
set(handles.pbStart,'enable','on');
set(handles.pbStop,'enable','off');
set(handles.pbPlay,'enable','off');
set(handles.sldFrame,'enable','off');
set(handles.txtMin,'enable','off');
set(handles.txtMax,'enable','off');
set(handles.txtCurrent,'enable','off');

function PlayBack_Mode(hObject, eventdata, handles)
set(handles.pbStart,'enable','off');
set(handles.pbStop,'enable','off');
set(handles.pbPlay,'enable','on');
set(handles.sldFrame,'enable','on');
set(handles.txtMin,'enable','on');
set(handles.txtMax,'enable','on');
set(handles.txtCurrent,'enable','on');


% % --------------------------------------------------------------------
% function modeSelect_SelectionChangeFcn(hObject, eventdata, handles)
% % hObject    handle to modeSelect (see GCBO)
% % eventdata  reserved - to be defined in a future version of MATLAB
% % handles    structure with handles and user data (see GUIDATA)
% if get(handles.radioMonitor,'Value')==1
%     Monitor_Mode(hObject, eventdata, handles);
% else
%     PlayBack_Mode(hObject, eventdata, handles);
% end



% --- Executes on button press in radioMonitor.
function radioMonitor_Callback(hObject, eventdata, handles)
% hObject    handle to radioMonitor (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radioMonitor

selected_mode = 1;
set(hObject,'value',selected_mode);
set(handles.radioPlayBack,'value',~selected_mode);
Monitor_Mode(hObject, eventdata, handles);


% --- Executes on button press in radioPlayBack.
function radioPlayBack_Callback(hObject, eventdata, handles)
% hObject    handle to radioPlayBack (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radioPlayBack
selected_mode = 1;
set(hObject,'value',selected_mode);
set(handles.radioMonitor,'value',~selected_mode);

recorded_data = handles.outdata;
sz = size(recorded_data.image);
frm_num = sz(4);

set(handles.sldFrame,'min',1);
set(handles.sldFrame,'max',frm_num);
set(handles.sldFrame,'SliderStep',[1/frm_num 5/frm_num]);
set(handles.txtMin,'string',1);
set(handles.txtMax,'string',frm_num);

set(handles.sldFrame,'value',1);
PlayBack_Mode(hObject, eventdata, handles);