No.101196 作者:zhaobao51 邮件:zhaobao51@163.com ID:43575 登陆:13次 文章数:9篇 最后登陆IP:58.61.55.235 最后登陆:2007/11/13 10:25:57 注册:2005/11/11 14:53:06 财富:154 发帖时间:2006/12/29 20:51:51 发贴者IP:58.61.103.118 标题:zhaobao51:按键连发怎么搞?下面的程序是按键轮流亮灯,按一下亮一个灯,长按一秒以上连续轮流亮怎么做? 摘要:No.101196按键连发怎么搞?下面的程序是按键轮流亮灯,按一下亮一个灯,长按一秒以上连续轮流亮怎么做? ID EQU 30H K1 BIT P3.3 K2 BIT P3.4 L1 BIT P2.0 L2 BIT P2.1 L3 BIT P2.2 L4 BIT P2.3 L5 BIT P2.4 L6 BIT P2.5 L7 BIT P2.6 ORG 00H START: MOV ID,#00H KK1: JB K1,KK2 LCALL DELAY20MS ;10MS:可靠性低 JB K1,KK2 INC ID MOV A,ID CJNE A,#07,REL MOV ID,#-1H KK2: JB K2,REL LCALL DELAY20MS ;10MS:可靠性低 JB K2,REL DEC ID MOV A,ID CJNE A,#-1,REL MOV ID,#06H ;07H:ERR ;RET:err REL: JNB K1,$ JNB K2,$ LCALL DELAY20MS ;*** ;JB K1,ZJ ;*** ;JB K2,REL ;*** MOV A,ID CJNE A,#00H,IS0 ORL P2,#01111111B ;*** CLR L1 ;*** LJMP KK1 ;START:ERR IS0: CJNE A,#01H,IS1 ORL P2,#01111111B ;*** CLR L2 ;*** LJMP KK1 ......
>>返回讨论的主题
|