最佳答案

是用51自身做計時嗎？？ 用中斷計時會好一些吧 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;系統名稱: 數字鐘 ;創健人:濟南, 日期:2005.6.19 ;系統功能描述: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;修改人: 修改日期: ;修改原因: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;蕊片型號:AT89C51 晶振:12MHZ ;-------------硬件連接--------------------- ; ; ;----------------------------------------------- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱: 聲明區 ;功能描述: 聲明各常量和變量 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SECOND EQU 30H ;存儲妙 MINITE EQU 31H ;存儲分 HOUR EQU 32H ;存儲時 SPEAKER BIT P3.7 HOURK BIT P3.2 ;時鍵 MINITEK BIT P3.3 ;分鍵 SECONDK BIT P3.0 ;妙鍵 FLAG BIT 00H FLAG1S BIT 01H ;1S到標志位. DISPBUF EQU 40H ; 段選標志 DISPBIT EQU 48H ; 位選通標志 T2SCNTA EQU 49H ; 中斷次數 T2SCNTB EQU 4AH ; 中斷次數 TEMP EQU 4BH ; 初始化位 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:主程序 ;功能描述; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ORG 00H LJMP START ORG 0BH LJMP INT_T0 ;T0中斷入口 START: MOV SECOND,#00H ;妙初始化0 MOV MINITE,#00H ;分初始化0 MOV HOUR,#12 ;時始化送12 MOV DISPBIT,#00H ;位選通標志 MOV T2SCNTA,#00H ;標志 MOV T2SCNTB,#00H ;標志 CLR FLAG CLR FLAG1S SETB SPEAKER MOV TEMP,#07FH ;初始位,讓第一個位選通 LCALL DISP ;調用顯示處理程序 MOV TMOD,#01H ;方式1 MOV TH0,#0F8H ;賦值20MS MOV TL0,#030H SETB TR0 ;開中斷啟動 SETB ET0 SETB EA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:按鍵程序 ;功能描述;調整分,時 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WT: JNB FLAG,CC LCALL SPEAKING CC: JB SECONDK,NK1 ;妙末按下,轉去判斷分鍵 LCALL DELY10MS ;按下,延時,消抖動 JB SECONDK,NK1 ;再次判斷是否按下? INC SECOND ;按下,按下一次加1 MOV A,SECOND ;送A判斷 CJNE A,#60,NS60 ;妙末到60轉分 MOV SECOND,#00H ;到了,回0 NS60: LCALL DISP JNB SECONDK,$ ;等待妙鍵釋放 NK1: JB MINITEK,NK2 ;跟妙鍵分析相似 LCALL DELY10MS JB MINITEK,NK2 INC MINITE MOV A,MINITE CJNE A,#60,NM60 MOV MINITE,#00H NM60: LCALL DISP JNB MINITEK,$ NK2: JB HOURK,NK3 ;時鍵 LCALL DELY10MS JB HOURK,NK3 INC HOUR MOV A,HOUR CJNE A,#24,NH24 MOV HOUR,#00H NH24: LCALL DISP JNB HOURK,$ ;等待時鍵釋放 NK3: LJMP WT ;返回 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:顯示處理程序 ;功能描述;,該程序實現時,分,秒計時轉換為BCD碼并存儲在以47H起始地址的顯示 ;輸出數據存儲單元里,即顯示緩沖區47H至40H單元 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DISP: MOV A,#DISPBUF ;送40H ADD A,#7 ;加8 ;DEC A MOV R1,A ;送47H MOV A,HOUR ;送時 MOV B,#10 DIV AB MOV @R1,A ;存儲時十位 DEC R1 ;指向時個位 MOV A,B ;送時個位 MOV @R1,A ;存儲時個位 DEC R1 MOV A,#10 MOV @R1,A DEC R1 MOV A,MINITE ; 送分,處理與時處理類似 MOV B,#10 DIV AB MOV @R1,A DEC R1 MOV A,B MOV @R1,A DEC R1 MOV A,#10 MOV @R1,A DEC R1 MOV A,SECOND ;送秒 MOV B,#10 DIV AB MOV @R1,A DEC R1 MOV A,B MOV @R1,A DEC R1 RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:顯示程序 ;功能描述;在LED上顯示為12-12-12顯示模式. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; INT_T0: MOV TH0,#0F8H ;重賦值 MOV TL0,#030H MOV A,#DISPBUF ;段偏移存儲 ADD A,DISPBIT ;位偏移量 MOV R0,A ;段偏移存儲 MOV A,@R0 ;段偏移量 MOV DPTR,#TABLE ;指向字形表 MOVC A,@A+DPTR ;取字形 MOV P0,#0 ;防閃爍 MOV P0,A ; 字形選P1口顯示 MOV A,DISPBIT ;位移偏量 MOV DPTR,#TAB ;指向位選 MOVC A,@A+DPTR ;取位選通 MOV P2,A ;位送P3口選通 INC DISPBIT ;位偏移加1 MOV A,DISPBIT ;位偏移送A CJNE A,#08H,KNA ;八個數管碼掃描完不? MOV DISPBIT,#00H ;描完重新開始 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:1秒計時程序 ;功能描述; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; KNA: INC T2SCNTA MOV A,T2SCNTA CJNE A,#100,DONE MOV T2SCNTA,#00H INC T2SCNTB MOV A,T2SCNTB CJNE A,#05H,DONE SETB FLAG1S MOV T2SCNTB,#00H INC SECOND ;秒加1 MOV A,SECOND CJNE A,#50,BB ;50S到. MOV A,MINITE CJNE A,#59,BB ;59分 SETB FLAG ;打開正點響標志. BB: MOV A,SECOND CJNE A,#60,NEXT ;秒超過60了沒有? 沒有,調用顯示處理程序 MOV SECOND,#00H INC MINITE ;分加1 MOV A,MINITE CJNE A,#60,NEXT MOV MINITE,#00H ;分超過60,清0 INC HOUR ;并時加1 MOV A,HOUR CJNE A,#24,NEXT ;是否超過24小時?不是,則跳至NEXT MOV HOUR,#00H NEXT: LCALL DISP ; 調用顯示處理程序 DONE: RETI ;中斷返回 TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,40H ;0到9字形(40表示橫扛) TAB: DB 07FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:正點報時子程序 ;功能描述; 前十秒報第一聲,每隔一秒報一聲. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SPEAKING:MOV R5,#6 AA: CLR SPEAKER JNB FLAG1S,$ ;延時1S. CLR FLAG1S SETB SPEAKER JNB FLAG1S,$ CLR FLAG1S DJNZ R5,AA CLR FLAG RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;程序名稱:延時子程序 ;功能描述;按鍵消抖調用. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DELY10MS:MOV R6,#10 D1: MOV R7,#248 DJNZ R7,$ DJNZ R6,D1 RET

回答者：ryergwer2016-07-02 00:00