日历的Matlab的界面设计

1、日历matlab的gui界面设计实例%非常漂亮的日历， function calendartable;% calendar 日历% example:% calendartable;s=datestr(now);y,m,d=datevec(s);% d is day% m is month% y is yeardd=sun,mon,tue,wed,thu,fri,sat;close allfigure;for k=1:7; uicontrol(gcf,style,text,. unit,normalized,position,0.02+k*0.1,0.55,0.08,0.06,. backgro

2、undcolor,0.6*1,1,1,foregroundcolor,b,. string,dd(k),fontsize,16,fontname,times new roman);endh=1;ss=b;qq=eomday(y,m);for k=1:qq; n=datenum(y,m,k); da,w = weekday(n); if k=d; ss=r; end uicontrol(gcf,style,push,. unit,normalized,position,0.02+da*0.1,0.55-h*0.08,0.08,0.06,. backgroundcolor,0.6*1,1,1,fo

3、regroundcolor,ss,. string,num2str(k); ss=b; if da=7; h=h+1; endenduicontrol(gcf,style,push,. unit,normalized,position,0.6,0.66,0.12,0.08,. backgroundcolor,0.6*1,1,1,foregroundcolor,ss,. string,clock,fontsize,18,fontname,times new roman);tq=uicontrol(gcf,style,push,. unit,normalized,position,0.74,0.6

4、6,0.17,0.08,. backgroundcolor,0.6*1,1,1,foregroundcolor,0.1,0.9,0.9,. fontsize,18,fontname,times new roman);sq=the calendar;uicontrol(gcf,style,push,. 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

5、);try while 1 set(tq,string,datestr(now,13); pause(1); endendfunction test_calendar(year,month)% 输入年份，月份，打印这个月的月历run = 0;ping = 0;fprintf(n%s %s %s %s %s %s %sn,. 日,一,二,三,四,五,六);% 计算从第一年到前一年的闰年和平年的个数for i =1:year-1 if (mod(i,4)=0 & mod(i,100)=0) | mod(i,400)=0 run = run+1; else ping = ping+1; endend

6、% 计算从第一年到当年前一个月的天数sum = 366*run+365*ping;for i = 1:month-1 sum = sum+monthday(year,i);end% 获得这个月的天数n = monthday(year,month);temp = zeros(n,1);sum = sum+1;% 计算这个月第一天是星期几wkd = mod(sum,7);for i = 1:n temp(wkd+i) = i;endl = 1;m = 1;% 打印日历for i = 1:length(temp) if temp(i) =0 temp2(l,m) = ; fprintf( ); m

7、= m+1; else temp2(l,m) = temp(i); if temp(i) = 10 fprintf(%d ,temp(i); else fprintf(%d ,temp(i); end m = m+1; end if mod(i,7)=0 fprintf(n); m = 1; l = l+1; endendfprintf(n);% 闰年和平年每月的天数function out = monthday(year,i)if mod(year,4)=0 & mod(year,100)=0 | mod(year,400)=0 data = 31 29 31 30 31 30 31 31 30 31 30 31;else data = 31 28 31 30 31 30 31 31 30 31 30 31;endout = data(i);举例：输入： test_calendar(2008,1