Matlab 版 (精华区)

发信人: Ustcer (山城棒棒儿军), 信区: Matlab
标  题: Re: [发布一个程序]显示当前时间的表
发信站: 哈工大紫丁香 (Fri Jun  4 23:40:46 2004), 转信

恩，不错不错
不过比较闪

我只加了一句
另外添了点儿避免关闭的时候显示出错信息的
看看现在的效果再试试

try
close all
hfig=figure;
set(hfig,'NumberTitle','off');
set(hfig,'name','显示当前时间的表');
set(hfig,'MenuBar','none');

set(hfig,'color',[0.5 0.7 0.3])
A=linspace(0,6.3,1000);
x1=8*cos(A);
y1=8*sin(A);
 
x2=7*cos(A);
y2=7*sin(A);
plot(x1,y1,'b','linewidth',1.4)
hold on
plot(x2,y2,'b','linewidth',3.5)
fill(0.4*cos(A),0.4*sin(A),'r');
axis off


axis([-10 10 -10 10])
axis equal
set(gca,'position',[[0.13 0.05 0.775 0.815]])
title(date,'fontsize',18)
for k=1:12;
    xk=9*cos(-2*pi/12*k+pi/2);
    yk=9*sin(-2*pi/12*k+pi/2);
    plot([xk/9*8 xk/9*7],[yk/9*8 yk/9*7],'color',[0.3 0.8 0.9])
%     if k
    h=text(xk,yk,num2str(k),'fontsize',16,'color',...
        [0.9 0.3 0.8],'HorizontalAlignment','center');
end
% 计算时针位置
ti=clock;
th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2;
xh3=4.0*cos(th);
yh3=4.0*sin(th);
xh2=xh3/2+0.5*cos(th-pi/2);
yh2=yh3/2+0.5*sin(th-pi/2);
xh4=xh3/2-0.5*cos(th-pi/2);
yh4=yh3/2-0.5*sin(th-pi/2);
hh=fill([0 xh2 xh3 xh4 0],[0 yh2 yh3 yh4 0],[0.6 0.5 0.3]);


% 计算分针位置
tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2;
xm3=6.0*cos(tm);
ym3=6.0*sin(tm);
xm2=xm3/2+0.5*cos(tm-pi/2);
ym2=ym3/2+0.5*sin(tm-pi/2);
xm4=xm3/2-0.5*cos(tm-pi/2);
ym4=ym3/2-0.5*sin(tm-pi/2);
hm=fill([0 xm2 xm3 xm4 0],[0 ym2 ym3 ym4 0],[0.6 0.5 0.3]);
% 计算秒针位置
ts=-(ti(6))/60*2*pi+pi/2;
hs=plot([0 7*cos(ts)],[0 7*sin(ts)],...
    'color',[0.6 0.5 0.3],'linewidth',3);
set(gcf,'doublebuffer','on');
k=1;
while k<6;
    ti=clock;
    % 计算时针位置
    th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2;
    xh3=4.0*cos(th);
    yh3=4.0*sin(th);
    xh2=xh3/2+0.5*cos(th-pi/2);
    yh2=yh3/2+0.5*sin(th-pi/2);


    xh4=xh3/2-0.5*cos(th-pi/2);
    yh4=yh3/2-0.5*sin(th-pi/2);
    set(hh,'XData',[0 xh2 xh3 xh4 0],'YData',[0 yh2 yh3 yh4 0])
 
    % 计算分针位置
    tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2;
    xm3=6.0*cos(tm);
    ym3=6.0*sin(tm);
    xm2=xm3/2+0.5*cos(tm-pi/2);
    ym2=ym3/2+0.5*sin(tm-pi/2);
    xm4=xm3/2-0.5*cos(tm-pi/2);
    ym4=ym3/2-0.5*sin(tm-pi/2);
    set(hm,'XData',[0 xm2 xm3 xm4 0],'YData',[0 ym2 ym3 ym4 0])
    % 计算秒针位置
    ts=-(ti(6))/60*2*pi+pi/2;
    set(hs,'XData',[0 7*cos(ts)],'YData',[0 7*sin(ts)])
    drawnow;
    pause(0.09)
end

catch
end
【 在 zjliu (秋天的萝卜) 的大作中提到: 】
: % 显示当前时间的表
: close all
: hfig=figure;
: ...................

--





http://www.cheunghoyee.com/bbs/uploadFace/242_200341416215150326.gif


※ 修改:·Ustcer 于 Jun  4 23:41:59 修改本文·[FROM: 210.45.123.136]
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 210.45.123.136]