matlab做图形界面——日历

function CalendarTable;# f* z2 U# \+ @0 Y0 d5 @; g# {
% calendar 日历
. V1 A9 F: r/ R) H% Example:
3 h9 `( B  w0 u- |  |. ~8 Z* L%    CalendarTable;

S=datestr(now);5 v8 O5 j- D, i2 Q+ R
[y,m,d]=datevec(S);
0 c, P5 _' @# ~1 e. L/ P% d is day
4 f9 z& J3 m! Y! J+ L& K% m is month5 H5 B* p7 k2 v. k/ `
% y is year9 e2 z1 K, ?- i* S
DD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};
% c: G: z: z) @; f5 T; eclose all
$ q  w& E0 c! C2 x4 j" J0 D1 e figure; %出现一个画图界面8 L5 z4 E0 @( Q; G3 e6 J% W+ K
for k=1:7;
# I  g2 z5 i: q- y   uicontrol(gcf,'style','text',...% b  i8 O' V- E9 f$ L. L
       'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...
% T; `& [( m& X0 ]/ S       'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...! d2 _" V5 a0 H2 I2 [! U
       'String',DD(k),'fontsize',16,'fontname','times new roman');
; O6 l& V2 I, j5 X# n* eend1 ^# [* O  c3 \5 L4 y- a* s5 M9 G* i0 n
h=1;8 l! e( T, L& K. w
ss='b';+ @$ A5 @+ k, x' f
qq=eomday(y,m);% 获取该月天数
5 `5 v5 r( K+ ?% Xfor k=1:qq;  F2 e/ J* n' b4 w2 l* R
   n=datenum(y,m,k);1 z+ R, G& \6 a, l: Q4 H3 K
   [da,w] = weekday(n);' V( @# A& {' Q6 W$ i$ l0 J
   if k==d;( m- e0 @4 }* A: R7 `& B4 U
       ss='r';+ n+ L* p. C) h# r0 e
   end2 g9 l4 E3 Q" U6 v( u
   uicontrol(gcf,'style','push',...
, V6 i! {" i, I: p9 G       'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.18,0.06],...# |, K. E; k# d5 c
       'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...! J/ G6 s8 `8 O& _% o. k6 w7 N
       'String',num2str(k));
: u, r3 u( O+ s+ u/ T' Z   ss='b';; F% _; |; E  w/ L( b$ P
   if da==7;
9 B+ S7 X% W9 n  F1 [' y& W       h=h+1;. v% [4 F. h% y* f5 q3 x
   end* S# u) b8 F3 k! c1 {
end& X& L+ ]- Z6 F
uicontrol(gcf,'style','push',...
, x3 `4 i& y9 ^6 Z( |# @   'unit','normalized','position',[0.6,0.66,0.12,0.08],...
. V7 e( x3 e' ?; o' G1 @) X9 K0 L   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
' e7 w' p7 p" `/ {" D1 t' v6 z   'String','clock','fontsize',18,'fontname','times new roman');% h4 \2 d$ p. ~! x$ j$ O: C" v8 x
Tq=uicontrol(gcf,'style','push',...     %%%%clocck 右边的框9 W" Q+ K& x# ^& H* t0 u
   'unit','normalized','position',[0.74,0.66,0.17,0.08],...0 z, q$ K6 p( K( P% M( @% U
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
6 G2 d$ Z! S3 K8 l  f- d1 ~4 V   'fontsize',18,'fontname','times new roman');8 u/ x# Q) Y/ N: T
sq='The calendar';% r1 v6 ~3 l% |+ k+ M7 \: D
uicontrol(gcf,'style','push',..." D) i( J9 j/ Z  O( M2 |* `4 R
   'unit','normalized','position',[0.14,0.86,0.37,0.08],..." `! K' d' J, B" \0 R) G
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...9 N2 y3 b* Z( d! A- R( N, G
   'fontsize',18,'fontname','times new roman','string',sq);
2 f2 [+ D1 T$ n& W+ ]; fset(gcf,'menubar','none');( t" p# |6 v' v; s( v4 W: t
try9 C6 A. @- o( D, q
   while 1
& y2 Z1 c' n: ^, N4 v' a       set(Tq,'String',datestr(now,13));% t! u! b" @) d0 }
       pause(1);
& }# a( Q! g; G0 L   end' c3 W$ L/ N. b
end

看后很有启发！

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

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