calcunitu(varargin)

function varargout = calcunitu(varargin)
% CALCUNITU Application M-file for calcunitu.fig
%    FIG = CALCUNITU launch calcunitu GUI.
%    CALCUNITU('callback_name', ...) invoke the named callback.

% Last Modified by GUIDE v2.0 08-Jun-2005 10:40:30

if nargin == 0  % LAUNCH GUI

	fig = openfig(mfilename,'reuse');

	% Use system color scheme for figure:
	set(fig,'Color',get(0,'defaultUicontrolBackgroundColor'));

	% Generate a structure of handles to pass to callbacks, and store it. 
	handles = guihandles(fig);
    handles.operation = 0 ;
	guidata(fig, handles);
	if nargout > 0
		varargout{1} = fig;
	end

elseif ischar(varargin{1}) % INVOKE NAMED SUBFUNCTION OR CALLBACK

	try
		if (nargout)
			[varargout{1:nargout}] = feval(varargin{:}); % FEVAL switchyard
		else
			feval(varargin{:}); % FEVAL switchyard
		end
	catch
		disp(lasterr);
	end

end


%| ABOUT CALLBACKS:
%| GUIDE automatically appends subfunction prototypes to this file, and 
%| sets objects' callback properties to call them through the FEVAL 
%| switchyard above. This comment describes that mechanism.
%|
%| Each callback subfunction declaration has the following form:
%| <SUBFUNCTION_NAME>(H, EVENTDATA, HANDLES, VARARGIN)
%|
%| The subfunction name is composed using the object's Tag and the 
%| callback type separated by '_', e.g. 'slider2_Callback',
%| 'figure1_CloseRequestFcn', 'axis1_ButtondownFcn'.
%|
%| H is the callback object's handle (obtained using GCBO).
%|
%| EVENTDATA is empty, but reserved for future use.
%|
%| HANDLES is a structure containing handles of components in GUI using
%| tags as fieldnames, e.g. handles.figure1, handles.slider2. This
%| structure is created at GUI startup using GUIHANDLES and stored in
%| the figure's application data using GUIDATA. A copy of the structure
%| is passed to each callback.  You can store additional information in
%| this structure at GUI startup, and you can change the structure
%| during callbacks.  Call guidata(h, handles) after changing your
%| copy to replace the stored original so that subsequent callbacks see
%| the updates. Type "help guihandles" and "help guidata" for more
%| information.
%|
%| VARARGIN contains any extra arguments you have passed to the
%| callback. Specify the extra arguments by editing the callback
%| property in the inspector. By default, GUIDE sets the property to:
%| <MFILENAME>('<SUBFUNCTION_NAME>', gcbo, [], guidata(gcbo))
%| Add any extra arguments after the last argument, before the final
%| closing parenthesis.



% --------------------------------------------------------------------
function varargout = btn0_Callback(h, eventdata, handles, varargin)
handles.number = 0;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;

% --------------------------------------------------------------------
function varargout = btn1_Callback(h, eventdata, handles, varargin)
handles.number = 1;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;


% --------------------------------------------------------------------
function varargout = btn4_Callback(h, eventdata, handles, varargin)
handles.number = 4;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;


% --------------------------------------------------------------------
function varargout = btn5_Callback(h, eventdata, handles, varargin)
handles.number = 5;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;


% --------------------------------------------------------------------
function varargout = btn7_Callback(h, eventdata, handles, varargin)
handles.number = 7;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;


% --------------------------------------------------------------------
function varargout = btn8_Callback(h, eventdata, handles, varargin)
handles.number = 8;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;

% --------------------------------------------------------------------
function varargout = btn2_Callback(h, eventdata, handles, varargin)
handles.number = 2;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;

% --------------------------------------------------------------------
function varargout = btn9_Callback(h, eventdata, handles, varargin)
handles.number = 9;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;


% --------------------------------------------------------------------
function varargout = btn6_Callback(h, eventdata, handles, varargin)
handles.number = 6;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;




% --------------------------------------------------------------------
function varargout = btn3_Callback(h, eventdata, handles, varargin)
handles.number = 3;
guidata(gcbo, handles) ;
dooperation(handles);
set(handles.dispval, 'String', num2str(handles.number)) ;

% --------------------------------------------------------------------
function varargout = plus_Callback(h, eventdata, handles, varargin)
handles.operation=1;
guidata(gcbo, handles) ;
set(handles.dispval, 'String', num2str(handles.result)) ;



% --------------------------------------------------------------------
function varargout = minus_Callback(h, eventdata, handles, varargin)
handles.operation = 2 ;
guidata(gcbo, handles) ;
set(handles.dispval, 'String', num2str(handles.result)) ;



% --------------------------------------------------------------------
function varargout = clr_Callback(h, eventdata, handles, varargin)
handles.number =0 ;
handles.result = 0 ;
handles.operation = 0 ;
guidata(gcbo, handles) ;
set(handles.dispval, 'String', num2str(handles.result)) ;

% --------------------------------------------------------------------
function varargout = enter_Callback(h, eventdata, handles, varargin)
set(handles.dispval, 'String', num2str(handles.result)) ;
handles.number =0 ;
handles.result = 0 ;
handles.operation = 0 ;
guidata(gcbo, handles) ;

% --------------------------------------------------------------------
function varargout = dispval_Callback(h, eventdata, handles, varargin)


% --------------------------------------------------------------------
function dooperation(handles)
switch handles.operation
    case 0
        handles.result = handles.number ;    
    case 1
        handles.result = handles.result + handles.number ;
    case 2
        handles.result = handles.result - handles.number;
    otherwise
        ;
end
guidata(gcbo, handles) ;