每次按下RB2的按鍵,輸出不同的結(jié)果,這個(gè)實(shí)例是:每按下1次RB2,C口的燈從低位開(kāi)始顯示,規(guī)律是:RC0-RC7的8個(gè)LED燈循環(huán)顯示其實(shí),讀者可以變通一下,每按一下RB2,可以電亮一盞燈,可以執(zhí)行一段程序,通過(guò)反復(fù)按壓RB2可以實(shí)現(xiàn)多種功能循環(huán)的復(fù)雜程序.我就用他作了一個(gè)7音警報(bào)器程序.可見(jiàn),鍵判斷的應(yīng)用是很廣的,下邊是實(shí)驗(yàn)學(xué)習(xí)程序: LIST P=PIC16F876A #INCLUDE P16F876A.INC;

*************************************COUNT1 EQU 20h ;定義一個(gè)廷時(shí)變量寄存器COUNT2 EQU 21h ;定義另一個(gè)廷時(shí)變量寄存器 ORG 0 GOTO START ORG D'20'START BSF STATUS,RP0 MOVLW B'00011111' MOVWF TRISB MOVLW B'00000000' MOVWF TRISC BCF OPTION_REG,7 BCF STATUS,RP0;

***************************************LOOP0 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP0 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP0 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,0 ;置C口0為1LOOP1 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP1 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP1 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;

***************************** LOOP2 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP2 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP2 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,1 ;置C口1為1LOOP3 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP3 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP3 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;*****************************

LOOP4 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP4 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP4 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,2 ;置C口2為1LOOP5 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP5 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP5 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;

***************************** LOOP6 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP6 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP6 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,3 ;置C口3為1LOOP7 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP7 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP7 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;

*****************************LOOP8 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP8 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP8 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,4 ;置C口4為1LOOP9 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP9 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP9 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;

*****************************LOOP10 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP10 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP10 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,5 ;置C口5為1LOOP11 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP11 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP11 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;

***************************** LOOP12 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP12 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP12 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,6 ;置C口6為1LOOP13 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP13 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP13 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) ;

***************************** LOOP14 BTFSC PORTB,2 ;測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP14 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 BTFSC PORTB,2 ;再次測(cè)試S2按下否？是！跳過(guò)下條指令 GOTO LOOP14 ;為1,沒(méi)按下,繼續(xù)判斷 CALL DELAY ;調(diào)用延時(shí),消抖 CLRF PORTC BSF PORTC,7 ;置C口7為1LOOP15 BTFSS PORTB,2 ;判斷松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP15 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;調(diào)用延時(shí),消抖動(dòng) BTFSS PORTB,2 ;再次判斷S2松開(kāi)否?為1,松開(kāi)了,跳一步 GOTO LOOP15 ;為0,沒(méi)放開(kāi),等待 CALL DELAY ;為0,按鍵按下了,調(diào)用消抖動(dòng) GOTO LOOP0;

****************************DELAY MOVLW D'13' MOVWF COUNT2LOP0 MOVLW D'255' MOVWF COUNT1 DECFSZ COUNT1,1 ;延時(shí)消抖程序 GOTO $-1 DECFSZ COUNT2,1 GOTO LOP0 RETURN;*****************************

 END