matlab做图形界面——日历

yxlk

matlab做图形界面——日历
) K% u! O/ S9 v/ N

function CalendarTable;
% calendar 日历
% Example:
%    CalendarTable;

S=datestr(now);
[y,m,d]=datevec(S);
: q* R+ O9 ^5 ^; U1 a2 W) q: Y' W% d is day
% m is month
3 w, W5 O$ h8 v/ g0 ^) s* t$ M3 q4 J3 {% y is year
DD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};
close all
figure; %出现一个画图界面
6 g1 P3 _9 }4 f  A* M: @for k=1:7;
   uicontrol(gcf,'style','text',...
% Q' ^% J2 {+ u3 Y' \; E) H       'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...
6 ^! H1 i8 d$ P! w% Q: ^$ f       'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...
8 l1 I2 f9 B: H2 r3 `  K8 f       'String',DD(k),'fontsize',16,'fontname','times new roman');
end
/ I+ M' ]9 |- v! A! z, Nh=1;
ss='b';
qq=eomday(y,m);% 获取该月天数
for k=1:qq;
   n=datenum(y,m,k);
   [da,w] = weekday(n);
   if k==d;
; S! O! f% U0 }8 X6 R0 d       ss='r';
0 ?, a. \/ R, c& H   end
   uicontrol(gcf,'style','push',...
1 {( _, U2 V1 I# p' N       'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.18,0.06],...
2 B3 H- v: u( W# @1 @9 r) K       'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
& S- S/ ~9 v; z       'String',num2str(k));
: n6 U* r; w* [   ss='b';
   if da==7;
       h=h+1;
& ~# J6 z6 c, e: d, a  c/ q$ G   end
end
uicontrol(gcf,'style','push',...
$ S: J0 T" E; Y5 V* x   'unit','normalized','position',[0.6,0.66,0.12,0.08],...
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
& Z5 L. {% S6 {( [, ]  M   'String','clock','fontsize',18,'fontname','times new roman');
. w# x$ {- }: F! BTq=uicontrol(gcf,'style','push',...     %%%%clocck 右边的框
- M( X, U8 H) K& ]# E* d6 L! b+ w   'unit','normalized','position',[0.74,0.66,0.17,0.08],...
) Z' }* ^# x! e- O/ r6 n   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
   'fontsize',18,'fontname','times new roman');
! r% r; T9 D$ K- Dsq='The calendar';
4 r# e  _8 V4 ^, x0 Zuicontrol(gcf,'style','push',...
2 s* T; L1 U: |9 y0 _   'unit','normalized','position',[0.14,0.86,0.37,0.08],...
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
1 T$ B! C# p$ h; O# `6 f$ U/ }   'fontsize',18,'fontname','times new roman','string',sq);
set(gcf,'menubar','none');
2 Y  I5 d; `& P9 [4 ttry
   while 1
) a" C: ^( [- r3 R9 a       set(Tq,'String',datestr(now,13));
2 V1 |8 x$ `, A       pause(1);
   end
end

看后很有启发！

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

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

3 i/ Y+ t9 e1 y1 i

fanichicl

看后很有启发