matlab做图形界面——日历

yxlk

matlab做图形界面——日历
1 x1 I1 X( H; N# I, x4 M

function CalendarTable;
% calendar 日历
6 a2 |$ H0 c3 X( @/ m4 L9 F1 ?% Example:
3 U2 {. m5 U0 M  l; y) r6 G# @# Z3 |%    CalendarTable;

S=datestr(now);
[y,m,d]=datevec(S);
$ [! i* D  A5 J% d is day
% m is month
% y is year
DD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'};
close all
% C; g* T0 }1 \7 c/ F; C figure; %出现一个画图界面
for k=1:7;
5 D: ^% z+ j- s' P) f! z" n   uicontrol(gcf,'style','text',...
       'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],...
* q: V) F2 k; B& \; Z% [       'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',...
       'String',DD(k),'fontsize',16,'fontname','times new roman');
end
) s$ k. {, z; T5 S9 j- Xh=1;
1 O0 o/ A$ F4 T6 K' M' }ss='b';
& _( W7 e5 Z& g! W" j/ Gqq=eomday(y,m);% 获取该月天数
5 ]9 t! f' G0 A: M$ O6 ^for k=1:qq;
5 B6 I( p. n" U% A1 Q. u1 F  r7 {   n=datenum(y,m,k);
   [da,w] = weekday(n);
" R* X; H; T2 N3 T" c4 ~. o   if k==d;
- e& A/ ]/ L# h5 D* v$ j       ss='r';
   end
   uicontrol(gcf,'style','push',...
4 t% u- _3 W& c       'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.18,0.06],...
) j2 H' F3 h: b' v$ m       'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
       'String',num2str(k));
   ss='b';
4 j% z: l4 z: ?7 Y   if da==7;
" ~1 I& j1 R6 d5 {' I       h=h+1;
   end
5 i2 n. k/ h, G& ~end
5 [+ @2 _+ ?2 i$ N8 J& Z  F6 uuicontrol(gcf,'style','push',...
   'unit','normalized','position',[0.6,0.66,0.12,0.08],...
   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,...
5 y2 m0 I9 t  t' o* A) \- P0 Z   'String','clock','fontsize',18,'fontname','times new roman');
  s! Z  W6 f/ V7 N# s' JTq=uicontrol(gcf,'style','push',...     %%%%clocck 右边的框
0 ~3 Q. |( Y6 ~   'unit','normalized','position',[0.74,0.66,0.17,0.08],...
0 u0 x" U& U2 ?+ z   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
   'fontsize',18,'fontname','times new roman');
9 ^7 V. h; O! T% \sq='The calendar';
" b# U) Y) y6 iuicontrol(gcf,'style','push',...
   'unit','normalized','position',[0.14,0.86,0.37,0.08],...
; {+ A, F6 H7 x; v/ i/ Q4 [& H3 G   'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],...
   'fontsize',18,'fontname','times new roman','string',sq);
7 B9 W9 \/ q( g/ _) t5 l3 Uset(gcf,'menubar','none');
try
- {& L; Y1 j3 {- m9 [$ Z   while 1
" O3 X8 Y; {6 R9 q9 w       set(Tq,'String',datestr(now,13));
+ v# t3 y1 ^0 k# {3 e3 V5 l       pause(1);
   end
end

看后很有启发！

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

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

fanichicl

看后很有启发