51单片机红外解码程1.doc

51单片机红外解码程序编者按：以下是网友编写的遥控解码程序！一种用延时等待的解码方法，比较容易理解，但缺点是占用CPU运行时间，第二种方法用定时器和外中断的解码方法，初学不易理解，但优点也很明显，第二种方法如果能解决连发解码就比较完美，更完善的红外遥控解码程序，请参考本站TOPAV-2008，TOP51-2005所配程序。解码方法一;/ 单片机 接收红外解读程序;硬件结构：8951，P0口数码管段码，P2.0-P2.3为位，P1为8个LED ;P3.2为红外接收头，P2.7蜂鸣器，晶振12M;适用UPD6121 6122芯片接收;-ORG 0000H AJMP MAIN ;转入主程序ORG 0003H ;外部中断P3.2脚INT0入口地址 AJMP INT ;转入外部中断服务子程序（解码程序）;以下为主程序进行CPU中断方式设置MAIN: SETB EA ;打开CPU总中断请求SETB IT0 ;设定INT0的触发方式为脉冲下降沿触发SETB EX0 ;打开INT0中断请求AJMP $;以下为进入P3.2脚外部中断子程序，也就是解码程序INT: CLR EA ;暂时关闭CPU的所有中断请求MOV R6,#10SB: ACALL YS1 ;调用882微秒延时子程序JB P3.2,EXIT ;延时882微秒后判断P3.2脚是否出现高; 电平如果有就退出解码程序DJNZ R6, SB ;重复10次，目的是检测在8820微秒内;如果出现高电平就退出解码程序;以上完成对遥控信号的9000微秒的初始低电平信号的识别。JNB P3.2, $ ;等待高电平避开9毫秒低电平引导脉冲ACALL YS2 ;延时4.74毫秒避开4.5毫秒的结果码MOV R1,#1AH ;设定1AH为起始RAM区MOV R2,#4 ;PP: MOV R3,#8JJJJ: JNB P3.2,$ ;等待地址码第一位的高电平信号LCALL YS1 ;高电平开始后用882微秒的时间尺去判断信;号此时的高低电平状态MOV C,P3.2 ;将P3.2引脚此时的电平状态0或1存入C中JNC UUU ;如果为0就跳转到UUULCALL YS3;UUU: MOV A,R1 ;将R1中地址的给ARRC A ;将C中的值0或1移入A中的最低位MOV R1,A ;将A中的数暂时存放在R1中DJNZ R3,JJJJ ;接收地址码的高8位INC R1 ;对R1中的值加1，换下一个RAMDJNZ R2,PP ;接收完16位地址码和8位数据码和8位数据反; 码，存放在1AH/1BH/1CH/1DH的RAM中MOV A,1CH ;比较数据码和数据反码是否正确?CPL AXRL A,1DH ;将1CH的值取反后和1DH比较 不同则无效丢弃，核对数据是否准确JNZ EXIT MOV DPTR,#TAB ;表头地址送指针MOV A,1DHANL A,#0FH ;相与，得到低四位码MOVC A,A+DPTRMOV 1EH,A ;查表得表码存入1EHMOV A,1DHSWAP A ANL A,#0FH MOVC A,A+DPTRMOV 1FH,A ;查表得高四位码存入1FMOV R7,#20H DISP:MOV P0,1FH ;送数码管显示CLR P2.1ACALL YS2SETB P2.1MOV P0,1EHCLR P2.2ACALL YS2SETB P2.2MOV P1,1DH ;将按键的键值通过P1口的8个LED显示出来!CLR P2.7 ;蜂鸣器鸣响嘀嘀嘀的声音，表示解码成功LCALL YS2SETB P2.7 ;蜂鸣器停止DJNZ R7,DISPEXIT: SETB EA ;允许中断RETI ;退出解码子程序YS1: MOV R4,#20 ;延时子程序1，精确延时882微秒D1: MOV R5,#20DJNZ R5,$DJNZ R4,D1 RETYS2: MOV R4,#10 ;延时子程序2，精确延时4740微秒D2: MOV R5,#235DJNZ R5,$DJNZ R4,D2 RETYS3: MOV R4,#2 ;延时程序3，精确延时1000微秒D3:MOV R5,#248DJNZ R5,$DJNZ R4,D3RETTAB: DB 0C0H,0DEH,0A2H,8AH,9CH,89H,81H,0DAH,80H,88H,90H,85H,0E1H,86H,0A1H,0B1H;数据表，0-9-A-FEND 解码方法二 你的解码程序和我现在用的解码程序大体是一样的，我自己实际做了一下，发现按下遥控器，接收到红外信号后，数码管闪的厉害。我用的是6位动态数码管。不知道你有没有遇到这样的情况？分析解码程序，感觉是中断的时间太长了，数码管当然会闪了。如果把数码管用定时器刷新的话，又存在定时中断和外中断的优先级问题，好难解决啊。我初步有个想法。就是用定时器计算两次外中断间隔的时间。以此来确定是连发码，数据“0”，数据“1”。不知道这个想法可否行的通。这几天没有时间试，因为广州有个电子产品交易会，我要赶着做样机。过了几天我有空了在仔细的做一遍。把结果告诉大家。不用连续解码，只需在中断时读取定时器的时间，然后判断是0或者1就可以了，实际测试已经OK了，谢谢两位的热心帮助。为了这个程序，弄了两天的时间，饭都吃不好，现在弄通了，感觉真的很好。我现在用6个数码管显示遥控器的用户码，用户反码，按键码，无论怎么按遥控器，数码管都不会闪的。楼上的，我是这样解决闪烁问题的，用显示子程序计算出适当次数代替延时YS1 YS2 YS3子程序 ;=;红外解码程序;晶体:11.0592M;日期:2005-10-14;功能:将6122发射IC发射的红外码解码，储存在CODE1-CODE4中,并用6个数码管显示用户码,用户反码，按键码 ;=ORG 0000HAJMP MAINORG 0003HAJMP REMOTORG 000BHAJMP TIME0;-IR BIT P3.2CODE1 EQU 30H ;遥控用户码CODE2 EQU 31H ;遥控用户反码CODE3 EQU 32H ;按键码CODE4 EQU 33H ;按键反码TIME1_REMOT EQU 34H ;每次接收的码BIT数TIME2_REMOT EQU 35H ;允许重码次数TIME3_REMOT EQU 36H ;按键数目存放;-DIG1 BIT P2.1;第一位数码管选通DIG2 BIT P2.5;第二位数码管选通DIG3 BIT P2.0;第三位数码管选通DIG4 BIT P2.4;第四位数码管选通DIG5 BIT P2.6;第五位数码管选通DIG6 BIT P2.3;第六位数码管选通;-D1 EQU 40HD2 EQU 41HD3 EQU 42HD4 EQU 43HD5 EQU 44HD6 EQU 45HORG 0030H;=初始化=MAIN:SETB EA ;开总中断MOV TMOD,#1H ;定时器0工作于方式1SETB ET0 ;启动定时器0SETB TR0MOV TH0,#0 ;预置数0MOV TL0,#0SETB EX0 ;开外中断0SETB IT0MOV TIME1_REMOT,#32;接收的码一共32BIT:4*8CLR P1.0MOV D1,#10HMOV D2,#10HMOV D3,#10HMOV D4,#10HMOV D5,#10HMOV D6,#10H;=初始化完毕=;=主程序=LOOP:; ACALL FENLIACALL DIGAJMP LOOP;=主程序完毕=;=红外解码中断程序=;=;以下为红外中断解码程序;接收头引脚P3.2;按键反码: CODE1;按键码:CODE2;用户反码: CODE3;用户码:CODE4;接收码的BIT数:TIME1_REMOT;重码次数:TIME3_REMOT;入口函数:;出口函数:R0-按键反码 R1-按键码 R2-用户反码 R3-用户码 R4-按键标准键值;=REMOT:CLR EA ;关总中断PUSH ACCPUSH PSWPUSH DPHPUSH DPLCLR P1.7;-判断定时器运行时间是否大于12.288MS-MOV A,TH0 ;读入此时TH0,判断是否大于设定的数CLR C ;清除C避免误判SUBB A,#2CH ;11.0592-2C 12M-30 6M-18 4M-10 24M-60JC REMOT1 ;小于12.220往下判断AJMP EXIT_REMOT1 ;大于2BFF*1.085=12.220MS则退出;-判断定时器运行时间是否小于0.768MS-REMOT1:MOV A,TH0CLR CSUBB A,#23H ;11.0592-2 12M-3 6M*-1 4M-1 24M-6JNC REMOT2AJMP EXIT_REMOT ;小于0.768作误码,退出;-判断定时器运行时间是否小于2MS-REMOT2:MOV A,TH0CLR CSUBB A,#7H ;11.0592-7 12M-7 6M-3 4M-2 24M-0FHJC REMOT4AJMP REMOT3 ;小于2MS,做数据:0:处理;-判断定时器运行时间是否小于11.5MS-REMOT3:MOV A,TH0CLR CSUBB A,#29H ;11.0592-29 12M-2C 6M-16 4M-0EH 24M-59JC REMOT5 ;小于11.5MS,做数据1处理AJMP REMOT6 ;否则作重码处理;-数据0-REMOT4:CLR CAJMP REMOT7;-数据1-REMOT5:SETB CAJMP REMOT7;-重码-REMOT6:DJNZ TIME3_REMOT,EXIT_REMOTMOV TIME3_REMOT,#2AJMP EXIT_REMOT1;-储存数据-REMOT7:MOV A,CODE1RRC AMOV CODE1,AMOV A,CODE2RRC AMOV CODE2,AMOV A,CODE3RRC AMOV CODE3,AMOV A,CODE4RRC AMOV CODE4,ADJNZ TIME1_REMOT,EXIT_REMOTMOV TIME1_REMOT,#32;判断是否接收完32位,MOV R0,CODE1MOV R1,CODE2MOV R2,CODE3MOV R3,CODE4AJMP BIJIAO ;此处设置断点,R0-按键反码;R1-按键码;R2-用户反码;R3-用户码;-用户码判断-BIJIAO:; MOV A,CODE4; CJNE A,#10H,EXIT_REMOT; MOV A,CODE3; CJNE A,#0EFH,EXIT_REMOT;-按键码判断-MOV A,CODE2CPL AXRL A,CODE1JNZ EXIT_REMOTACALL FENLIAJMP EXIT_REMOT1;-将按键码转换为标准的码值-OK_REMOT:MOV TIME3_REMOT,#15 ;按键数:15个按键MOV R4 DPTR,#TAB_REMOT ;指针指向按键码值表OK_REMOT1:MOV A,TIME3_REMOT ;将码值表第一个数与CODE2比较MOVC A,A+DPTRXRL A,CODE2JZ OK_REMOT2 ;相同，已经找到，跳转出口DJNZ TIME3_REMOT,OK_REMOT1;不同,未找到,取下一个按键码值比较,直到相同为止AJMP EXIT_REMOT1 ;已经找完码值表,未找到匹配数据，退出;-OK_REMOT2:MOV R4,TIME3_REMOT ;将标准码值存入R4AJMP EXIT_REMOT;-按键码值表-TAB_REMOT:DB 0H;SETB;ST.BY-INPUT-RESTDB 04H,02H,06H;FR- MAST+ FR+DB 0EH,07H,00H; ;SUB- MUTE SUB+DB 10H,0FH,12H; ;CEN- MAST+ CEN+DB 13H,03H,0AH; ;SUR- SET75 SUR+DB 11H,08H,01H;-解码中断退出程序-EXIT_REMOT1: ;异常退出MOV TIME1_REMOT,#32EXIT_REMOT: ;正常退出MOV TH0,#0 ;重设定时器0MOV TL0,#0SETB EASETB TR0 ;开中断; SETB EX0CLR IE0 ;清外中断标志,避免反复中断POP DPLPOP DPHPOP PSWPOP ACC ;出栈SETB P1.7RETI;=红外解码中断程序完毕=;=定时中断程序=;=;以下为定时器中断程序;功能:每120MS清除遥控用户码缓存;入口函数:;出口函数:;=TIME0:CLR EAMOV TH0,#0MOV TL0,#0MOV CODE1,#0MOV CODE2,#0MOV CODE3,#0MOV CODE4,#0SETB EARETI;=;=以下为数码管显示数分离子程序=; ;功能:将遥控器的用户码,用户反码，按键码,的十位与个位分离;入口函数:R3-用户码,R2-用户反码,R1-按键码;出口函数:D1-用户码十位,D2-用户个位,D3-用户反码十位,D4-用户反码个位,; ;D5-按键码十位,D6-按键码个位;-FENLI:MOV A,R3 ;分离用户反码MOV B,#16DIV ABMOV D1,AMOV D2,BMOV A,R2 ;分离用户码MOV B,#16DIV ABMOV D3,AMOV D4,BMOV A,R1 ;分离按键码MOV B,#16DIV ABMOV D5,AMOV D6,BRET;-分离完毕-;=以下为数码管显示子程序=;入口函数:D1-D6;-DIG:MOV DPTR,#TAB_DIG ;显示用户反码十位MOV A,D1MOVC A,A+DPTRMOV P2,#0FFHMOV P0,ACLR DIG1ACALL YS2M