image thumbnail
from A Multiple Units Converter and a Calculator by Hong Zhang
It contains a units converter and a caculator using pure m files

jishuanqi.m
h0=figure('menubar','none',...
    'color',[1 1 1],...
    'position',[740 200 540 320],...
    'name','calculator by CaoZisheng, published on: www.iLoveMatlab.cn');
b0=uicontrol('parent',h0,...
    'units','points',...
    'tag','b0',...
    'style','pushbutton',...
    'string','0',...
    'fontsize',12,...
    'position',[220 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=get(e2,''string'');',...
    'kn=[kn,''0''];,',...
    'set(e2,''string'',kn);,',...
    ]);
b15=uicontrol('parent',h0,...
    'units','points',...
    'tag','b15',...
    'style','pushbutton',...
    'string','=',...
    'fontsize',12,...
    'position',[340 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=get(e2,''string'');,',...
    'm=str2num(kn);',...
    'set(e1,''string'',num2str(m));,',...
    'kn='''';']);
b11=uicontrol('parent',h0,...
    'units','points',...
    'tag','b11',...
    'style','pushbutton',...
    'string','+',...
    'fontsize',12,...
    'position',[300 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''+''];',...
    'set(e2,''string'',kn);',...
    ]);
b16=uicontrol('parent',h0,...
    'units','points',...
    'tag','b16',...
    'style','pushbutton',...
    'string','.',...
    'fontsize',12,...
    'position',[260 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''.''];',...
    'set(e2,''string'',kn);']);
b1=uicontrol('parent',h0,...
    'units','points',...
    'tag','b1',...
    'style','pushbutton',...
    'string','1',...
    'fontsize',12,...
    'position',[220 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''1''];',...
    'set(e2,''string'',kn);']);
b2=uicontrol('parent',h0,...
    'units','points',...
    'tag','b2',...
    'style','pushbutton',...
    'string','2',...
    'fontsize',12,...
    'position',[260 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''2''];',...
    'set(e2,''string'',kn);']);
b3=uicontrol('parent',h0,...
    'units','points',...
    'tag','b3',...
    'style','pushbutton',...
    'string','3',...
    'fontsize',12,...
    'position',[300 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''3''];',...
    'set(e2,''string'',kn);']);
b14=uicontrol('parent',h0,...
    'units','points',...
    'tag','b14',...
    'style','pushbutton',...
    'string','/',...
    'fontsize',12,...
    'position',[340 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''/''];',...
    'set(e2,''string'',kn);']);
b4=uicontrol('parent',h0,...
    'units','points',...
    'tag','b4',...
    'style','pushbutton',...
    'string','4',...
    'fontsize',12,...
    'position',[220 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''4''];',...
    'set(e2,''string'',kn);']);
b5=uicontrol('parent',h0,...
    'units','points',...
    'tag','b5',...
    'style','pushbutton',...
    'string','5',...
    'fontsize',12,...
    'position',[260 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''5''];',...
    'set(e2,''string'',kn);']);
b6=uicontrol('parent',h0,...
    'units','points',...
    'tag','b6',...
    'style','pushbutton',...
    'string','6',...
    'fontsize',12,...
    'position',[300 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''6''];',...
    'set(e2,''string'',kn);']);
b13=uicontrol('parent',h0,...
    'units','points',...
    'tag','b13',...
    'style','pushbutton',...
    'string','*',...
    'fontsize',12,...
    'position',[340 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''*''];',...
    'set(e2,''string'',kn);']);
b7=uicontrol('parent',h0,...
    'units','points',...
    'tag','b7',...
    'style','pushbutton',...
    'string','7',...
    'fontsize',12,...
    'position',[220 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''7''];',...
    'set(e2,''string'',kn);']);
b8=uicontrol('parent',h0,...
    'units','points',...
    'tag','b8',...
    'style','pushbutton',...
    'string','8',...
    'fontsize',12,...
    'position',[260 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''8''];',...
    'set(e2,''string'',kn);']);
b9=uicontrol('parent',h0,...
    'units','points',...
    'tag','b9',...
    'style','pushbutton',...
    'string','9',...
    'fontsize',12,...
    'position',[300 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''9''];',...
    'set(e2,''string'',kn);']);
b12=uicontrol('parent',h0,...
    'units','points',...
    'tag','b12',...
    'style','pushbutton',...
    'string','-',...
    'fontsize',12,...
    'position',[340 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''-''];',...
    'set(e2,''string'',kn);']);
b16=uicontrol('units','points',...
    'style','pushbutton',...
    'string','Backspace',...
    'fontsize',12,...
    'position',[260 140 70 25],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'n=length(kn);',...
    'if n==0,',...
    'set(e2,''string'','''');',...
    'else kn(n)='''';',...
    'set(e2,''string'',kn);',...
    'end;']);

b17=uicontrol('units','points',...
    'style','pushbutton',...
    'string','C',...
    'fontsize',12,...
    'position',[330 140 40 25],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=get(e2,''string'');',...
    'kn='''';',...
    'set(e2,''string'',kn);',...
    'm=get(e1,''string'');',...
    'm=''0'';',...
    'set(e1,''string'',m);',...
    ]);
