matlab做图形界面——日历

yxlk

matlab做图形界面——日历

function CalendarTable;
6 T; R6 ~8 s9 E2 x7 n4 j& r+ q% calendar 日历
% Example:
%    CalendarTable;

S=datestr(now);
[y,m,d]=datevec(S);
% d is day
. _; g$ q$ `$ M% m is month
* G- ?6 a4 [% G2 _  Q: c# z% y is year
# x# ]% Z0 U2 j2 o/ ~DD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};
$ c( V1 M) K* y+ sclose all
7 m& U5 J7 u7 D. T# [1 U* u. O figure; %出现一个画图界面
4 B6 U* D1 w" }for k=1:7;
   uicontrol(gcf,'style','text',...
! ?; \: w4 l* d# H' f/ M7 Y       'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...
       'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...
       'String',DD(k),'fontsize',16,'fontname','times new roman');
end
- U+ R7 f6 o5 ?' J0 Y! `6 R7 th=1;
ss='b';
qq=eomday(y,m);% 获取该月天数
for k=1:qq;
   n=datenum(y,m,k);
8 k1 K# k9 i' e, ~: J: v& Q, l- ?   [da,w] = weekday(n);
; T% e2 {# M" @- o0 w7 S   if k==d;
# O, E% u; R  a2 b* r. |2 ^       ss='r';
   end
! H+ q- j( Y% b: }' L   uicontrol(gcf,'style','push',...
+ ~% F( F+ l4 ~6 g  W5 I; V4 J) g; N       'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.18,0.06],...
. B! @: V6 E& i: x5 d0 z3 y9 g4 m       'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
       'String',num2str(k));
   ss='b';
   if da==7;
5 E- X; c: h& i/ |8 _+ E/ ^( t, M       h=h+1;
# k# i7 O4 y! N+ G6 {   end
end
uicontrol(gcf,'style','push',...
5 Z$ R" H7 V7 g: s   'unit','normalized','position',[0.6,0.66,0.12,0.08],...
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
  H  O8 _4 f! V: {- Z4 S, [, d   'String','clock','fontsize',18,'fontname','times new roman');
6 E9 q  d$ n& v' L/ C: _& s' Z; U) ?Tq=uicontrol(gcf,'style','push',...     %%%%clocck 右边的框
   'unit','normalized','position',[0.74,0.66,0.17,0.08],...
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
, d! b; {" i# w: E   'fontsize',18,'fontname','times new roman');
sq='The calendar';
& ~3 A6 U- w, \# |0 L( b$ P. duicontrol(gcf,'style','push',...
; B. g" Q4 U& \7 o   'unit','normalized','position',[0.14,0.86,0.37,0.08],...
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
   'fontsize',18,'fontname','times new roman','string',sq);
$ u9 c& o" s# V2 xset(gcf,'menubar','none');
8 z$ _$ R6 ?" {% u1 Stry
  g" G/ [% T% m/ ~3 L. J   while 1
       set(Tq,'String',datestr(now,13));
6 ~; \& X$ p! G- _. y       pause(1);
4 F7 Q; ^5 @0 A4 k, a& |" u7 S   end
7 D+ s) K5 r" O+ Y  lend

看后很有启发！

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

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

fanichicl

看后很有启发