Matlab Camera dan Capture For lp2maray

ABSENSI MATLAB AUTO CAPTURE

% --- Executes on button press in btnZOOM.
function btnZOOM_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
I = get(proyek.axes1,'Userdata');
%J = imresize(I, 2, 'nearest');
J = imresize(I, [512 NaN]);
set(proyek.proyekPD2,'CurrentAxes',proyek.axes2);
imshow(J);
figure, imshow(I), figure, imshow(J)




% --- Executes on button press in btnCrop.
function btnCrop_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
I = get(proyek.axes1,'Userdata');
set(proyek.proyekPD2,'CurrentAxes',proyek.axes2);
imshow(I);
im=I;
f = imfreehand();
mask = f.createMask();
mask = repmat(mask,[1 1 3]);
im(~mask) = 0;
    set(imshow(im)); 
    set(proyek.axes2,'Userdata',im);
    [ps]=['Crop gambar selesai'];
    h = msgbox(ps, 'CROP','Help');% ICON:Warn Help Error

% --- Executes on button press in btnBrowse.
function btnBrowse_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
[proyek.namafile,proyek.direktori]=uigetfile({'*.bmp;*.jpg','file citra(*.bmp,*.jpg)';'*.bmp','file bitmap(*.bmp)';'*.jpg','file jpg(*.jpg)';'*.*','semua file(*.*)'},'buka file citra host/asli');
I=imread(fullfile(proyek.direktori,proyek.namafile));
  
if ~isequal(proyek.namafile, 0)
    set(proyek.proyekPD2,'CurrentAxes',proyek.axes1);
    set(imshow(I)); 
    set(proyek.axes1,'Userdata',I);
    [ps]=['Load gambar ' proyek.namafile ' berhasil'];
    h = msgbox(ps, 'Load','Help');% ICON:Warn Help Error
else
    return;
end


% --- Executes on button press in btnClearBG.
function btnClearBG_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
I = get(proyek.axes1,'Userdata');
%%%%%%%hilangkan bground
H = fspecial('gaussian'); % Create the filter kernel.
I = imfilter(I,H); % Blur the image.
Mask = im2bw(I, 0.9); % Now we are generating the binary mask.
I([Mask, Mask, Mask]) = 0; % Now we have the image.
%%%%%%%%%%%%%%%%%%%%%%%%%
set(proyek.proyekPD2,'CurrentAxes',proyek.axes1);
imshow(I);
set(proyek.axes1,'Userdata',I);
msgbox('u CROP : Silakan drag di area yang diinginkan..','OK','Crop',I,[]);


% --- Executes on button press in btnCROPRect.
function btnCROPRect_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
I = get(proyek.axes1,'Userdata');
set(proyek.proyekPD2,'CurrentAxes',proyek.axes2);
imshow(I);
[im,rect] = imcrop(I);
    set(imshow(im)); 
    set(proyek.axes2,'Userdata',im);
    [ps]=['Crop gambar By Rectangle selesai'];
    h = msgbox(ps, 'CROP RECT','Help');% ICON:Warn Help Error


% --- Executes on button press in myBtnReset.
function myBtnReset_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
mau=questdlg(['Reset ' get(proyek.proyekPD2,'Name')''],['Anda ingin Reset  Aplikasi ini?'],'Ya','Tidak','Ya');
if strcmp(mau,'Tidak')
return;
else
    arrayfun(@cla,findall(0,'type','axes'))
    hm = msgbox('Reset','Reset Sukses','help');
end


% --- Executes on button press in btnCamera.
function btnCamera_Callback(hObject, eventdata, handles)
%   InstalledAdaptors: {'coreco'  'winvideo'}
%         MATLABVersion: '7.10 (R2010a)'
%           ToolboxName: 'Image Acquisition Toolbox'
%        ToolboxVersion: '3.5 (R2010a)'
%obj = videoinput('matrox', 1);
proyek=guidata(gcbo);
%vid = videoinput('winvideo',2, 'YUY2_176x144');
vid=videoinput('winvideo', 1);
vid.FramesPerTrigger = 1;
vid.ReturnedColorspace = 'rgb';
triggerconfig(vid, 'manual');
vidRes = get(vid, 'VideoResolution');
imWidth = vidRes(1);
imHeight = vidRes(2);
nBands = get(vid, 'NumberOfBands');
hImage = image(zeros(imHeight, imWidth, nBands), 'parent', proyek.axes1);
preview(vid, hImage);
set(proyek.axes1,'Userdata',vid);
start(vid);
pause(1);
trigger(vid);
stoppreview(vid);
I = getdata(vid);
FDetect = vision.CascadeObjectDetector;

BB = step(FDetect,I);
imshow(I);
hold on
for i = 1:size(BB,1)
    BB(i,:)
    rectangle('Position',BB(i,:),'LineWidth',5,'LineStyle','-','EdgeColor','r');
