红外遥控器与51单片机

org 00h ORG 30H MOV P1,#0FFH MOV P2,#0FFH MOV P3,#0FFH START:

JB P3.7,$等待遥控信号出现 SB: MOV R4,#8 8毫秒为高电平错误 SBA: MOV R5,#250 SBB: JB P3.7,SXB1 DJNZ R5,SBB DJNZ R4,SBA MOV R4,#2 JMP SBC SXB1: MOV R5,#5 SXB2: 去掉20US的尖峰干扰信号 JNB P3.7,SBB DJNZ R5,SXB2 JMP START SBC: MOV R5,#250 SB1: JB P3.7,SB2 2MS内不为高电平错误（监测9MS的低电 平引导码） DJNZ R5,SB1 DJNZ R4,SBC JMP START SB2: 去掉20US的尖峰干扰信号 MOV R5,#5 SB2_A: JNB P3.7,SB1 DJNZ R5,SB2_A MOV R4,#3 SB2_1: MOV R5,#250 SB3: 监测4.5MS高电平，如3MS内出现低电平错误 JNB P3.7,SXC DJNZ R5,SB3 DJNZ R4,SB2_1 MOV R4,#2 JMP SB3_1 SXC: 去掉20US的尖峰干扰信号 MOV R5,#5 SXC1: JB P3.7,SB3 DJNZ R5,SXC1 JMP START SB3_1: 监测4.5MS高电平，如5MS内不为低电平错误 MOV R5,#250 SB3_2: JNB P3.7,SB4 DJNZ R5,SB3_2 DJNZ R4,SB3_1 JMP START SB4: 去掉20US的尖峰干扰信号 MOV R5,#5 SB4_1: JB P3.7,SB3_2 DJNZ R5,SB4_1 MOV R1,#1AH 设定1AH为起始RAM区 MOV R2,#4 PP: MOV R3,#8 JJJJ: MOV R5,#250 JJJJ2: 1MS内不为低电平错误 JB P3.7,JJJJ3 DJNZ R5,JJJJ2 JMP START JJJJ3: LCALL YS1 高电平开始后用882微秒的时间尺去判断信 号此时的高低电平状态 MOV C,P3.7 将P3.7引脚此时的电平状态0或1存入C中 JNC UUU 如果为0就跳转到UUU MOV R5,#250 JJJJ4: JNB P3.7,UUU NOP DJNZ R5,JJJJ4 JMP START UUU:MOV A,@R1 将R1中地址的给A RRC A 将C中的值0或1移入A中的最低位 MOV @R1,A 将A中的数暂时存放在R1中 DJNZ R3,JJJJ 接收地址码的高8位 INC R1 对R1中的值加1，换成下一个RAM DJNZ R2,PP 接收完16位地址码和8位数据码和8位数据 反码，存放在1AH/1BH/1CH/1DH的RAM中 以下对代码是否正确和定义进行识别 MOV A,1AH比较高8位地址码 XRL A,#00000000B判断1AH的值是否等于00000000， 相等的话A为0 JNZ EXIT如果不相等说明解码失败退出解码程序 MOV A,1BH比较低8位地址 XRL A,#11111111B再判断高8位地址是否正确 JNZ EXIT如果不相等说明解码失败退出解码程序 LCALL YS3 MOV A,1CH比较数据码和数据反码是否正确? CPL A XRL A,1DH 将1CH的值取反后和1DH比较 不同则无效丢 弃，核对数据是否准确 JNZ EXIT如果不相等说明解码失败退出解码程序 LCALL YS3 AJMP BIJIAO 判断在118毫秒内是否有连发码 AA:MOV R1,#25 XX:ACALL YS2 JNB P3.7,HH跳转到判断连发代码是否正确的程序段 DJNZ R1,XX EXIT: 对所有端口清零

AJMP START 连发码判断程序段-----------HH:MOV R6,#4 S: ACALL YS1调用882微秒延时子程序 JB P3.7,EXIT延时882微秒后判断P3.7脚是否出现高电平 如果有就退出解码程序 DJNZ R6, S重复4次，目的是确认连发码的低电平信号波 形 JNB P3.7, $ 等待高电? LCALL YS3 AJMP AA

BIJIAO:MOV A,1CH按键数值判断执 CJNE A,#10h,TT1 clr p0.0 TT1: CJNE A,#03h,T2 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.1 T2: CJNE A,#01h,T3 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.2 T3: CJNE A,#06h,T4 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.3 T4: CJNE A,#09h,T5 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.4 T5: CJNE A,#1dh,T6 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.5 T6:CJNE A,#1fh,T7 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.6 T7: CJNE A,#0dh,T8 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p0.7 T8:CJNE A,#19h,t9 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.0 T9:CJNE A,#1bh,t10 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.1 T10: CJNE A,#11h,t11 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.2 T11: CJNE A,#15h,t12 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.3 T12: CJNE A,#17h,t13 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.4 T13: CJNE A,#12h,t14 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.5 T14: CJNE A,#16h,t15 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.6 T15: CJNE A,#4ch,t16 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p1.7 T16: CJNE A,#40h,t17 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.0 T17: CJNE A,#48h,t18 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.1 T18: CJNE A,#04h,t19 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.2 T19: CJNE A,#00h,t20 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.3 T20: CJNE A,#02h,t21 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.4 T21: CJNE A,#05h,t22 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.5 T22: CJNE A,#54h,t23 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.6 T23: CJNE A,#4dh,t24 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p2.7 T24: CJNE A,#0ah,t25 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p3.0 T25: CJNE A,#1eh,t26 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p3.1 T26: CJNE A,#0eh,t27 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p3.2 T27: CJNE A,#,t28 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p3.3 T28: CJNE A,#1ch,t29 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p3.4 T29: CJNE A,#14h,t31 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

clr p3.5 T31: CJNE A,#0ch,t32 mov p0,#0ffh mov p1,#0ffh mov p2,#0ffh mov p3,#0ffh

t32:AJMP AA YS1:MOV R4,#20 延时子程序1，精确延时882微秒 D1: MOV R5,#20 DJNZ R5,$ DJNZ R4,D1 RET YS2: MOV R4,#10 延时子程序2，精确延时4740微秒 D2: MOV R5,#235 DJNZ R5,$ DJNZ R4,D2 RET YS3:MOV R4,#2延时程序3，精确延时1000微秒 D3:MOV R5,#248 DJNZ R5,$ DJNZ R4,D3 RET END

这个你要下载个E模块 或着加载WINIO 不然普通的按键消息会被游戏屏蔽掉

下面是用易自带的命令 写的连发源码 但中间的按键你要改下

.版本 2

.支持库 shellEx

.支持库 eAPI

.子程序 __启动窗口_创建完毕

注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F键)

' 按下F键就可以连续按 x 键 再按下F键就可以停下按 x 键

.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.如果 (时钟1.时钟周期 ＝ 0)

时钟1.时钟周期 ＝ 1

.否则

时钟1.时钟周期 ＝ 0

.如果结束

.子程序 _时钟1_周期事件

模拟按键 (#X键, , )  ' 这里改成E模块里的按键命令

---