matlab写的计数器

这是适于初学者掌握matlab深成次开发的一个很好的教学实例，很有参考价值

%-----------------------------------------------------------------%
%  这个函数是用来模拟windows计算器的
%  这是为薜定宇老师<<科学运算语言MATLAB5.3程序设计与应用>>的习题而做
%  版本:1.0
%  设计者:快乐逍遥侠 （ real_ghost ）
%  QQ:14564470
%  E-mail:slqinyi@163.net OR  real_ghost@tom.com
%  日期:2003年6月3日
%-------------------------------------------------------------------%

%-------------------------------------------------------------------%
%   MC MR MS M+ C等几个键的功能还没有设计
%   有空了再说吧
%-------------------------------------------------------------------%

function mcaculor（action）
if nargin==0
    action=‘initialization‘;
end
switch action
    case ‘initialization‘ %初始化界面
        main_win=figure（‘position‘[100200300350]‘name‘‘旋风计算器‘‘numbertitle‘‘off‘‘menubar‘‘none‘...
                        ‘resize‘‘off‘）;
        main_edit=uicontrol（‘style‘‘edit‘‘position‘[1030028025]‘backgroundcolor‘[111]‘string‘‘0‘...
                            ‘tag‘‘MAIN_EDIT‘‘horizontalalignment‘‘right‘‘fontsize‘12）;
        main_back=uicontrol（‘style‘‘pushbutton‘‘position‘[602507525]‘string‘‘BackSpace‘...
                            ‘callback‘‘mcaculor backspace‘‘tag‘‘MAIN_BACK‘）;
        main_CE=uicontrol（‘style‘‘pushbutton‘‘position‘[1382507525]‘string‘‘CE‘...
                          ‘tag‘‘MAIN_CE‘‘callback‘‘mcaculor ce‘）;
        main_C=uicontrol（‘style‘‘pushbutton‘‘position‘[2162507525]‘string‘‘C‘）;
        main_but7=uicontrol（‘style‘‘pushbutton‘‘position‘[602204525]‘string‘‘7‘...
                            ‘tag‘‘MAIN_BUT7‘‘callback‘‘mcaculor num7‘）;
        main_but8=uicontrol（‘style‘‘pushbutton‘‘position‘[1072204525]‘string‘‘8‘...
                            ‘tag‘‘MAIN_BUT8‘‘callback‘‘mcaculor num8‘）;
        main_but9=uicontrol（‘style‘‘pushbutton‘‘position‘[1542204525]‘string‘‘9‘...
                            ‘tag‘‘MAIN_BUT9‘‘callback‘‘mcaculor num9‘）;
        main_divd=uicontrol（‘style‘‘pushbutton‘‘position‘[2012204525]‘string‘‘/‘...
                            ‘tag‘‘MAIN_DIVD‘‘callback‘‘mcaculor divd‘）;
        main_sqrt=uicontrol（‘style‘‘pushbutton‘‘position‘[2482204525]‘string‘‘sqrt‘...
                            ‘tag‘‘MAIN_SQRT‘‘callback‘‘mcaculor msqrt‘）;
        main_but4=uicontrol（‘style‘‘pushbutton‘‘position‘[601934525]‘string‘‘4‘...
                            ‘tag‘‘MAIN_BUT4‘‘callback‘‘mcaculor num4‘）;
        main_but5=uicontrol（‘style‘‘pushbutton‘‘position‘[1071934525]‘string‘‘5‘...
                            ‘tag‘‘MAIN_BUT5‘‘callback‘‘mcaculor num5‘）;
        main_but6=uicontrol（‘style‘‘pushbutton‘‘position‘[1541934525]‘string‘‘6‘...
                            ‘tag‘‘MAIN_BUT6‘‘callback‘‘mcaculor num6‘）;
        main_time=uicontrol（‘style‘‘pushbutton‘‘position‘[2011934525]‘string‘‘*‘...
                            ‘tag‘‘MAIN_TIME‘‘callback‘‘mcaculor time‘）;
        main_pert=uicontrol（‘

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

     文件      31872  2003-06-27 21:30  mcaculor.m

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

                31872                    1