unit_conversion.m

来自「一个用MATLAB实现的单位转换程序」· M 代码 · 共 114 行

% h1=figure('toolbar','none',...
%     'position',[400 60 420 440],...
%     'name','单位转换');
clc;
h0=figure('toolbar','none',...
    'position',[400 60 420 440],...
    'name','长度单位转换');
e2=uicontrol('parent',h0,...
    'units','points',...
    'tag','e2',...
    'style','edit',...
    'horizontalalignment','right',...
    'fontsize',12,...
    'position',[200 235 75 20],...
    'backgroundcolor',[1 1 1]);
e1=uicontrol('parent',h0,...
    'units','points',...
    'tag','e1',...
    'style','edit',...
    'horizontalalignment','right',...
    'fontsize',12,...
    'position',[50 235 75 20],...
    'backgroundcolor',[1 1 1]);
t1=uicontrol('parent',h0,...
    'units','points',...
    'tag','t1',...
    'style','text',...
    'string','转换结果：',...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[200 255 75 20],...
    'fontsize',12,...
    'horizontalalignment','center');
t2=uicontrol('parent',h0,...
    'units','points',...
    'tag','t2',...
    'style','text',...
    'string','输入数据：',...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[50 255 75 20],...
    'fontsize',12,...
    'horizontalalignment','center');
b0=uicontrol('parent',h0,...
    'units','points',...
    'tag','b0',...
    'style','pushbutton',...
    'string','英寸/毫米',...
    'fontsize',12,...
    'position',[50 170 60 30],...
    'backgroundcolor',[0.75 0.75 0.75],...
     'callback',[...
        'k=get(e1,''string'');,',...
        'k2=str2num(k);,',...
        'bk=k2*25.4;,',...
        'set(e2,''string'',num2str(bk));']);
b1=uicontrol('parent',h0,...
    'units','points',...
    'tag','b1',...
    'style','pushbutton',...
    'string','英尺/米',...
    'fontsize',12,...
    'position',[200 170 60 30],...
    'backgroundcolor',[0.75 0.75 0.75],...
     'callback',[...
        'k=get(e1,''string'');,',...
        'k2=str2num(k);,',...
        'bk=k2*0.3048;,',...
        'set(e2,''string'',num2str(bk));']);
b2=uicontrol('parent',h0,...
    'units','points',...
    'tag','b2',...
    'style','pushbutton',...
    'string','码/米',...
    'fontsize',12,...
    'position',[50 120 60 30],...
    'backgroundcolor',[0.75 0.75 0.75],...
   'callback',[...
        'k=get(e1,''string'');,',...
        'k2=str2num(k);,',...
        'bk=k2*0.9144;,',...
        'set(e2,''string'',num2str(bk));']);
 b3=uicontrol('parent',h0,...
    'units','points',...
    'tag','b3',...
    'style','pushbutton',...
    'string','英里/千米',...
    'fontsize',12,...
    'position',[200 120 60 30],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback',[...
        'k=get(e1,''string'');,',...
        'k2=str2num(k);,',...
        'bk=k2*1.609;,',...
        'set(e2,''string'',num2str(bk));']);
b11=uicontrol('parent',h0,...
    'units','points',...
    'tag','b11',...
    'style','pushbutton',...
    'string','关闭',...
    'fontsize',12,...
    'position',[200 50 60 30],...
    'backgroundcolor',[0.75 0.75 0.75],...
    'callback','close');
b12=uicontrol('parent',h0,...
    'units','points',...
    'tag','b12',...
    'style','pushbutton',...
    'string','清除',...
    'fontsize',12,...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[50 50 60 30],...
    'callback',[...
        'set(e1,''string'','''');,',...
        'set(e2,''string'','''');']);