基于at89c51單片機(jī)的智能開(kāi)關(guān)設(shè)計(jì)畢業(yè)設(shè)計(jì)-資料下載頁(yè)
2025-06-27 18:10本頁(yè)面
【正文】 附錄A 總原理圖附錄B 溫度顯示仿真圖附錄C 總程序ZHANG1 EQU 20H ZHANG2 EQU 21H ZHANG3 EQU 22H ZHANG4 EQU 23H SHANGH EQU 24H 。024 SHANGM EQU 25H 。060 SHANGS EQU 26H 。060 ORG 0000H LJMP SEN ORG 000BH LJMP SHUAI 。程序初始化： SEN: MOV SP,60H 。堆棧指針 MOV R0,ZHANG1 MOV R2,07H SEN1: MOV A,00H 。2026清零 MOV @R0,A INC R0 DJNZ R2,SEN1 MOV DPTR,TABLE 。定查表指針 MOV R3,20 。20次X50MS=1S MOV TMOD,01H 。T0為16位定時(shí) MOV TL0,0B0H 。50秒 MOV TH0,3CH 。總中斷 SETB EA 。允許T0中斷 SETB ET0 。開(kāi)啟T0中斷 SETB TR0 。啟動(dòng)T0計(jì)數(shù)。 主程序： MAIN: MOV R0,ZHANG4 。14數(shù)碼管顯示 MOV P0,@R0 CLR 。 LCALL LING CPL DEC R0 MOV P0,@R0 CLR LCALL LING CPL DEC R0MOV P0,@R0 CLR LCALL LING CPL DEC R0 MOV P0,@R0 CLR LCALL LING CPL MOVE A,00111111B 。判斷是否有鍵閉合 ORL A,P3 CPL A JZ MAIN LCALL LING 。去抖 MOV A,00111111B 。再看鍵是否閉合 ORL A,P1 CPL A JZ MAIN 。判斷哪個(gè)鍵閉合 JNB ,JIAN1 JNB ,JIAN2 。鍵處理： JIAN1: INC SHANGM 。分加1 MOV A,SHANG CJNE A,60,CHU MOV SHANG,00H LJMP CHU JIAN2: INC SHANGM 。時(shí)加1 MOV A,SHANGM CJNE A,24,CHU MOV SHANG,00HCHU: LJMP FANG。 按鍵放開(kāi)處理：FANG: MOV R0,ZHANG4 。14數(shù)碼管顯示 MOV P0,@R0 CLR LCALL LING CPL DEC R0 MOV P0,@R0 CLR LCALL LING CPL DEC R0 MOV A,ZHANG1 MOVC A,@A+DPTR MOV ZHANG1,A MOV P0,@R0 CLR LCALL LING CPL 。 DEC R0MOV P0,@R0 CLR LCALL LING CPL MOV A,00111111B ORL A,P1 CPL A JNZ FANG LJMP MAIN 。中斷程序： SHUAI: PUAH ACC PUAH PSW CLR ET0 CLR TR0 MOV TL0,0B7H 。修正后重裝初值 MOV TH0,3CH SETB ET0 SETB TR0 。開(kāi)啟T0 DJNZ R3,AUT 。20次=1s MOV R3,14H 。重裝20次 MOV SHANGS 。秒加1 INC A MOV SHANGS,A CJNE A,60,AUT MOV SHANGS,00 H MOV A,SHANGM 。分加1 INC A MOV SHANGM,A CJNE A,60,AUT 。未計(jì)滿60秒，返回 MOV SHANGM,00HMOV A,SAHNGH 。時(shí)加1 INC A MOV SHANGH,A CJNE A,24,AUT MOV SHANGH,00H AUT: MOV A,SHANGM 。秒加入顯示地址內(nèi) LCALL ZHOU MOV ZHANG4,B MOV ZHANG3,AMOV A,SHANGH 。時(shí)加入顯示地址內(nèi) LCALL ZHOU MOV ZHANG2,B MOV ZHANG1,A 。查表程序： MOV A,ZHANG1 。查出顯示碼后加到顯示區(qū) MOVC A,@A+DPTR MOV ZHANG1,A MOV A,ZHANG2 MOVC A,@A+DPTR MOV ZHANG2,A MOV A,ZAHNG3 MOVC A,@A+DPTR MOV ZAHNG3,A MOV A,ZAHNG4 MOVC A,@A+DPTR MOV ZAHNG4,A CJNE R3,01,MING 。 CLR MING: CJNE R3,10,LONG SETB LONG: POP PSW ?；謴?fù)現(xiàn)場(chǎng) POP ACC RET1。十六進(jìn)制轉(zhuǎn)換成十進(jìn)制： ZHOU: MOV B,0AH DIV AB RET。 延時(shí)程序：LING: MOV R5,20H CHEN: MOV R6,250 DJNZ R6,$ DJNZ R5,CHEN RETLING: MOV R5,20H CHEN: MOV R6,250 DJNZ R6,$ DJNZ R5,CHEN1 RET ENDTABLE: DB 11000000B 。 0 DB 0f9h 。1 DB 0a4h 。2 DB 0b0h 。3 DB 99h 。4 DB 92h 。5 DB 82h 。6 DB 0f8h 。7 DB 80h 。8 DB 90h 。9
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1