end
% 107    77   130   130
I = imcrop(I,BB);
I=imresize(I,[256 256]);
set(handles.proyekPD2,'CurrentAxes',handles.axes1);
hold off;
imshow(I);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%OK
TrainDatabasePath = 'TrainDatabase\';%uigetdir(strcat(matlabroot,'\work'), 'Select training database path' )
TestDatabasePath ='TestDatabase\';% uigetdir(strcat(matlabroot,'\work'), 'Select test database path')

% prompt = {'Enter test image name (a number between 1 to 10):'};
% dlg_title = 'Input of FLD-Based Face Recognition System';
% num_lines= 1;
% def = {'1'};
%
% TestImage  = inputdlg(prompt,dlg_title,num_lines,def);
% TestImage = strcat(TestDatabasePath,'\',char(TestImage),'.jpg');
TestImage=I;
im = I;%imread(TestImage);
%200x180x3            108000  uint8
%53         90   131   131
%I          132x132x3            52272  uint8  
 
T = CreateDatabase(TrainDatabasePath);
[m V_PCA V_Fisher ProjectedImages_Fisher] = FisherfaceCore(T);
OutputName = Recognition(TestImage, m, V_PCA, V_Fisher, ProjectedImages_Fisher);

SelectedImage = strcat(TrainDatabasePath,'\',OutputName);
SelectedImage = imread(SelectedImage);

imshow(SelectedImage)
str = strcat('Matched image is :  ',OutputName);
set(handles.edNis,'String',OutputName);
disp(str)







% --- Executes on button press in btnCapture.
function btnCapture_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
vid= get(proyek.axes1,'Userdata');
disp('============');
whos vid
start(vid);
pause(3);
trigger(vid);
stoppreview(vid);
I = getdata(vid);
imwrite(I, 'captured.png');
warndlg('Capture berhasil....!');
set(imshow(I));       
set(proyek.axes1,'Userdata',I);


% --- Executes on button press in btnSave.
function btnSave_Callback(hObject, eventdata, handles)
% proyek=guidata(gcbo);
% counter  = 1;
% img=  get(proyek.axes1,'Userdata');
% baseDir  = '';%'C:\Users\Sony Vaio\Documents\Task\images\';
% baseName = 'image_';
% newName  = [baseDir baseName num2str(counter) '.jpg'];
% while exist(newName,'file')
%     counter = counter + 1;
%     newName = [baseDir baseName num2str(counter) '.jpg'];
% end   
% imwrite(img, newName);
[handles.namafile,handles.direktori]=uiputfile({'*.bmp;*.jpg','file citra(*.bmp,*.jpg)';'*.bmp','file bitmap(*.bmp)';'*.jpg','file jpg(*.jpg)';'*.*','semua file(*.*)'},'simpan file citra');
al=fullfile(handles.direktori,handles.namafile)

I=get(handles.axes1,'Userdata');
gbr=imresize(I,[256 256]);
imwrite(gbr,al);
msgbox(['The new image @ ' handles.direktori '\'  handles.namafile ' has Succesfully to Save']);


% --- Executes on button press in btnClose.
function btnClose_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
mau=questdlg(['Keluar ' get(proyek.aplikasi,'Name')''],['Anda ingin Keluar dari Aplikasi ini?'],'Ya','Tidak','Ya');
if strcmp(mau,'Tidak')
return;
end
delete(proyek.aplikasi);


% --- Executes on button press in BTNaUTO.
function BTNaUTO_Callback(hObject, eventdata, handles)
FDetect = vision.CascadeObjectDetector;
I = get(handles.axes1,'Userdata');
BB = step(FDetect,I);
imshow(I);
hold on
for i = 1:size(BB,1)
    rectangle('Position',BB(i,:),'LineWidth',5,'LineStyle','-','EdgeColor','r');
end
hold off;

function btnLoad_Callback(hObject, eventdata, handles)
proyek=guidata(gcbo);
[handles.namafile,handles.direktori]=uigetfile({'*.bmp;*.jpg','file citra(*.bmp,*.jpg)';'*.bmp','file bitmap(*.bmp)';'*.jpg','file jpg(*.jpg)';'*.*','semua file(*.*)'},'buka file citra host/asli');
I=imread(fullfile(handles.direktori,handles.namafile));
FDetect = vision.CascadeObjectDetector;

BB = step(FDetect,I);
imshow(I);
hold on
for i = 1:size(BB,1)
    BB(i,:)
    rectangle('Position',BB(i,:),'LineWidth',5,'LineStyle','-','EdgeColor','r');
end
% 107    77   130   130
I = imcrop(I,BB);
set(handles.proyekPD2,'CurrentAxes',handles.axes1);
hold off;
imshow(I);
set(handles.axes1,'Userdata',I);




uhh pusing.....lbh mendalam lg......lp2maray.com ya u pembahasannya