




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、#include#define uchar unsigned char#define uint unsigned intuchar a,count,S1num,xqnum;char yue,ri,shi,fen,miao;int nian;sbit lcdrs=P25;sbit lcdrw=P24;sbit lcden=P23;sbit S1=P30;/定義鍵進(jìn)入設(shè)置sbit S2=P31;/定義鍵增大sbit S3=P32;/定義鍵減小sbit S4=P33;/定義鍵退出設(shè)置uchar code table0=2014-08-13 WED;uchar code table1=00:00:00
2、;uchar code xingqi3=MON,TUE,WED,THU,FRI,SAT,SUN;void delay(uint z)uint x,y;for(x=z;x0;x-)for(y=110;y0;y-);/*1602液晶顯示器模塊sbit lcdrs=P25;sbit lcdrw=P24;sbit lcden=P23;*/void write_com(uchar com)/液晶寫指令lcdrw=0;lcdrs=0;P0=com;delay(5);lcden=1;delay(5);lcden=0;void write_data(uchar dat)/液晶寫數(shù)據(jù)lcdrw=0;lcdrs=
3、1;P0=dat;delay(5);lcden=1;delay(5);lcden=0; /*年月日寫入1602函數(shù)*/void write_sfm(uchar add,uchar dat) /寫時分秒函數(shù)uchar shi,ge;shi=dat/10;ge=dat%10;write_com(0x80+0x40+add);write_data(0x30+shi);write_data(0x30+ge);void write_yr(uchar add,uchar dat) /寫月日函數(shù)uchar shi,ge;shi=dat/10;ge=dat%10;write_com(0x80+add);wri
4、te_data(0x30+shi);write_data(0x30+ge);void write_nian(uchar add,uint dat) /寫年函數(shù)uint qian,bai,shi,ge;qian=dat/1000;bai=dat%1000/100;shi=dat%100/10;ge=dat%10;write_com(0x80+add);write_data(0x30+qian);write_data(0x30+bai);write_data(0x30+shi);write_data(0x30+ge);/*初始化*/void init_lcd() /液晶初始化lcden=0;nia
5、n=2014;yue=8;ri=13;shi=0; /初始shi、fen、miaofen=0;miao=0;write_com(0x38); /設(shè)置16x2顯示,5x7點(diǎn)陣,8位數(shù)據(jù)口write_com(0x0c); /設(shè)置開顯示,不顯示光標(biāo)write_com(0x06); /寫一個字符后地址指針加1write_com(0x01); /顯示清0,數(shù)據(jù)指針清0 void init()/初始化函數(shù)init_lcd(); /液晶初始化write_com(0x80); /設(shè)置顯示初始坐標(biāo)for(a=0;a14;a+) /顯示年月日初始值write_data(table0a);delay(5);writ
6、e_com(0x80+0x40); /設(shè)置顯示初始坐標(biāo)for(a=0;a8;a+)/顯示時分秒初始值write_data(table1a);delay(5);write_nian(0,nian);write_sfm(6,miao); /分別將shi、fen、miao送去液晶顯示write_sfm(3,fen);write_sfm(0,shi);count=0;xqnum=0;S1num=0; /初始化全局變量countTMOD=0x01; /設(shè)置定時器0工作模式1TH0=(65535-50000)/256; /定時器裝初始值TL0=(65535-50000)%256;EA=1;/開總中斷ET0
7、=1;/開定時器0中斷TR0=1;/啟動定時器0 /*獨(dú)立鍵盤sbit S1=P30;/定義鍵進(jìn)入設(shè)置sbit S2=P31;/定義鍵增大sbit S3=P32;/定義鍵減小sbit S4=P33;/定義鍵退出設(shè)置獨(dú)立鍵盤已接地*/void keyscan()if(S1=0)delay(5);/確認(rèn)定義鍵被按下if(S1=0)S1num+;/定義鍵S1按下次數(shù)記錄while(!S1);/釋放按鍵確認(rèn)if(S1num=1)/S1按下一次時TR0=0;/關(guān)閉定時器write_com(0xc0+7);/光標(biāo)定位到秒位置write_com(0x0f);/光標(biāo)閃爍if(S1num=2) /S1按下兩次時
8、write_com(0xc0+4); /光標(biāo)定位到分位置if(S1num=3) /S1按下三次時write_com(0xc0+1); /光標(biāo)定位到時位置if(S1num=4) /S1按下四次時write_com(0x80+13); /光標(biāo)定位到星期位置if(S1num=5) /S1按下五次時write_com(0x80+9); /光標(biāo)定位到日位置if(S1num=6) /S1按下六次時write_com(0x80+6); /光標(biāo)定位到月位置if(S1num=7) /S1按下七次時write_com(0x80+3); /光標(biāo)定位到年位置if(S1num=8) /S1按下八次時S1num=0; /
9、S1記錄按鍵次數(shù)清零TR0=1; /開啟定時器write_com(0x0c); /取消光標(biāo)閃爍if(S1num!=0) /只有定義鍵按下后S2、S3、S4才有效if(S2=0)delay(5);/防抖if(S2=0) /確認(rèn)按鍵被按下while(!S2);/釋放按鍵確認(rèn)if(S1num=1)/S1按下一次時miao+;/調(diào)整秒加1if(miao=60)/滿60清零miao=0;write_sfm(6,miao); /每調(diào)節(jié)一次送液晶顯示一次write_com(0x80+0x40+6); /顯示位置重新回到調(diào)節(jié)處if(S1num=2) /S1按下兩次時fen+;/調(diào)整分加1if(fen=60)f
10、en=0;write_sfm(3,fen);write_com(0x80+0x40+3);if(S1num=3) /S1按下三次時shi+; /調(diào)整時加1if(shi=24)shi=0;write_com(0x80+0x40);write_sfm(0,shi);if(S1num=4) /星期加調(diào)整xqnum+;if(xqnum=7)xqnum=0;write_com(0x80+0x0b);for(a=0;a3;a+)write_data(xingqixqnuma);delay(5);if(S1num=5)/日加調(diào)整ri+;if(yue=2)if(nian%400=0)if(ri=30)ri=1
11、;if(nian%400!=0)if(ri=29)ri=1;else if(yue=8)if(yue%2=0)if(ri=32)ri=1;else if(yue%2!=0)if(ri=31)ri=1;write_yr(8,ri);if(S1num=6)/月加調(diào)整yue+;if(yue=13)yue=1;write_yr(5,yue); if(S1num=7) /年加調(diào)整nian+;if(nian=2019)nian=2014;write_nian(0,nian);if(S3=0)delay(5);if(S3=0) /確認(rèn)按鍵被按下while(!S3);if(S1num=1) miao-; /調(diào)
12、整秒減1if(miao=-1) /減到00后再減重新設(shè)置為59miao=59;write_sfm(6,miao);write_com(0x80+0x40+6);if(S1num=2)fen-; /調(diào)整分減1if(fen=-1)fen=59;write_sfm(3,fen);write_com(0x80+0x40+3);if(S1num=3)shi-;/調(diào)整時減1if(shi=-1)shi=23;write_sfm(0,shi);write_com(0x80+0x40);if(S1num=4)xqnum-;/調(diào)整星期減一if(xqnum=-1)xqnum=6;write_com(0x80+0x0
13、b);for(a=0;a3;a+)write_data(xingqixqnuma);delay(5);if(S1num=5) /調(diào)整日ri-;if(yue=2)if(nian%400=0)if(ri=0)ri=29;if(nian%400!=0)if(ri=0)ri=28;else if(yue=8)if(yue%2=0)if(ri=0)ri=31;else if(yue%2!=0)if(ri=0)ri=30;write_yr(8,ri); if(S1num=6) /調(diào)整月yue-;if(yue=0)yue=12;write_yr(5,yue);if(S1num=7) /調(diào)整年nian-;if
14、(nian=2013)nian=2018;write_nian(0,nian);if(S4=0) /退出設(shè)置、開啟中斷delay(5);if(S4=0)S1num=0;TR0=1;write_com(0x0c);/*定時器0*/void timer0() interrupt 1 /定時器0中斷服務(wù)程序TH0=(65535-50000)/256; /重裝定時器初始值TL0=(65535-50000)%256;count+; /中斷次數(shù)累加if(count=20) /20次50毫秒即一秒count=0;miao+;if(miao=60) /秒加到60時分進(jìn)位miao=0;fen+;if(fen=6
15、0) /分加到60時時進(jìn)位fen=0;shi+;if(shi=24)/時加到24時清0shi=0;xqnum+;ri+;if(yue=2)/如果是二月if(nian%400=0) /閏年判斷if(ri=30)ri=1;yue+;write_yr(5,yue);if(nian%400!=0) /平年判斷if(ri=29)ri=1;yue+;write_yr(5,yue);else if(yue=8) /八月到12月if(yue%2=0)/偶數(shù)月(除二月)if(ri=32) ri=1;yue+;if(yue=13) /如果判斷月份為12月,則加一后重新定義月份為1yue=1;nian+;write_nian(0,nian);write_yr(5,yue);else if(yue%2!=0) /奇數(shù)月if(ri=31)ri=1;yue+;write_yr(5,y
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年河湖整治戰(zhàn)略合作協(xié)議
- 2025年綜合商業(yè)廣場策劃與管理服務(wù)協(xié)議
- 2025年購地建廠協(xié)議示范文本
- 2025年河道疏浚工程合作協(xié)議書樣本
- 事業(yè)單位房屋管理風(fēng)險(xiǎn)防控體系構(gòu)建
- 跨境電商的跨文化溝通與國際團(tuán)隊(duì)管理
- 精準(zhǔn)消費(fèi)數(shù)據(jù)與資金籌集的互動關(guān)系
- 引導(dǎo)資本流向消費(fèi)領(lǐng)域的有效路徑
- 商業(yè)空間節(jié)假日旅游市場策略規(guī)劃基礎(chǔ)知識點(diǎn)歸納
- 深化文化體制機(jī)制改革的面臨的問題、機(jī)遇與挑戰(zhàn)
- 金融企業(yè)呆賬核銷管理辦法
- 俄羅斯文學(xué)史(黑龍江聯(lián)盟)知到智慧樹章節(jié)測試課后答案2024年秋哈爾濱師范大學(xué)
- 中國食物成分表標(biāo)準(zhǔn)版第6版
- 作業(yè)許可培訓(xùn)復(fù)習(xí)試題
- 廣東省廣州市廣大附中教育集團(tuán)2022-2023學(xué)年九年級上學(xué)期自主招生數(shù)學(xué)試題
- 精神??浦R應(yīng)知應(yīng)會試題題庫及答案
- 2024-2030年中國半導(dǎo)體設(shè)備租賃行業(yè)發(fā)展?fàn)顩r及投資策略建議報(bào)告
- 外科學(xué)(2)知到智慧樹章節(jié)測試課后答案2024年秋溫州醫(yī)科大學(xué)
- 浙江溫州樂清市新居民服務(wù)中心招考聘用編外工作人員管理單位遴選500模擬題附帶答案詳解
- 116、新疆昭蘇機(jī)場水泥混凝土道面面層試驗(yàn)段總結(jié)
- 車輛維修檢查方案
評論
0/150
提交評論