欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 51單片機超省P口的鍵盤程序，帶proteus仿真 [打印本頁]

作者: q109744884 時間: 2011-4-4 15:49
標題: 51單片機超省P口的鍵盤程序，帶proteus仿真

最近寫了個超省P口的鍵盤程序，因為在實際中只用到了27個鍵，其中一個是復位鍵，不算，這樣如果P2八個口用滿的話可以帶4*16=64個鍵盤，論壇上有需要那么多鍵的可以找我，可以留言給我。

我先貼出我在用的27鍵仿真圖.

dlledok.rar (24.71 KB, 下載次數: 68)

作者: q109744884 時間: 2011-4-4 16:39

DT    EQU 21H
KEYBK EQU 22H
KV    EQU 23H
D11   EQU 24H
D12   EQU 25H
MYP2  EQU 26H
ORG 0000H

AJMP START
ORG 000BH ;定時器T0的入口

AJMP DISP ;顯示程序

ORG 30H


START:

MOV SP,#5FH ;設置堆棧
MOV MYP2,#0FCH;保存P2口初設值

MOV DPTR,#ASCII
MOV DT ,#0AH ;可以調整延時時間
MOV KV,#0H ;保存當前所按鍵的值
MOV TMOD,#00000001B ;定時器T0工作于模式1（16位定時/計數模式）

MOV TH0,#HIGH(65535-1000)
MOV TL0,#LOW(65535-1000) ;賦定時器初值,這里為了驗證秒數正確性，設一開機就進入定時中斷

SETB EA
SETB ET0 ;開T0中斷

SETB TR0  ;啟動定時器


LOOP:
;加入你要的工作
AJMP LOOP
;;;;;;;;;;;;;;;

DISP:
MOV TH0,#HIGH(65535-1000)
MOV TL0,#LOW(65535-1000) ;賦定時器初值

DEC MYP2 ; FC減一就是FB了
;從F0到FB共12個LED數碼管，
;我這里管的接法是根據我在用的板子接的，不是abcdefgh順序對的
MOV A,MYP2 
CJNE A,#0EFH,NEXT;一個個數碼管顯示的，比較是否己是最后一個，
;因為我是從第十二個開始掃描的，也就是fb, MOV MYP2,#0FCH;保存P2口初設值
第一個是F0，再減一就成EF了。
MOV MYP2,#0FBH; 如果是第一個了就把初值重置成第十二個的值,不是跳到next


NEXT:
MOV A,MYP2
CJNE A,#0F1H,DISP12  ;我這里只用到了每一二兩個數碼管用于顯示
MOV P2,MYP2

MOV P0,D12
LCALL SCANKEY ;顯示后調用鍵盤掃描子程序
;LCALL DELAY10MS
RETI

DISP12:
CJNE A,#0F0H,OTHER
MOV P2,MYP2
MOV P0,D11
LCALL SCANKEY
LCALL DELAY10MS
RETI

OTHER:
MOV P2,MYP2  ;不是第一和二的管不顯示
MOV P0,#0FFH

LCALL SCANKEY
RETI
;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SCANKEY:
PUSH PSW
PUSH ACC

MOV A,P2
MOV KEYBK,A
LCALL DELAY10MS
MOV A,P2
CJNE A,KEYBK,RELOOP
CJNE A,#0F9H,NOSAME;檢測是不是真的有按鍵，沒有就返回中斷
NOSAME:
JNC RELOOP
CJNE A,#0B9H,KL3
KL3:
JNC KL2
MOV A,KEYBK
CLR C
SUBB A,#09DH;這里的算法是按鍵值減去一個值，得到在要顯示的鍵值，
;轉化后去碼表中得取得數碼管能顯示的相應值
MOV KV,A
AJMP RELOOP

KL2:
CJNE A,#0D9H,KL2SET
KL2SET:
JNC KL1
MOV A,KEYBK
CLR C
SUBB A,#0C6H
MOV KV,A
AJMP RELOOP

KL1:
CJNE A,#0E9H,KL1SET
KL1SET:
JNC RELOOP

MOV A,KEYBK
CLR C
SUBB A,#0DFH
MOV KV,A
AJMP RELOOP

RELOOP:
MOV A,KV
CJNE A,#0H,CUTKEY
MOV D11,#041H
MOV D12,#041H
POP ACC
POP PSW
RET


CUTKEY:
MOV B,#0AH
DIV AB
MOVC A,@A+DPTR
MOV D11,A
MOV A,B
MOVC A,@A+DPTR
MOV D12,A
POP ACC
POP PSW
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DELAY10MS:       ;延時函數

PUSH PSW

SETB RS0
    MOV    R7,DT
D1:
    MOV    R6,#032H
    DJNZ    R6,$
    DJNZ    R7,D1
POP PSW
    RET

ASCII: DB  041H,077H,0c2H,052H,074H   ;數字碼表 因為管腳接法不同，所以0-9值不同
       DB  058H,048H,073H,040H,050H
       
;

END

作者: yezhiyan 時間: 2012-4-25 23:35
瞧瞧！

作者: a1105731580 時間: 2013-4-26 09:00
不能下載，，，，，，，，，，，，，

作者: iamwu 時間: 2014-4-22 13:54
看了一下

作者: helh 時間: 2014-5-27 23:25
下來學習

作者: 金屬蒙皮 時間: 2014-6-9 11:36
下來學習,感謝共享。

歡迎光臨 (http://www.raoushi.com/bbs/)