matlab做图形界面——日历

function CalendarTable;8 c# U1 t/ T6 }. M6 x! r$ g
% calendar 日历
- l' I8 r* @' z  C$ n% Example:9 V$ X& W) y3 d
%    CalendarTable;

S=datestr(now);3 b8 r9 F# N, U5 y
[y,m,d]=datevec(S);6 U& j9 a; l4 ?1 }' b% ]
% d is day
3 k4 }  l: m+ |8 J, i% m is month
( V  u9 H5 _1 f6 J% y is year
7 b% Q* @, a$ wDD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};
6 C6 m# h- u3 P# }' i% Mclose all
0 x0 ]5 L# g# X- B! w0 Z* W) i6 Z figure; %出现一个画图界面" b6 P* W) J+ P) M& v- Y& z, e, @$ S
for k=1:7;0 Z( Z8 W2 [; F# D1 i
   uicontrol(gcf,'style','text',...
5 B- T% |4 M) E" W# g0 k       'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...3 y' R+ J  z6 O8 ~- t3 S
       'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...0 a; f- [+ e6 a* S( e& N& v! {
       'String',DD(k),'fontsize',16,'fontname','times new roman');& s( \' l3 G( T/ I  i! W) d
end( G1 d& F" R/ m% g7 p
h=1;
0 @9 |6 D  r7 I/ }( A0 jss='b';
7 R" |2 N9 u+ m9 Oqq=eomday(y,m);% 获取该月天数
$ ~' G& X8 e! Z$ Q$ b8 ifor k=1:qq;
+ j! u* s; C2 n: a3 B  D; D   n=datenum(y,m,k);1 I+ ^4 O4 a9 y3 B/ g
   [da,w] = weekday(n);
6 j; H4 Q4 H/ Z2 q+ N   if k==d;
! Q( b3 D8 D3 Q4 X0 B/ |8 M       ss='r';
6 B) F! m3 E- }5 u" I! R4 T   end4 P7 M$ [# Q. o/ j9 q
   uicontrol(gcf,'style','push',...- X" {5 Z! u0 h8 X* G# d
       'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.18,0.06],...
7 r' a" V/ T+ l! D       'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
+ g' C, \5 u7 _1 Y: w       'String',num2str(k));
' C7 J! a9 N3 u  ?, V# y/ Z: e   ss='b';) h) \: k  {* w5 r2 k- A0 r
   if da==7;, Z7 c& F. V- o, K- k
       h=h+1;
6 E0 h- J1 C4 I2 C   end4 Z; B- |* I$ h1 [  o: s1 M0 ^
end4 D0 X3 [9 c/ A1 L' k, P! l) ]/ G
uicontrol(gcf,'style','push',...* w" J+ m9 s+ s. m7 x8 z
   'unit','normalized','position',[0.6,0.66,0.12,0.08],...; u' ^$ w+ S; Z# h! F- ^7 f
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
7 E! T% o, _( p1 B   'String','clock','fontsize',18,'fontname','times new roman');
3 n4 g* h* Z8 m# V/ |7 f8 LTq=uicontrol(gcf,'style','push',...     %%%%clocck 右边的框7 B. W7 l  d5 r
   'unit','normalized','position',[0.74,0.66,0.17,0.08],...  ^% s' m  {: Q+ l; s/ P( y, m
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
, M- t! t7 s: \0 F) I& B   'fontsize',18,'fontname','times new roman');9 u9 J6 ~! P1 B6 u: K
sq='The calendar';
) g# i, [; _& D- w* _3 Quicontrol(gcf,'style','push',...& w- s. `* T7 Y, B: Y  z" ~. q
   'unit','normalized','position',[0.14,0.86,0.37,0.08],...
% m" y+ Z/ X5 c: n" N5 W   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
- b2 e, ^- `1 F   'fontsize',18,'fontname','times new roman','string',sq);
" @6 E: J: T2 c( w$ l, jset(gcf,'menubar','none');% {# B; |5 y/ y! M; B
try$ e. J/ v  u9 U& F( L
   while 1
9 t0 z" X) b) a3 y       set(Tq,'String',datestr(now,13));
3 f: I6 x  G2 C2 `0 l+ \       pause(1);, ^- f5 W. }9 t; V( j
   end% X6 }, j1 X2 K" G
end

看后很有启发！

mcc  *.m  -a  function name.m   形成.EXE文件

-a 可以 便于回调函数调用别的函数