matlab做图形界面——日历

function CalendarTable;
# u. e4 `3 {# u' `- e3 ~% calendar 日历, H+ A2 N, k- O- I6 Z! f
% Example:
% l+ e; }% j) w- S7 n  h%    CalendarTable;

S=datestr(now);0 S8 p. K9 v' }4 f" U! Q
[y,m,d]=datevec(S);4 x# j; X" Q, P$ a- _
% d is day
% ]+ _: w' C. P1 j6 {+ `/ v' q! E% m is month
' S$ C: {) s% h! x: x7 I% y is year
: \9 l& [# t7 p3 r6 w! V4 nDD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};
) L; {; T$ S7 }- P5 ]close all" p3 C. t. O; ~/ L: G0 z, r! V
figure; %出现一个画图界面! l& F. I% e# D9 ?5 c  F
for k=1:7;
9 F& s/ Y; N7 ]# s  U% m   uicontrol(gcf,'style','text',...
; T9 b6 O; U2 Q9 f       'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...
$ Q4 J. D- ~" f* w; m% [: S       'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...6 L0 t% G& z7 S' `! f( D1 W
       'String',DD(k),'fontsize',16,'fontname','times new roman');6 A- L0 [  s' D% U
end! p0 t' X' T( M+ d. s1 {- s* u
h=1;
% |' }# @3 u& s+ s/ Lss='b';/ [$ i1 O0 H1 D) _* W' ^2 m# e, M
qq=eomday(y,m);% 获取该月天数1 g" b4 q' h: i/ T1 j; f2 B
for k=1:qq;
; s: ~9 J7 P' f1 l   n=datenum(y,m,k);
' b9 }" v* |0 U$ h$ |   [da,w] = weekday(n);; m' R5 L- q* a* @4 S; x  ~; m
   if k==d;
# G, o! L0 _* M9 M2 V& E; h. x% ^       ss='r';# Q2 h( [6 K& z$ J
   end
3 k4 N. F# @1 ^( _: j' b" G   uicontrol(gcf,'style','push',...
" t: V" }: ?" G8 m; G9 k/ }       'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.18,0.06],...+ w; _! b8 U1 b. ~
       'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
8 J7 u/ }% c" F* L6 R       'String',num2str(k));
% k( Q9 H3 f4 x$ P! I  t0 _+ ~/ S   ss='b';+ F( F  @2 ?' I. S" J
   if da==7;, \) [& X7 @# Z- W8 |! w
       h=h+1;+ E% k! [: k( S$ w3 t# d
   end2 n5 [& a' f7 L2 C, q2 a+ B0 S( m4 b
end
; i( _; r& c& t. Zuicontrol(gcf,'style','push',.../ ?6 l. k: u7 q+ H" J9 }
   'unit','normalized','position',[0.6,0.66,0.12,0.08],...# [% j9 f. y: `7 C( ?3 A+ w
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...& \, |1 H$ M- S' H" F! c" v
   'String','clock','fontsize',18,'fontname','times new roman');; T6 `. a! |8 i" v1 \8 e9 t
Tq=uicontrol(gcf,'style','push',...     %%%%clocck 右边的框* \" E/ R" u6 |# l4 h
   'unit','normalized','position',[0.74,0.66,0.17,0.08],...1 a+ J! r! @, h
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
5 o7 o3 |) H! q8 @   'fontsize',18,'fontname','times new roman');) L; A* F# G: e  M
sq='The calendar';" }0 I+ Y/ f' c4 L+ k) D7 ^! Q8 X* [
uicontrol(gcf,'style','push',...2 G, a! F5 |- k9 U; |. S
   'unit','normalized','position',[0.14,0.86,0.37,0.08],...
7 h' t# ~; h# P- r  \/ v   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
6 ]) c* G/ m# `) q9 c6 X3 |   'fontsize',18,'fontname','times new roman','string',sq);
9 a' f" v  M. y: }5 x$ f0 xset(gcf,'menubar','none');2 L6 @1 S/ G& V9 f8 g  E
try7 `; _2 E) Z% _; q/ K
   while 1
2 j3 }6 A  m/ ~- d( K" I       set(Tq,'String',datestr(now,13));
3 B+ z( v- @1 _4 z8 B( T# ?5 g       pause(1);
( H7 L4 a1 L5 T- b' V   end
' K, P/ h5 s+ A& fend

看后很有启发！

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

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