b18=uicontrol('parent',h0,...
    'units','points',...
    'tag','b18',...
    'style','pushbutton',...
    'string','(',...
    'fontsize',12,...
    'position',[120 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''(''];',...
    'set(e2,''string'',kn);']);
b19=uicontrol('parent',h0,...
    'units','points',...
    'tag','b19',...
    'style','pushbutton',...
    'string',')',...
    'fontsize',12,...
    'position',[160 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,'')''];',...
    'set(e2,''string'',kn);']);
b20=uicontrol('parent',h0,...
    'units','points',...
    'tag','b20',...
    'style','pushbutton',...
    'string','sin',...
    'fontsize',12,...
    'position',[160 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''sin(''];',...
    'set(e2,''string'',kn);']);
b21=uicontrol('parent',h0,...
    'units','points',...
    'tag','b21',...
    'style','pushbutton',...
    'string','cos',...
    'fontsize',12,...
    'position',[160 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''cos(''];',...
    'set(e2,''string'',kn);']);
b22=uicontrol('parent',h0,...
    'units','points',...
    'tag','b22',...
    'style','pushbutton',...
    'string','tan',...
    'fontsize',12,...
    'position',[120 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''tan(''];',...
    'set(e2,''string'',kn);']);
b23=uicontrol('parent',h0,...
    'units','points',...
    'tag','b23',...
    'style','pushbutton',...
    'string','pi',...
    'fontsize',12,...
    'position',[120 140 30 25],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''pi''];',...
    'set(e2,''string'',kn);']);
b24=uicontrol('parent',h0,...
    'units','points',...
    'tag','b24',...
    'style','pushbutton',...
    'string','x^y',...
    'fontsize',12,...
    'position',[40 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''^''];',...
    'set(e2,''string'',kn);']);
b25=uicontrol('parent',h0,...
    'units','points',...
    'tag','b25',...
    'style','pushbutton',...
    'string','1/x',...
    'fontsize',12,...
    'position',[40 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[''1/'',kn];',...
    'm=str2num(kn);',...
    'set(e2,''string'',kn);',...
    'set(e1,''string'',num2str(m));',...
    'kn='''';']);
b26=uicontrol('parent',h0,...
    'units','points',...
    'tag','b26',...
    'style','pushbutton',...
    'string','ans',...
    'fontsize',12,...
    'position',[160 140 30 25],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=num2str(m);',...
    'set(e2,''string'',''ans'');',...
    ]);
b27=uicontrol('parent',h0,...
    'units','points',...
    'tag','b27',...
    'style','pushbutton',...
    'string','10^x',...
    'fontsize',12,...
    'position',[80 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''10^''];',...
    'set(e2,''string'',kn);',...
    ]);
b28=uicontrol('parent',h0,...
    'units','points',...
    'tag','b28',...
    'style','pushbutton',...
    'string','000',...
    'fontsize',12,...
    'position',[80 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''000''];',...
    'set(e2,''string'',kn);',...
    ]);
b29=uicontrol('parent',h0,...
    'units','points',...
    'tag','b29',...
    'style','pushbutton',...
    'string','x^2',...
    'fontsize',12,...
    'position',[80 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''^2''];',...
    'm=str2num(kn);',...
    'set(e1,''string'',num2str(m));',...
    'set(e2,''string'',kn);',...
    'kn='''';',...
    ]);
