




下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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.0
2、8,0.06,. BackgroundColor,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,. BackgroundCo
3、lor,0.6*1,1,1,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,p
4、osition,0.74,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
5、 roman,string,sq);try while 1 set(Tq,String,datestr(now,13); pause(1); endend计算万年历的Matlab程序(2008-12-21 13:59:19)标签: 分类: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(i,100)
6、=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;% 打印日历for i =
7、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 2728 29 30
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 狗狗褥疮的护理
- 供热单位行政工作总结和工作打算
- 车库认购定金协议书
- 酒店厨房合同协议书
- 龙虾摊位承包协议书
- 饰品木条转让协议书
- 酒店寄存免责协议书
- 包子铺股份合同协议书
- 道路安全运输协议书
- 个体户餐饮股东协议书
- dlt-5161-2018电气装置安装工程质量检验及评定规程
- 用户生命周期管理策略-洞察分析
- 第三届中国长三角地区融资担保职业技能竞赛选拔赛试题库500题(含答案)
- 2025届安徽省A10联盟高三第二次调研数学试卷含解析
- 【MOOC】生命的教育-浙江大学 中国大学慕课MOOC答案
- 2024年中英城市更新白皮书
- 中建消防工程专项施工方案
- 安全环保职业健康法律法规清单2024年
- 初中心理健康 开出友谊的新花朵 教案
- 中国银联招聘笔试题库2024
- 驾驶员心理疏导培训
评论
0/150
提交评论