作者ruemann (此人挂网中……)
看板ASM
标题Re: [问题] 键盘扫描的PORT问题
时间Sun Apr 6 21:05:51 2008
ROW REG R2 ;ROW=R2
KEYFLAG REG R3 ;KEYFLAG=R3
START:
MOV P0,#0 ;P0=0,8个LED熄灭
LOOP1:
MOV P2,#0EFH ;P2=0EFH,初始扫描线
MOV ROW,#0 ;ROW=0,设为第0列
NEXT1:
MOV A,P2 ;A=P2,获得状态
ANL A,#0FH ;A=A&0FH,保留低4Bits
CJNE A,#0FH,OUT1 ;若A<>0FH(有按键),则跳至OUT1
MOV A,P2 ;A=P2
RL A ;A=A<-A,左移一位
ORL A, #0F0H ; 这行不一定要
MOV P2,A ;P2=A,得新扫描线
INC ROW ;ROW=ROW+1,下一列
CJNE ROW,#5,NEXT1 ;若ROW<>5,则跳至NEXT1
SJMP LOOP1 ;GOTO LOOP1
OUT1:
ACALL DELAY20MS ;呼叫延迟20毫秒(消除弹跳)
MOV A,P2 ;A=P2,获得状态
ANL A,#0FH ;A=A&0FH,保留低4Bits
CJNE A,#0FH,OUT2 ;若A<>0FH(有按键),则跳至OUT2
SJMP LOOP1 ;GOTO LOOP1
OUT2:
MOV DPTR,#IDXCOL ;DPTR=#IDXCOL之位址
MOVC A,@A+DPTR ;A=[DPTR+A]位址上的资料
MOV B,A ;B=A
MOV A,ROW ;A=ROW
RL A ;A=A<-A
RL A ;A=A<-A,左移二次为其乘4
ANL A,
#11111100B ;A=A&0FCH,去掉低2Bits
ADD A,B ;A=A+B,获得健值
MOV P0,A ;P0=A,输出LED显示
LOOP2: ;此处为避免重覆按键
MOV A,P2 ;A=P2,获得状态
ANL A,#0FH ;A=A&0FH,保留低4Bits
CJNE A,#0FH,LOOP2 ;若A<>0FH(有按键),则跳至LOOP2
ACALL DELAY20MS ;呼叫延迟20毫秒(消除弹跳)
MOV A,P2 ;A=P2
ANL A,#0FH ;A=A&0FH,保留低4Bits
CJNE A,#0FH,LOOP2 ;若A<>0FH(有按键),则跳至LOOP2
SJMP LOOP1 ;GOTO LOOP1
DELAY20MS:
ACALL DELAY10MS ;呼叫延迟10毫秒
ACALL DELAY10MS ;呼叫延迟10毫秒
RET
include delay.inc ;
IDXCOL: ;计算键值资料区
DB 0,1,0,2
DB 0,1,0,3
DB 0,1,0,2
DB 0,1,0,4
END ;程式结束
以上是这套软体里面的范例，
线路的设定是P1.0 P1.1 P1.2 P1.3为键盘的输入，
P2.0 P2.1 P2.2 P2.3为键盘的输出，
因为这样的设定，会浪费到PORT1.4~1.7和2.4~2.7，
所以想说把P1.0~P1.3的部分转移到P2.4~2.7
没有改几行，不过应该可以达成你要的功能，先试试看吧
--
我只是个想赚 P 币的迷途小羔羊
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.70.244.225
1F：推 zmc0076:谢谢你，这个改法好像还是不行= =" 04/07 14:49
2F：→ ruemann:跑出什麽结果？ 04/07 22:11
3F：推 zmc0076:好改好了~~不好意思这麽久才来回~~ 04/13 14:26
4F：→ zmc0076:总共改的地方 P1全部改成P2 ROW回圈改成4 初始扫描EF 04/13 14:27
5F：→ zmc0076:就这几个地方而已，但是有时会错乱，我还在找原因~ 04/13 14:27
6F：→ zmc0076:不过基本LED灯已经可以从0~F了 04/13 14:29