Tugas Pengolahan Citra

Listing Program

function varargout = ich_hist0(varargin)

gui_Singleton = 1;

gui_State = struct('gui_Name', mfilename, ...

'gui_Singleton', gui_Singleton, ...

'gui_OpeningFcn', @ich_hist0_OpeningFcn, ...

'gui_OutputFcn', @ich_hist0_OutputFcn, ...

'gui_LayoutFcn', [] , ...

'gui_Callback', []);

if nargin & isstr(varargin{1})

gui_State.gui_Callback = str2func(varargin{1});

end

if nargout

[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});

else

gui_mainfcn(gui_State, varargin{:});

end

%end of initilialization code -- edited by ich

% --- Executes just before ich_hist0 is made visible.

function ich_hist0_OpeningFcn(hObject, eventdata, handles, varargin)

handles.output = hObject;

guidata(hObject, handles);

function varargout = ich_hist0_OutputFcn(hObject, eventdata, handles)

varargout{1} = handles.output;

% --- Executes on button press in Tombol_buka.

function Tombol_buka_Callback(hObject, eventdata, handles)

[nama_file1, nama_path1] = uigetfile(...

{'*.bmp;*.jpg','File Citra (*.bmp, *.jpg)';'*.bmp','File Bitmap (*.bmp)'; ...

'*.jpg','File Jpeg (*.jpg)';'*.*','Semua File (*.*)'},...

'Buka File Citra Host / Asli');

if ~isequal(nama_file1,0)

handles.data1=imread(fullfile(nama_path1,nama_file1));

guidata(hObject,handles);

handles.current_data1=handles.data1;

axes(handles.axes1);

imshow(handles.current_data1);

axes(handles.axes2);%membuat tresholding image

level = graythresh(handles.current_data1);

bw = im2bw(handles.current_data1,level);

imshow(bw);

axes(handles.axes3); %merotasikan 35cw

imrotate(handles.current_data1,35);

else

return;

end

set (handles.text2,'String',nama_file1);

set (handles.text5,'String',size(handles.data1,1));

set (handles.text6,'String',size(handles.data1,2));

% --- Executes on button press in Tombol_tutup.

function Tombol_tutup_Callback(hObject, eventdata, handles)

pos_size = get(handles.figure1,'Position');

user_response = questdlg('Apakah Kamu Mau Tutup','Confirm Close');

switch user_response

case {'No'}

case 'Yes'

delete(handles.figure1)

end

GUI FIG

Property inspectror :

NAMA KOMPONEN	STRING PROPERTY	TAG PROPERTY
Static Text 1	Sample citra 4ia03	Text1
Static Text 2	-	Text2
Static Text 3	Nama File :	Text3
Static Text 4	Ukuran :	Text4
Static Text 5	-	Text5
Static Text 6	-	Text6
Static Text 7	X	Text7
Static Text 8	Citra Asli	Text8
Static Text 9	Treshold	Text9
Static Text 10	Rotated	Text10
NAMA KOPMPONEN	XTick Property	YTick Property
Axes1	-	-
Axes2	-	-
Axes3	-	-
NAMA KOMPONEN	STRING PROPERTY	TAG PROPERTY
Pushbutton1	Buka File Citra	Tombol_buka
PushButton2	Tutup File Citra	Tombol_tutup

OUTPUT :