電子搶答器單片機(jī)的設(shè)計(jì)-閱讀頁(yè)
2025-07-15 08:02本頁(yè)面
【正文】 ey,j,time。 /* 將P2輸入的數(shù)據(jù)直接放入變量temp當(dāng)中 */delay()。switch(temp) {case 0xfe: key = 1。case 0xfd: key = 2。case 0xfb: key = 3。case 0xf7: key = 4。case 0xef: key = 5。case 0xdf: key = 6。case 0xbf: key = 7。case 0x7f: key = 8。default : break。time0。SCON=0x00。while(TI!=1)。}}else { j=table[key]。SBUF=j。TI=0。) /*指示顯示,并實(shí)現(xiàn)鎖鍵功能*/{ P1=temp。}}}}搶答器加減記分顯示程序:DBUF EQU 30H 。調(diào)用鍵盤掃描子程序判斷是加分或減分CJNE A,0EH,NEXT2 。是加分鍵,調(diào)用鍵盤設(shè)置子程序ACALL DISPLAY 。都不是,則轉(zhuǎn)MAINAJMP NEXT1 。鍵盤設(shè)置子程序PUSH ACCSETB RS1MOV R0,DBUF 。設(shè)置鍵盤輸入位數(shù)L1: CLR RS1ACALL KEYSCAN 。鍵入數(shù)合法性檢測(cè)（是否大于9）L2: JNC L1 。鍵號(hào)送顯示緩沖區(qū)INC R0DJNZ R7,L1 。掃描初值（=0）MOV R1, 00H 。開始掃描MOV P1, A 。讀入P1值,判斷是否有鍵按下MOV R4, A 。C=1MOV R5, 04H 。將按鍵左移一位JNC KEYIN 。C=1,則無鍵按下,將取碼指針值加1DJNZ R5, L4 。掃描值載入SETB C 。掃描下一行(～)MOV R3, A 。C=1?SJMP KEYSCAN 。延時(shí)消除抖動(dòng)D2: MOV R6, 248 。DJNZ R7, D2 。延時(shí)后再讀入P1值XRL A, R4 。A=0,表示按鍵未放,等待按鍵釋放MOV A, R1 。鍵盤碼表首地址送DPTRMOVC A, A+DPTR 。返回TABLE: DB 00H,01H,02H,03H 。串口靜態(tài)顯示子程序MOV R2,3 。DISP: MOV A,R0 。取字段碼MOV SCON,0 。開始發(fā)送JNB TI,$ 。發(fā)送完畢,標(biāo)志位清零INC R0 。三位數(shù)碼發(fā)送完否?RET 。0,1,2,3（共陽(yáng)極字段碼表）DB 66H,0B6H, 0BEH,0E0H 。8,9,A,BDB 9CH,7AH,9EH,8EH 。三位顯示緩沖區(qū)首址ORG 0000HAJMP MAINORG 0030HMAIN: MOV SP,60HACALL KEYSCAN 。不是加分鍵,則轉(zhuǎn)移判斷是減分鍵?NEXT1: ACALL KEYSZ 。調(diào)用串口靜態(tài)顯示子程序SJMP MAINNEXT2: CJNE A,0FH,MAIN 。是減分鍵,調(diào)用鍵盤設(shè)置子程序ORG 0100HKEYSZ: PUSH PSW 。R0指向顯示緩沖區(qū)首地址MOV R7,3 。調(diào)用鍵盤掃描子程序取按下鍵的鍵號(hào)SETB RS1CJNE A,0AH,L2 。大于9,重新鍵入MOV R0,A 。3位數(shù)值輸入完否？未完繼續(xù),否則返回POP ACCPOP PSWCLR RS1RETKEYSCAN: MOV R3, 0F7H 。取碼指針L3: MOV A, R3 。將掃描值輸出至P1MOV A, P0 。存入R4,以判斷按鍵是否放開SETB C ?！獿4: RLC A 。判斷C=0?有鍵按下則C=0,跳至KEYININC R1 。4列掃描完畢了嗎?MOV A, R3 。C=1RRC A 。存回掃描寄存器JC L3 。C=0,則四行已掃描完畢KEYIN: MOV R7, 60 。DJNZ R6, $ 。D3: MOV A, P0 。與上次讀入值作比較JZ D3 。按鍵已放開,取碼指針載入累加器MOV DPTR,TABLE 。查鍵碼RET 。鍵碼安排表與鍵盤相同DB 04H,05H,06H,07HDB 08H,09H,0AH,0BHDB 0CH,0DH,0EH,0FHORG 0200HDISPLAY:MOV R0, DBUF 。顯示3位數(shù)碼MOV DPTR,SEGTAB。MOVC A,A+DPTR 。置串口工作方式0MOV SBUF,A 。等待發(fā)送完畢CLR TI 。緩沖單元地址增1DJNZ R2,DISP 。發(fā)送完畢,則返回SEGTAB: DB 0FCH,60H,0DAH,0F2H 。4,5,6,7DB 0FEH,0F6H,0EEH,3EH 。C,D,+,E
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1