calculator.m

来自「这是在MATLAB7.0.1版本上实现的一个简单的模拟计算器的界面和功能的程序」· M 代码 · 共 180 行

%把这两个文件复制到当前工作路径，运行Calculator即可。  ——中国地质大学（北京）
h=figure;
set(h,'menubar','none',...
    'units','normalized',...
    'position',[0.34 0.34 0.32 0.32],...
    'numbertitle','off',...
    'name','Calculator');
hm1=uimenu(h,'label','Edit(E)');
hm1m1=uimenu(hm1,'label',...
    'Copy','accelerator','C','tag','copy',...
    'callback','cofc');
hm1m2=uimenu(hm1,'label',...
    'Paste','accelerator', 'P','tag','paste',...
   'callback','cofc');
hm2=uimenu(h,'label','View(V)');
hm2m1=uimenu(hm2,'label','Statand','tag',...
    'copy','callback','cofc');
hm2m2=uimenu(hm2,'label','Sciencific','tag',...
    'paste','callback','cofc');
hm2m3=uimenu(hm2,'label','Digital','tag',...
    'paste','callback','cofc');
hm3=uimenu(h,'label','Help(H)');
hm3m1=uimenu(hm3,'label','Help Theme','tag',...
    'copy','callback','cofc');
hm3m2=uimenu(hm3,'label','About Calculator','tag',...
    'paste','callback','cofc');
% menu
he=uicontrol(h,'style','edit',...
    'units','normalized','tag','edit',...
    'position',[0.05 0.88 0.9 0.11],...
    'string','0.','horizontalalignment',...
    'right');
%line1
hbma=uicontrol(h,'style',...
    'pushbutton','string','M+',...
    'units','normalized','tag','m+',...
    'position',[0.03 0.05 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hb0=uicontrol(h,'style',...
    'pushbutton','string','0',...
    'units','normalized','tag','0',...
    'position',[0.205 0.05 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hbzf=uicontrol(h,'style',...
    'pushbutton','string','+/-',...
    'units','normalized','tag','+/-',...
    'position',[0.36 0.05 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hbd=uicontrol(h,'style',...
    'pushbutton','string','.',...
    'units','normalized','tag','.',...
    'position',[0.515 0.05 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hba=uicontrol(h,'style',...
    'pushbutton','string','+',...
    'units','normalized','tag','+',...
    'position',[0.67 0.05 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hbe=uicontrol(h,'style',...
    'pushbutton','string','=',...
    'units','normalized','tag','=',...
    'position',[0.825 0.05 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
%line 2
hbms=uicontrol(h,'style',...
    'pushbutton','string','MS',...
    'units','normalized','tag','ms',...
    'position',[0.03 0.19 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hb1=uicontrol(h,'style',...
    'pushbutton','string','1',...
    'units','normalized','tag','1',...
    'position',[0.205 0.19 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hb2=uicontrol(h,'style',...
    'pushbutton','string','2',...
    'units','normalized','tag','2',...
    'position',[0.36 0.19 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hb3=uicontrol(h,'style',...
    'pushbutton','string','3',...
    'units','normalized','tag','3',...
    'position',[0.515 0.19 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hbs=uicontrol(h,'style',...
    'pushbutton','string','-',...
    'units','normalized','tag','-',...
    'position',[0.67 0.19 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hbinv=uicontrol(h,'style',...
    'pushbutton','string','1/x',...
    'units','normalized','tag','1/x',...
    'position',[0.825 0.19 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
%line 3
hbmr=uicontrol(h,'style',...
    'pushbutton','string','MR',...
    'units','normalized','tag','mr',...
    'position',[0.03 0.33 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hb4=uicontrol(h,'style',...
    'pushbutton','string','4',...
    'units','normalized','tag','4',...
    'position',[0.205 0.33 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hb5=uicontrol(h,'style',...
    'pushbutton','string','5',...
    'units','normalized','tag','5',...
    'position',[0.36 0.33 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hb6=uicontrol(h,'style',...
    'pushbutton','string','6',...
    'units','normalized','tag','6',...
    'position',[0.515 0.33 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hbmul=uicontrol(h,'style',...
    'pushbutton','string','*',...
    'units','normalized','tag','*',...
    'position',[0.67 0.33 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hbper=uicontrol(h,'style',...
    'pushbutton','string','%',...
    'units','normalized','tag','%',...
    'position',[0.825 0.33 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
%line 4
hbmc=uicontrol(h,'style',...
    'pushbutton','string','MC',...
    'units','normalized','tag','mc',...
    'position',[0.03 0.47 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hb7=uicontrol(h,'style',...
    'pushbutton','string','7',...
    'units','normalized','tag','7',...
    'position',[0.205 0.47 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hb8=uicontrol(h,'style',...
    'pushbutton','string','8',...
    'units','normalized','tag','8',...
    'position',[0.36 0.47 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hb9=uicontrol(h,'style',...
    'pushbutton','string','9',...
    'units','normalized','tag','9',...
    'position',[0.515 0.47 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
hbdiv=uicontrol(h,'style',...
    'pushbutton','string','/',...
    'units','normalized','tag','/',...
    'position',[0.67 0.47 0.135 0.13],...
    'foregroundcolor','r','callback','cofc');
hbsqrt=uicontrol(h,'style',...
    'pushbutton','string','sqrt',...
    'units','normalized','tag','sqrt',...
    'position',[0.825 0.47 0.135 0.13],...
    'foregroundcolor','b','callback','cofc');
%line 5
hben=uicontrol(h,'style',...
    'edit','string','','enable','off',...
    'units','normalized',...
    'position',[0.05 0.64 0.10 0.13],...
    'foregroundcolor','b','callback','cofc');
hbBack=uicontrol(h,'style',...
    'pushbutton','string','Backspace',...
    'units','normalized','tag','Backspace',...
    'position',[0.205 0.64 0.24 0.13],...
    'foregroundcolor','r','callback','cofc');
hbce=uicontrol(h,'style',...
    'pushbutton','string','CE',...
    'units','normalized','tag','ce',...
    'position',[0.465 0.64 0.24 0.13],...
    'foregroundcolor','r','callback','cofc');
hbc=uicontrol(h,'style',...
    'pushbutton','string','C',...
    'units','normalized','tag','c',...
    'position',[0.725 0.64 0.24 0.13],...
    'foregroundcolor','r','callback','cofc');