b30=uicontrol('parent',h0,...
    'units','points',...
    'tag','b30',...
    'style','pushbutton',...
    'string','x^3',...
    'fontsize',12,...
    'position',[80 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''^3''];',...
    'm=str2num(kn);',...
    'set(e1,''string'',num2str(m));',...
    'set(e2,''string'',kn);',...
    'k='''';',...
    ]);
b31=uicontrol('parent',h0,...
    'units','points',...
    'tag','b31',...
    'style','pushbutton',...
    'string','ln',...
    'fontsize',12,...
    'position',[80 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=''log('';',...
    'set(e2,''string'',kn);',...
    ]);
b32=uicontrol('parent',h0,...
    'units','points',...
    'tag','b32',...
    'style','pushbutton',...
    'string','exp',...
    'fontsize',12,...
    'position',[40 105 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''exp(''];',...
    'set(e2,''string'',kn);',...
    ]);
b33=uicontrol('parent',h0,...
    'units','points',...
    'tag','b33',...
    'style','pushbutton',...
    'string','̣',...
    'fontsize',10,...
    'position',[40 75 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''^0.5''];',...
    'set(e2,''string'',kn);',...
    'm=str2num(kn);',...
    'set(e1,''string'',num2str(m));',...
    ]);
b34=uicontrol('parent',h0,...
    'units','points',...
    'tag','b34',...
    'style','pushbutton',...
    'string','asin',...
    'fontsize',12,...
    'position',[120 45 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''asin(''];',...
    'set(e2,''string'',kn);',...
    ]);
b35=uicontrol('parent',h0,...
    'units','points',...
    'tag','b35',...
    'style','pushbutton',...
    'string','acos',...
    'fontsize',12,...
    'position',[120 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''acos(''];',...
    'set(e2,''string'',kn);',...
    ]);
b36=uicontrol('parent',h0,...
    'units','points',...
    'tag','b23',...
    'style','pushbutton',...
    'string','atan',...
    'fontsize',12,...
    'position',[160 15 30 20],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
    'kn=[kn,''atan(''];',...
    'set(e2,''string'',kn);']);
b37=uicontrol('parent',h0,'units','points',...
    'style','pushbutton',...
    'string','Close',...
    'FontSize',12,...
    'position',[40 140 70 25],...   
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback','close');
b38=uicontrol(gcf,'units','points',...
    'style','text',...
    'string','Developed by CaoZisheng, published on: www.iLoveMatlab.cn',...
    'FontSize',10,...
    'position',[40 5 320 10]);

e1=uicontrol('parent',h0,...
    'units','points',...
    'tag','e1',...
    'style','edit',...
    'horizontalalignment','right',...
    'fontsize',12,...
    'string','0',...
    'position',[45 175 320 20],...
    'backgroundcolor',[1 1 1]);
e2=uicontrol('parent',h0,...
    'units','points',...
    'tag','e1',...
    'style','edit',...
    'horizontalalignment','right',...
    'fontsize',12,...
    'string','',...
    'position',[45 205 320 20],...
    'backgroundcolor',[1 1 1],...
    'callback',[...
    'kn=get(e2,''string'');',...
    'm=str2num(kn);',...
    'm=num2str(m);',...
    'set(e1,''string'',m);',...
    ]);
kn='';

Contact us at files@mathworks.com