下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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,. Back
2、groundColor,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
3、,ForegroundColor,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,
4、0.66,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
5、,sq);try while 1 set(Tq,String,datestr(now,13); pause(1); endend计算万年历的Matlab程序(2008-12-21 13:59:19)标签:matlab万年历杂谈 分类:Matlab实例function 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(
6、i,100)=0) | mod(i,400)=0 run = run+1; else ping = ping+1; endend% 计算从第一年到当年前一个月的天数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;% 打印日历fo
7、r i = 1:length(temp) if temp(i) =0 temp2(l,m) = ; fprintf( ); m = 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,12)返回:日 一 二 三 四 五 六 1 2 3 4 5 67 8 9 10 11 12 1314 15 16 17 18 19 2021 22 23 24 25 26 272
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年公共资源交易平台升级改造合同
- 2024年创新:无人机研发生产及销售合同规定
- (2024版)云计算服务提供与购买合同
- 2024年供需双方的布料购买合同
- 建筑工地交叉施工安全实施方案
- 隧道与箱涵工程施工方案比较
- 孩子学期成长概览模板
- 济宁学院《化工原理Ⅱ》2021-2022学年第一学期期末试卷
- 电力设备综合维护方案
- 风电场建设脚手架与用电安全方案
- 国标导地线型号
- 外科休克教案课程
- 公务员申论答题标准格子纸版A4打印版
- 第六章休闲体育产业PPT课件
- SL/T212-2020 水工预应力锚固技术规范_(高清-有效)
- 行政法对宪法实施的作用探讨
- 檩条规格选用表
- 群青生产工艺过程
- 重拾作文ppt课件
- (整理)直流DF0241-JC-DL用户手册
- B2B第三方电子商务平台——基于环球资源网模式分析
评论
0/150
提交评论