jisuanqi.m

来自「gui小程序」· M 代码 · 共 66 行

figure('color',[0.8 0.9 0.6]);
set(gcf,'menubar',menubar);
h=uimenu(gcf,'label','作品信息');
h1=uimenu(h,'label','点击查看作品信息',...
    'callback','zuopinxinxi');
set(gcf,'defaultuicontrolfontsize',10)
set(gcf,'defaultuicontrolfontname','宋体');
str='计算器';
set(gcf,'name',str,'numbertitle','off')   
a=uicontrol(gcf,'Style','edit', ...
  'Units','normalized', ...
    'Position',[.05 .65,.4 .1], ...
   'horizontal','left',...
   'callback','z1=str2num(get(gcbo,''string''));');
b= uicontrol(gcf,'Style','text', ...
      'Units','normalized', ...
      'Position',[.2,.77,.1,.05], ...
      'String','请输入A');
  c=uicontrol(gcf,'Style','edit', ...
  'Units','normalized', ...
    'Position',[.55 .65,.4,.1], ...
   'horizontal','left','callback',...
   'z2=str2num(get(gcbo,''string''));');
d= uicontrol(gcf,'Style','text', ...
      'Units','normalized', ...
      'Position',[.7,.77,.1,.05], ...
      'String','请输入B');
  e=uicontrol(gcf,'Style','edit', ...
  'Units','normalized', ...
    'Position',[.25 .52,.5,.1], ...
   'horizontal','left');
f=uicontrol(gcf,'Style','text', ...
      'Units','normalized', ...
      'Position',[.4,.43,.15,.05],...
      'String','你看，答案！');
  g = uicontrol(gcf,'Style','pushbutton', ...
      'Units','normalized', ...
      'Position',[.1 .1 .15 .07], ...
      'String','给我算A+B')
  set(g,'callback','set(e,''string'',num2str(z1+z2))');
h= uicontrol(gcf,'Style','pushbutton', ...
      'Units','normalized', ...
      'Position',[.1 .2 .15 .07], ...
      'String','给我算A-B');
   set(h,'callback','set(e,''string'',num2str(z1-z2))');
i= uicontrol(gcf,'Style','pushbutton', ...
      'Units','normalized', ...
      'Position',[.1 .3 .15 .07], ...
      'String','给我算A*B');
   set(i,'callback','set(e,''string'',num2str(z1*z2))');
m= uicontrol(gcf,'Style','pushbutton', ...
      'Units','normalized', ...
      'Position',[.1 .4 .15 .07], ...
      'String','给我算A/B');
   set(m,'callback','set(e,''string'',num2str(z1/z2))');
set(e,'callback','')
k= uicontrol('Style','pushbutton', ...
      'Units','normalized', ...
      'Position',[.4 .3 .15 .07], ...
      'String','返回');
  set(k,'callback','close,zong')
  g= uicontrol('Style','pushbutton', ...
      'Units','normalized', ...
      'Position',[.4 .2 .15 .07], ...
      'String','关闭');
  set(g,'callback','close')