matlab GUI计算器设计

matlab GUI设计的计算器，可根据需要修改程序

function varargout = jisuanqi4（varargin）

gui_Singleton = 1;
gui_State = struct（‘gui_Name‘       mfilename ...
                   ‘gui_Singleton‘  gui_Singleton ...
                   ‘gui_OpeningFcn‘ @jisuanqi4_OpeningFcn ...
                   ‘gui_OutputFcn‘  @jisuanqi4_OutputFcn ...
                   ‘gui_LayoutFcn‘  []  ...
                   ‘gui_Callback‘   []）;
if nargin && ischar（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 initialization code - DO NOT EDIT


% --- Executes just before jisuanqi4 is made visible.
function jisuanqi4_OpeningFcn（hobject eventdata handles varargin）

handles.output = hobject;
javaframe = get（hobject‘Javaframe‘）;
javaframe.setFigureIcon（javax.swing.ImageIcon（‘icon1.jpg‘））;

global op
op=zeros（17）;
handles.exp=‘ ‘;

guidata（hobject handles）;

function varargout = jisuanqi4_OutputFcn（hobject eventdata handles） 
varargout{1} = handles.output;


% --- Executes on button press in num7.
function num7_Callback（hobject eventdata handles）
global op
m=‘7‘;
n=[m ‘.‘];
a=op;
str=get（handles.xianshi‘string‘）;
if ~a（5）%初始状态
    if （~a（1））&&（~a（2））
        set（handles.xianshi‘string‘n）
    else
        set（handles.xianshi‘string‘m）
    end
elseif （~a（1））&&（~a（2））   %计算状态%十进制
    if length（str）<20   %数的长度小于20
        if a（6）   %小数
            set（handles.xianshi‘string‘[str m]）
        else   %整数
            set（handles.xianshi‘string‘[str（1:end-1） n]）
        end
    end
elseif length（str）<20
    set（handles.xianshi‘string‘[str m]）
end
a（[3 5]）=[0 1];
op=a;

function num8_Callback（hobject eventdata handles）
global op
m=‘8‘;
n=[m ‘.‘];
a=op;
str=get（handles.xianshi‘string‘）;
if ~a（5）%初始状态
    if （~a（1））&&（~a（2））
        set（handles.xianshi‘string‘n）
    else
        set（handles.xianshi‘string‘m）
    end
elseif （~a（1））&&（~a（2））   %计算状态%十进制
    if length（str）<20   %数的长度小于20
        if a（6）   %小数
            set（handles.xianshi‘string‘[str m]）
        else   %整数
            set（handles.xianshi‘string‘[str（1:end-1） n]）
        end
    end
elseif length（str）<20 %计算状态、其他进制、长度小于20
    set（handles.xianshi‘string‘[str m]）
end
a（[3 5]）=[0 1];
op=a;

function num9_Callback（hobject eventdata handles）
global op
m=‘9‘;
n=[m ‘.‘];
a=op;
str=get（handles.xianshi‘string‘）;
if ~a（5）%初始状态
    if （~a（1））&&（~a（2））
        set（handles.xianshi‘string‘n）
    else
        set（handles.xianshi‘string‘m）
    end
elseif （~a（1））&&（~a（2））   %计算状态%十进制
    if length（str）<20   %数的长度小于20
        if a（6）   %小数
            set（handles.xianshi‘string‘[str m]）
        else   %整数
            set（handles.xianshi‘string‘[str（1:end-1） n]）
        end
    end
elseif length（str）<20 %计算状态、其他进制、长度小于20
    set（handles.xianshi‘string‘[str m]）
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2358  2008-12-22 09:29  例11.2\icon1.jpg

     文件      33221  2009-05-15 02:32  例11.2\jisuanqi4.asv

     文件       9468  2009-09-21 01:43  例11.2\jisuanqi4.fig

     文件      33221  2009-05-15 02:37  例11.2\jisuanqi4.m

     目录          0  2013-08-19 12:16  例11.2

----------- ---------  ---------- -----  ----

                78268                    5