版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、電子日歷程序#include<reg51.h>#define uchar unsigned char#define uint unsigned int#define shuju P0sbit rs=P20;sbit rw=P21;sbit en=P22;sbit stop=P30;/暫停sbit jia=P31;/ 加計數(shù)sbit jian=P32;/減計數(shù)繼續(xù)uchar ci,num,shi,fen,miao,num20,nian=13,yue=12,ri=2,week,t;uchar code table1="2013-12-02Mon"uchar code
2、 table2="00:00:00"uchar code xingqi="MonTusWedThuFriSatSun"void delay(uint z);void xieins(uchar ins);void xieda(uchar da);void chushi();void display(uchar add,uchar dat);void keyscan();void xieweek();void main()chushi();while(1)keyscan();void delay(uint z)/延時 1msuint x,y;for(x=z;
3、x>0;x-)for(y=115;y>0;y-);void xieins(uchar ins)/ 寫指令rs=0;rw=0;shuju=ins;en=0;delay(5);en=1;delay(5);en=0;void xieda(uchar da)/ 寫數(shù)據(jù)rs=1;rw=0;shuju=da;en=0;delay(5);en=1;delay(5);en=0;void chushi()xieins(0x38);/功能設(shè)置8 位數(shù)據(jù)接口雙行顯示xieins(0x0c);/顯示設(shè)置開啟顯示屏關(guān)閉光標(biāo)光標(biāo)不閃爍xieins(0x06);/輸入模式設(shè)置光標(biāo)右移一格且地址數(shù)加1xieins
4、(0x01);/清屏TMOD=0x01;TH0=(65536-50000)/256;TL0=(65536-50000)%256;EA=1;ET0=1;TR0=1;/開定時器0xieins(0x80);for(num=0;num<16;num+)xieda(table1num);/ 顯示第一行delay(5);xieins(0xc4);for(num=0;num<8;num+)xieda(table2num);/顯示第二行delay(5);void display(uchar add,uchar dat)/ 地址數(shù)據(jù)uchar shi,ge;shi=dat/10;ge=dat%10;
5、xieins(add);delay(5);xieda(shi+0x30);delay(5);xieda(ge+0x30);delay(5);void timer0() interrupt 1num20+;TH0=(65536-50000)/256;TL0=(65536-50000)%256;if(num20=20)num20=0;miao+;if(miao=60)miao=0;fen+;if(fen=60)fen=0;shi+;if(shi=24)shi=0;ri+;xieweek();/week+;if(ri=31)/ 可定意義變量ri=1;yue+;if(yue=13)yue=1;nian
6、+;display(0x82,nian);display(0x85,yue);display(0x88,ri);display(0xc4,shi);display(0xc7,fen);display(0xca,miao);void keyscan()if(stop=0)delay(10);if(stop=0)while(!stop);TR0=0;ci+;xieins(0x0f);/ 顯示光標(biāo)光標(biāo)閃爍if(ci=1)xieins(0xcb);if(ci=2)xieins(0xc8);if(ci=3)xieins(0xc5);if(ci=4)xieins(0x8d);if(ci=5)xieins(
7、0x89);if(ci=6)xieins(0x86);if(ci=7)xieins(0x83);if(ci=8)ci=0;xieins(0x0c);TR0=1;if(jia=0)delay(10);if(jia=0)while(!jia);if(ci=1)miao+;if(miao=60)miao=0;display(0xca,miao);xieins(0xcb);if(ci=2)fen+;if(fen=60)fen=0;display(0xc7,fen);xieins(0xc8);if(ci=3)shi+;if(shi=24)shi=0;display(0xc4,shi);xieins(0x
8、c5);if(ci=4)week+;if(week=7)week=0;xieweek();/display(0x8d,week);xieins(0x8f);if(ci=5)ri+;if(ri=31)ri=1;display(0x88,ri);xieins(0x89);if(ci=6)yue+;if(yue=13)yue=1;display(0x85,yue);xieins(0x86);if(ci=7)nian+;display(0x82,nian);xieins(0x83);if(jian=0)delay(10);if(jian=0)while(!jian);if(ci=1)if(miao=0
9、)miao=60;miao-;display(0xca,miao);xieins(0xcb);if(ci=2)if(fen=0)fen=60;fen-;display(0xc7,fen);xieins(0xc8);if(ci=3)if(shi=0)shi=24;shi-;display(0xc4,shi);xieins(0xc5);if(ci=4)if(week=0)week=7;week-;xieweek();/display(0x8d,week);xieins(0x8f);if(ci=5)if(ri=1)ri=31;ri-;display(0x88,ri);xieins(0x89);if(ci=6)if(yue=1)yue=13;yue-;display(0x85,yue);xieins(0x86);if(ci=7)
溫馨提示
- 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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024收養(yǎng)協(xié)議書錦集:收養(yǎng)評估與干預(yù)服務(wù)手冊3篇
- 2024虛擬現(xiàn)實游戲內(nèi)容開發(fā)與分成合同
- 二零二五年度便利店商品溯源系統(tǒng)開發(fā)合同3篇
- 2024長期采購的合同
- 2025年度租賃車輛環(huán)保排放檢測及整改協(xié)議2篇
- 二零二五版房產(chǎn)抵押購銷與房地產(chǎn)稅務(wù)籌劃合同3篇
- 2025年度個人與房地產(chǎn)中介服務(wù)借款合同規(guī)范3篇
- 2025年幼兒園幼兒意外傷害保險合同3篇
- 2025年度存量房交易鑒證服務(wù)合同范本3篇
- 二零二五年度植物標(biāo)本制作與提供合同3篇
- 2025年蛇年春聯(lián)帶橫批-蛇年對聯(lián)大全新春對聯(lián)集錦
- 表B. 0 .11工程款支付報審表
- 警務(wù)航空無人機(jī)考試題庫及答案
- 空氣自動站儀器運營維護(hù)項目操作說明以及簡單故障處理
- 新生兒窒息復(fù)蘇正壓通氣課件
- 2022年12月Python-一級等級考試真題(附答案-解析)
- 法律顧問投標(biāo)書
- 班主任培訓(xùn)簡報4篇(一)
- 成都市數(shù)學(xué)八年級上冊期末試卷含答案
- T-CHSA 020-2023 上頜骨缺損手術(shù)功能修復(fù)重建的專家共識
- 危重癥患者轉(zhuǎn)運指南-課件
評論
0/150
提交評論