51单片机红外遥控解码程序.docx
《51单片机红外遥控解码程序.docx》由会员分享,可在线阅读,更多相关《51单片机红外遥控解码程序.docx(18页珍藏版)》请在冰豆网上搜索。
![51单片机红外遥控解码程序.docx](https://file1.bdocx.com/fileroot1/2023-8/3/c1456e6d-1636-463c-a330-5f2ec67a1a5a/c1456e6d-1636-463c-a330-5f2ec67a1a5a1.gif)
51单片机红外遥控解码程序
51单片机红外遥控解码程序
类别:
单片机/DSP阅读:
2975
编者按:
以下是网友编写的遥控解码程序!
一种用延时等待的解码方法,比较容易理解,但缺点是占用CPU运行时间,第二种方法用定时器和外中断的解码方法,初学不易理解,但优点也很明显,第二种方法如果能解决连发解码就比较完美,更完善的红外遥控解码程序,请参考本站TOPAV-2008,TOP51-2005所配程序。
解码方法一
;//单片机接收红外解读程序\\
;硬件结构:
8951,P0口数码管段码,P2.0-P2.3为位,P1为8个LED
;P3.2为红外接收头,P2.7蜂鸣器,晶振12M
;适用UPD61216122芯片接收
;---------------------------------------------------------
ORG0000H
AJMPMAIN;转入主程序
ORG0003H;外部中断P3.2脚INT0入口地址
AJMPINT;转入外部中断服务子程序(解码程序)
;以下为主程序进行CPU中断方式设置
MAIN:
SETBEA;打开CPU总中断请求
SETBIT0;设定INT0的触发方式为脉冲下降沿触发
SETBEX0;打开INT0中断请求
AJMP$
;以下为进入P3.2脚外部中断子程序,也就是解码程序
INT:
CLREA;暂时关闭CPU的所有中断请求
MOVR6,#10
SB:
ACALLYS1;调用882微秒延时子程序
JBP3.2,EXIT;延时882微秒后判断P3.2脚是否出现高
;电平如果有就退出解码程序
DJNZR6,SB;重复10次,目的是检测在8820微秒内
;如果出现高电平就退出解码程序
;以上完成对遥控信号的9000微秒的初始低电平信号的识别。
JNBP3.2,$;等待高电平避开9毫秒低电平引导脉冲
ACALLYS2;延时4.74毫秒避开4.5毫秒的结果码
MOVR1,#1AH;设定1AH为起始RAM区
MOVR2,#4
;
PP:
MOVR3,#8
JJJJ:
JNBP3.2,$;等待地址码第一位的高电平信号
LCALLYS1;高电平开始后用882微秒的时间尺去判断信
;号此时的高低电平状态
MOVC,P3.2;将P3.2引脚此时的电平状态0或1存入C中
JNCUUU;如果为0就跳转到UUU
LCALLYS3
;
UUU:
MOVA,@R1;将R1中地址的给A
RRCA;将C中的值0或1移入A中的最低位
MOV@R1,A;将A中的数暂时存放在R1中
DJNZR3,JJJJ;接收地址码的高8位
INCR1;对R1中的值加1,换下一个RAM
DJNZR2,PP;接收完16位地址码和8位数据码和8位数据反
;码,存放在1AH/1BH/1CH/1DH的RAM中
MOVA,1CH;比较数据码和数据反码是否正确?
CPLA
XRLA,1DH;将1CH的值取反后和1DH比较不同则无效丢弃,核对数据是否准确
JNZEXIT
MOVDPTR,#TAB;表头地址送指针
MOVA,1DH
ANLA,#0FH;相与,得到低四位码
MOVCA,@A+DPTR
MOV1EH,A;查表得表码存入1EH
MOVA,1DH
SWAPA
ANLA,#0FH
MOVCA,@A+DPTR
MOV1FH,A;查表得高四位码存入1F
MOVR7,#20H
DISP:
MOVP0,1FH;送数码管显示
CLRP2.1
ACALLYS2
SETBP2.1
MOVP0,1EH
CLRP2.2
ACALLYS2
SETBP2.2
MOVP1,1DH;将按键的键值通过P1口的8个LED显示出来!
CLRP2.7;蜂鸣器鸣响-嘀嘀嘀-的声音,表示解码成功
LCALLYS2
SETBP2.7;蜂鸣器停止
DJNZR7,DISP
EXIT:
SETBEA;允许中断
RETI;退出解码子程序
YS1:
MOVR4,#20;延时子程序1,精确延时882微秒
D1:
MOVR5,#20
DJNZR5,$
DJNZR4,D1
RET
YS2:
MOVR4,#10;延时子程序2,精确延时4740微秒
D2:
MOVR5,#235
DJNZR5,$
DJNZR4,D2
RET
YS3:
MOVR4,#2;延时程序3,精确延时1000微秒
D3:
MOVR5,#248
DJNZR5,$
DJNZR4,D3
RET
TAB:
DB0C0H,0DEH,0A2H,8AH,9CH,89H,81H,0DAH,80H,88H,90H,85H,0E1H,86H,0A1H,0B1H;数据表,0-9-A-F
END
解码方法二
你的解码程序和我现在用的解码程序大体是一样的,我自己实际做了一下,发现按下遥控器,接收到红外信号后,数码管闪的厉害。
我用的是6位动态数码管。
不知道你有没有遇到这样的情况?
分析解码程序,感觉是中断的时间太长了,数码管当然会闪了。
如果把数码管用定时器刷新的话,又存在定时中断和外中断的优先级问题,好难解决啊。
我初步有个想法。
就是用定时器计算两次外中断间隔的时间。
以此来确定是连发码,数据“0”,数据“1”。
不知道这个想法可否行的通。
这几天没有时间试,因为广州有个电子产品交易会,我要赶着做样机。
过了几天我有空了在仔细的做一遍。
把结果告诉大家。
不用连续解码,只需在中断时读取定时器的时间,然后判断是0或者1就可以了,实际测试已经OK了,谢谢两位的热心帮助。
为了这个程序,弄了两天的时间,饭都吃不好,现在弄通了,感觉真的很好。
我现在用6个数码管显示遥控器的用户码,用户反码,按键码,无论怎么按遥控器,数码管都不会闪的。
楼上的,我是这样解决闪烁问题的,用显示子程序计算出适当次数代替延时YS1YS2YS3子程序
;======================================================================================
;红外解码程序
;晶体:
11.0592M
;日期:
2005-10-14
;功能:
将6122发射IC发射的红外码解码,储存在CODE1--CODE4中,并用6个数码管显示用户码,用户反码,按键码
;======================================================================================
ORG0000H
AJMPMAIN
ORG0003H
AJMPREMOT
ORG000BH
AJMPTIME0
;------------------------------------------------------
IRBITP3.2
CODE1EQU30H;遥控用户码
CODE2EQU31H;遥控用户反码
CODE3EQU32H;按键码
CODE4EQU33H;按键反码
TIME1_REMOTEQU34H;每次接收的码BIT数
TIME2_REMOTEQU35H;允许重码次数
TIME3_REMOTEQU36H;按键数目存放
;---------------------------------------------------------
DIG1BITP2.1;第一位数码管选通
DIG2BITP2.5;第二位数码管选通
DIG3BITP2.0;第三位数码管选通
DIG4BITP2.4;第四位数码管选通
DIG5BITP2.6;第五位数码管选通
DIG6BITP2.3;第六位数码管选通
;----------------------------------------
D1EQU40H
D2EQU41H
D3EQU42H
D4EQU43H
D5EQU44H
D6EQU45H
ORG0030H
;=============================初始化===============================
MAIN:
SETBEA;开总中断
MOVTMOD,#1H;定时器0工作于方式1
SETBET0;启动定时器0
SETBTR0
MOVTH0,#0;预置数0
MOVTL0,#0
SETBEX0;开外中断0
SETBIT0
MOVTIME1_REMOT,#32;接收的码一共32BIT:
4*8
CLRP1.0
MOVD1,#10H
MOVD2,#10H
MOVD3,#10H
MOVD4,#10H
MOVD5,#10H
MOVD6,#10H
;============================初始化完毕============================
;=============================主程序==============================
LOOP:
;ACALLFENLI
ACALLDIG
AJMPLOOP
;=============================主程序完毕==========================
;=============================红外解码中断程序=========================
;=============================================
;以下为红外中断解码程序
;接收头引脚P3.2
;按键反码:
CODE1
;按键码:
CODE2
;用户反码:
CODE3
;用户码:
CODE4
;接收码的BIT数:
TIME1_REMOT
;重码次数:
TIME3_REMOT;
;入口函数:
;出口函数:
R0---按键反码R1----按键码R2---用户反码R3----用户码R4---按键标准键值
;=============================================
REMOT:
CLREA;关总中断
PUSHACC
PUSHPSW
PUSHDPH
PUSHDPL
CLRP1.7
;-----------------判断定时器运行时间是否大于12.288MS-----------------
MOVA,TH0;读入此时TH0,判断是否大于设定的数
CLRC;清除C避免误判
SUBBA,#2CH;11.0592-2C12M-306M-184M-1024M-60
JCREMOT1;小于12.220往下判断
AJMPEXIT_REMOT1;大于2BFF*1.085=12.220MS则退出
;-----------------判断定时器运行时间是否小于0.768MS------------------
REMOT1:
MOVA,TH0
CLRC
SUBBA,#23H;11.0592-212M-36M*-14M-124M-6
JNCREMOT2
AJMPEXIT_REMOT;小于0.768作误码,退出
;------------------判断定时器运行时间是否小于2MS---------------------
REMOT2:
MOVA,TH0
CLRC
SUBBA,#7H;11.0592-712M-76M-34M-224M-0FH
JCREMOT4
AJMPREMOT3;小于2MS,做数据:
"0:
处理
;-----------------判断定时器运行时间是否小于11.5MS-------------------
REMOT3:
MOVA,TH0
CLRC
SUBBA,#29H;11.0592-2912M-2C6M-164M-0EH24M-59
JCREMOT5;小于11.5MS,做数据"1"处理
AJMPREMOT6;否则作重码处理
;----------------数据"0"----------------------
REMOT4:
CLRC
AJMPREMOT7
;----------------数据"1"--------------------
REMOT5:
SETBC
AJMPREMOT7
;----------------重码------------------------
REMOT6:
DJNZTIME3_REMOT,EXIT_REMOT
MOVTIME3_REMOT,#2
AJMPEXIT_REMOT1
;---------------储存数据--------------------
REMOT7:
MOVA,CODE1
RRCA
MOVCODE1,A
MOVA,CODE2
RRCA
MOVCODE2,A
MOVA,CODE3
RRCA
MOVCODE3,A
MOVA,CODE4
RRCA
MOVCODE4,A
DJNZTIME1_REMOT,EXIT_REMOT
MOVTIME1_REMOT,#32;判断是否接收完32位,
MOVR0,CODE1
MOVR1,CODE2
MOVR2,CODE3
MOVR3,CODE4
AJMPBIJIAO;此处设置断点,R0--按键反码
;R1---按键码
;R2---用户反码
;R3---用户码
;---------------用户码判断-------------------------
BIJIAO:
;MOVA,CODE4
;CJNEA,#10H,EXIT_REMOT
;MOVA,CODE3
;CJNEA,#0EFH,EXIT_REMOT
;---------------按键码判断-----------------------
MOVA,CODE2
CPLA
XRLA,CODE1
JNZEXIT_REMOT
ACALLFENLI
AJMPEXIT_REMOT1
;--------------将按键码转换为标准的码值-----------
OK_REMOT:
MOVTIME3_REMOT,#15;按键数:
15个按键
MOVR4DPTR,#TAB_REMOT;指针指向按键码值表
OK_REMOT1:
MOVA,TIME3_REMOT;将码值表第一个数与CODE2比较
MOVCA,@A+DPTR
XRLA,CODE2
JZOK_REMOT2;相同,已经找到,跳转出口
DJNZTIME3_REMOT,OK_REMOT1;不同,未找到,取下一个按键码值比较,直到相同为止
AJMPEXIT_REMOT1;已经找完码值表,未找到匹配数据,退出
;-------------
OK_REMOT2:
MOVR4,TIME3_REMOT;将标准码值存入R4
AJMPEXIT_REMOT
;--------------------按键码值表------------------------
TAB_REMOT:
DB0H
;SETB
;ST.BY-INPUT-REST
DB04H,02H,06H
;
;FR-MAST+FR+
DB0EH,07H,00H
;;SUB-MUTESUB+
DB10H,0FH,12H
;;CEN-MAST+CEN+
DB13H,03H,0AH
;;SUR-SET75SUR+
DB11H,08H,01H
;---------------解码中断退出程序--------------------
EXIT_REMOT1:
;异常退出
MOVTIME1_REMOT,#32
EXIT_REMOT:
;正常退出
MOVTH0,#0;重设定时器0
MOVTL0,#0
SETBEA
SETBTR0;开中断
;SETBEX0
CLRIE0;清外中断标志,避免反复中断
POPDPL
POPDPH
POPPSW
POPACC;出栈
SETBP1.7
RETI
;=========================红外解码中断程序完毕====================
;=========================定时中断程序============================
;============================================================
;以下为定时器中断程序
;功能:
每120MS清除遥控用户码缓存
;入口函数:
;出口函数:
;============================================================
TIME0:
CLREA
MOVTH0,#0
MOVTL0,#0
MOVCODE1,#0
MOVCODE2,#0
MOVCODE3,#0
MOVCODE4,#0
SETBEA
RETI
;==============================================================
;=======================以下为数码管显示数分离子程序================
;;功能:
将遥控器的用户码,用户反码,按键码,的十位与个位分离
;入口函数:
R3--用户码,R2--用户反码,R1---按键码
;出口函数:
D1-用户码十位,D2--用户个位,D3--用户反码十位,D4---用户反码个位,
;;D5---按键码十位,D6---按键码个位
;----------------------------------------------------------
FENLI:
MOVA,R3;分离用户反码
MOVB,#16
DIVAB
MOVD1,A
MOVD2,B
MOVA,R2;分离用户码
MOVB,#16
DIVAB
MOVD3,A
MOVD4,B
MOVA,R1;分离按键码
MOVB,#16
DIVAB
MOVD5,A
MOVD6,B
RET
;-----------分离完毕-------------------------
;===================以下为数码管显示子程序=======================
;入口函数:
D1---D6
;--------------------------------------------------------------
DIG:
MOVDPTR,#TAB_DIG;显示用户反码十位
MOVA,D1
MOVCA,@A+DPTR
MOVP2,#0FFH
MOVP0,A
CLRDIG1
ACALLYS2MS
MOVDPTR,#TAB_DIG;显示用户反码个位
MOVA,D2
MOVCA,@A+DPTR
MOVP2,#0FFH
MOVP0,A
CLRDIG2
ACALLYS2MS
MOVDPTR,#TAB_DIG;显示用户码十位
MOVA,D3
MOVCA,@A+DPTR
MOVP2,#0FFH
MOVP0,A
CLRDIG3
ACALLYS2MS
MOVDPTR,#TAB_DIG;显示用户码个位
MOVA,D4
MOVCA,@A+DPTR
MOVP2,#0FFH
MOVP0,A
CLRDIG4
ACALLYS2MS
MOVDPTR,#TAB_DIG;显示按键码十位
MOVA,D5MOVCA,@A+DPTRMOVP2,#0FFHMOVP0,ACLRDIG5ACALLYS2MSMOVDPTR,#TAB_DIG;显示按键码个位MOVA,D6
MOVCA,@A+DPTR
MOVP2,#0FFH
MOVP0,A
CLRDIG6
ACALLYS2MS
;---------------------------显示完毕-----------------------------------
RET
;------------------------------数码管段码表------------------------------------
TAB_DIG:
;0123456789ABCDEF全亮消隐
DB5H,0B7H,51H,31H,0A3H,29H,9H,37H,1H,21H,3H,89H,4DH,4DH,49H,4BH,0h,0ffh
;------------------------------延时-------------------------------------------
YS2MS:
MOVR7,#15
DEL1:
MOVR6,#100
DJNZR6,$
DJNZR7,DEL1
RET
END