c万年历语言程序.pdf

《c万年历语言程序.pdf》由会员分享，可在线阅读，更多相关《c万年历语言程序.pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、#i n cl ud e i n cl ud e 库函数头文件，代码中引用了_ n o p _()函数/定义控制信号端口s bi t R S=P 2 N;/P 2.4s bi t R W=P 2-5;/P 2.5s bi t E=P 2 6;/P 2.6s bi t s e t=P 3c4;设置键s bi t e n t e r=P 3 5;确认键s bi t ad d l=P 3c6;加 1 键s bi t s ubl=P 37;/减 1 键bi t k=0,f=O;/k 为 0表示运行状态，k为 1 表示设置状态；f为 0表示第一行显示，f为 1表示第二行显示ch ar s e c,m i

2、 n,h o ur,we e k,d ay,m o n t h,y e ar,n,m;un s i gn e d ch ar co un t,k e y;un s i gn e d ch ar Icd d=”0 1 2 3456789；/*声明调用函数*/vo i d d i s p d O ;日期显示函数vo i d d i s p t ();时间显示函数un s i gn e d ch ar k e y s ();按键扫描函数vo i d l cd _ w_ cm d(un s i gn e d ch ar co m);写命令字函数vo i d l e d w d at (un s i g

3、n e d ch ar d at);写数据函数un s i gn e d ch ar l cd _ r _ s t ar t ();读状态函数vo i d i n t i ();LC D初始化函数vo i d d e l ay (un s i gn e d ch ar t);可控延时函数vo i d d e l ay l O;软件实现延时函数，5 个机器周期/*主函数*/vo i d m ai n()(T MO D=O x O l;设置为定时器模式1T H 0=0 x 3c;/晶振 6MH z,定时时间 1 0 0 m sT L0=0 x b0;IE=0 x 82;开全局中断和定时中断T R

4、O=1;启动定时器s e c=0;秒m i n=0;分h o ur=0;时we e k=0;星期d ay=l;日m o n t h=1;月y e ar=0;年co un t=0;中断次数清0n=-3;设置键按下次数，第一行日期m=-3;设置键按下次数，第二行时间P O=O x f f;/送全 1 到 P 0 口i n t l O ;初始化 LC Dd e l ay (2 55);wh i l e(l)k e y=k e y s();读取按键s wi t ch(k e y)cas e O x e O:按下设置键T R O=O;k=l;i f(f=O)n=n+3;i f(n=9)(n=0;m=0;

5、f=l；)e l s em=m+3：i f(m=1 2)(m=0;n=0;f=0;)i f(f=O)(Icd wcm d(O x O d);l cd _ w_ cm d(0 x 86+n);e l s el cd _ w_ cm d(O x O d);l cd _ w_ cm d(0 x c4+m);br e ak;cas e O x d O:按下确认键(k=0;T R O=1;n=-3;m=-3;f=0;br e ak;cas e O x bO:按下加1 键(i f(k=l)(i f(f=O)(i f(n=0)y e ar+;i f(y e ar=1 0 0)y e ar=0;e l s e

6、 i f(n=3)m o n t h+;i f(m o n t h=1 3)m o n t h=l;e l s e d ay+;i f(d ay=32)d ay=l;d i s p d O ;调用第一行显示函数l cd _ w_ cm d (O x O d);光标闪烁l e d w cm d(0 x 86+n);返回设置值显示地址)e l s e(i f(m=0)h o ur+;i f(h o ur=2 4)h o ur=0;e l s e i f(田=3)m i n+;i f(m i n=60)m i n=0;e l s e i f=6)s e c+;i f(s e c=60)s e c=0

7、;e l s e we e k+;i f(we e k=7)we e k=0;d i s p t O ;调用第二行显示函数l cd _ w_ cm d(0 x 0 d);光标闪烁l e d w cm d(0 x c4+m);返回设置值显示地址)br e ak;cas e 0 x 70:按下减1 键(i f(k=l)i f(f=O)i f(n=0)y e ar-;i f(y e ar 0)y e ar=99;e l s e i f (n=3)m o n t h-;i f (m o n t h=0)m o n t h=1 2;e l s e (d ay-;i f(d ay 0)d ay=31;d

8、i s p d O;调用第一行显示函数l cd _ w_ cm d (O x O d);光标闪烁l cd _ w_ cm d (0 x 86+n);返回设置值显示地址e l s e(i f(m=0)h o ur-；i f(h o ur 0)h o ur=2 3;e l s e i f(m=3)m i n-;i f(m i n 0)m i n=59;e l s e i f(m=6)s e c-;i f(s e c0)s e c=59;e l s e we e k ;i f(we e k 0)we e k=6;d i s p t ();调用第二行显示函数l cd _ w_ cm d (O x O

9、d);光标闪烁l cd _ w_ cm d(0 x c4+m);返回设置值显示地址)br e ak;i f (k=0)d i s p d O ;d i s p t ();调用 LC D 显示函数)/*延时函数*/vo i d d e l ay(un s i gn e d ch ar t)(un s i gn e d ch ar j,i;f o r(i=0;i t;i+)f o r(j=0;j 2 0;j+);)/*延时函数1*/vo i d d e l ay l ()(_ n o p _();_ n o p _();_ n o p _();L C D 初始化函数*/vo i d i n t i

10、 ()(l cd _ w_ cm d(0 x 3c);/设置工作方式l cd _ w_ cm d (0 x 0 c);/设置光标l cd _ w_ cm d (0 x 0 1);/清屏l cd _ w_ cm d(0 x 0 6);/设置输入方式l cd _ w_ cm d(0 x 80);/设置初始显示位置)/*LC D读状态函数*/返回值:返回状态字,最高位D7=0,LC D控制器空闲；D7=1,LC D控制器忙un s i gn e d ch ar l cd _ r _ s t ar t()(un s i gn e d ch ar s;R W=1;/R W=1,R S=0,读 LC D

11、状态d e l ay l ();R S=0;d e l ay l ();E=l;E 端时序d e l ay l ();s=P 0;从LC D的数据口读状态d e l ay l ();E=0;d e l ay l ();R W=0;d e l ay l ();r e t ur n (s);返回读取的LC D状态字)L C D 写命令函数*/vo i d l e d w e m d (un s i gn e d ch ar co m)(un s i gn e d ch ar i;d o (查 LC D忙操作i=l cd r s t ar t ();/调用读状态字函数i=i&0 x 80;/与操作屏

12、蔽掉低7 位d e l ay(2);wh i l e(i!=0);/LC D忙，继续查询，否则退出循环R W=0;d e l ay l ();R S=0;/R W=0,R S=0,写 LC D 命令字d e l ay l 0;E=l;E 端时序d e l ay l 0;P 0=co m;将co m 中的命令字写入LC D数据口d e l ay l 0;E=0;d e l ay l 0;R W=1;d e l ay (2 55);/*LC D写数据函数*/vo i d l cd _ w_ d at(un s i gn e d ch ar d at)(un s i gn e d ch ar i;d

13、 o /查忙操作i=l cd _ r _ s t ar t ();/调用读状态字函数i=i&0 x 80;/与操作屏蔽掉低7 位d e l ay(2);wh i l e(i !=0);LC D忙,继续查询，否则退出循环R W=0;d e l ay l ();R S=1;/R W=1,R S=0,写 LC D 数据d e l ay l ();E=1;/E端时序d e l ay l 0;P 0=d at;/将 d at 中的显示数据写入LC D数据口d e l ay l 0;E=0;d e l ay l ();R W=1;d e l ay(2 55);)/*定时中断函数*/vo i d t i m

14、 e r O()i n t e r r up t 1(T H 0=0 x 3c;T L0=0 x b0;co un t+;i f(co un t=1 0)(co un t=0;s e c+;i f(s e c=60)(s e c=0;m i n+;i f(m i n=60)(m i n=0;h o ur+;i f(h o ur=2 4)h o ur=0;we e k+;d ay+;i f(we e k=7)we e k=O;i f(d ay=2 9&m o n t h=2&y e ar%4!=0)d ay=l;m o n t h+;e l s e i f (d ay=30&m o n t h=

15、2&y e ar%4=0)d ay=l ;m o n t h+;e l s e i f (d ay=31&(m o n t h=二 4|j m o n t h=6|m o n t h=9|m o n t h=二 1 1)d ay=l;m o n t h+;e l s ei f (d ay=32&(m o n t h=l|,m o n t h=3|m o n t h=5|m o n t h=7!m o n t h=8|m o n t h=1 0|m o n t h=1 2)d ay=l;m o n t h+;i f(m o n t h=1 3)(m o n t h=l;y e ar+;i f(y

16、 e ar=1 0 0)y e ar=0;)/*按键扫描函数*/un s i gn e d ch ar k e y s()(un s i gn e d ch ar co d,d e l;P 3=0 x f 0;co d=P 3&0 x f 0;读入 P 3 口 键值i f (co d!二 O x f O)先检测有无按键按下(d e l ay (1 0 0);/去抖i f(co d!=0 x f 0)co d=P 3&0 x f 0;读入键值d o 等待键释放P 3=0 x f 0;d e l=P 3&0 x f 0;wh i l e(d e l!=0 x f 0);r e t ur n(co

17、d);返回键值r e t ur n(O x f O);返回该值/*第一行显示日期函数*/vo i d d i s p d()(l cd _ w_ cm d(0 x 0 c);设置光标不显示、不闪烁d e l ay(2 0);l cd _ w_ cm d(0 x 83);第一行起始显示地址 0 x 80+0 x 0 3d e l ay (2 0);l cd _ w_ d at (*2);d e l ay (2);l cd _ v_ d at (O);d e l ay(2);Icd wd at(l cd d y e ar/1 0);d e l ay (2);l cd _ w_ d at(Icd d

18、 y e ar%l 0);d e l ay(2);l cd _ w_ d at (，)；d e l ay (2);l e d w d at(Icd d m o n t h/1 0);d e l ay(2);l e d w d at(Icd d m o n t h%1 0);d e l ay(2);l cd _ w_ d at ()；d e l ay (2);l cd _ w_ d at(Icd d d ay/1 0);d e l ay (2);l cd _ w_ d at(Icd d d ay%1 0);d e l ay(2);/*第二行显示时间、星期函数*/vo i d d i s p t

19、()(l e d w cm d(O x O c);设置光标不显示、不闪烁d e l ay(2 0);l cd _ w_ cm d (0 x c3);第二行起始显示地址 0 x 80+0 x 43d e l ay (2 0);l cd _ w_ d at(Icd d h o ur/1 0);d e l ay (2);l cd _ w_ d at(Icd d h o ur%1 0);d e l ay(2);Icd wd atd e l ay (2);l cd _ w_ d at(Icd d m i n/1 0);d e l ay(2);l cd _ w_ d at(Icd d m i n%1 0);d e l ay(2);lc d_w _da t;d e l ay (2);l cd _ w_ d at(l cd d s e c/1 0);d e l ay(2);Icd wd at(Icd d s e c%1 0);d e l ay (2);l cd _ w_ d at(，?);d e l ay(2);l e d w d at (W);d e l ay (2);l e d w d at(Icd d we e k);d e l ay(2);