紅外線編碼是數(shù)據(jù)傳輸和家用電器遙控常用的一種通訊方法，其實質(zhì)是一種脈寬調(diào)制的串行通訊。家電遙控中常用的紅外線編碼電路有μPD6121G型HT622型和7461型等。
這里就以這些電路的編碼格式來仿真怎樣使用單片機的捕獲中斷功能來實現(xiàn)其解碼。 紅外線通訊的發(fā)送部分主要是把待發(fā)送的數(shù)據(jù)轉(zhuǎn)換成一定格式的脈沖，然后驅(qū)動紅外發(fā)光管向外發(fā)送數(shù)據(jù)。接收部分則是完成紅外線的接收、放大、解調(diào)，還原成同步發(fā)射格式相同(但高、低電位剛好相反的脈沖信號)。這些工作通常由一體化的接收頭來完成，主要輸出TTL兼容電平。最后通過解碼把脈沖信號轉(zhuǎn)換成數(shù)據(jù)，從而實現(xiàn)數(shù)據(jù)的傳輸。
本單元就是來完成一體化接收頭接受到的紅外遙控器編碼后的輸出數(shù)據(jù),所以只要單片機完成本單元的解碼任務,并成功實現(xiàn)之后,只要將IR引腳接上紅外接收頭之后就可以實現(xiàn)紅外遙控的功能了。
這是我積累前人經(jīng)驗和自己實踐的成果，并且已經(jīng)有硬件的成功案例，并非只是理論.
單片機源程序如下:
- #include "At89x51.h"
- #include "stdio.h"
- #include "stdlib.h"
- #include "string.h"
- #define JINGZHEN 48
- #define TIME0TH ((65536-100*JINGZHEN/12)&0xff00)>>8 //time0,100us,紅外遙控
- #define TIME0TL ((65536-100*JINGZHEN/12)&0xff)
- #define TIME1TH ((65536-5000*JINGZHEN/12)&0xff00)>>8
- #define TIME1TL ((65536-5000*JINGZHEN/12)&0xff)
- #define uchar unsigned char
- #define uint unsigned int
- code uchar BitMsk[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,};
- uint IrCount=0,Show=0,Cont=0;
- uchar IRDATBUF[32],s[20];
- uchar IrDat[5]={0,0,0,0,0};
- uchar IrStart=0,IrDatCount=0;
- extern void initLCM( void); //LCD初始化子程序
- extern void DisplayListChar(uchar X,uchar Y, unsigned char *DData); //顯示指定坐標的一串字符子函數(shù)
- void timer1int (void) interrupt 3 using 3{ //定時器1
- EA=0;
- TH1 = TIME1TH;
- TL1 = TIME1TL;
- Cont++;
- if(Cont>10)Show=1;
- EA=1;
- }
- void timer0int (void) interrupt 1 using 1{ //定時器0
- uchar i,a,b,c,d;
- EA=0;
- TH0 = TIME0TH;
- TL0 = TIME0TL;
- if(IrCount>500)IrCount=0;
- if(IrCount>300&&IrStart>0){IrStart=0;IrDatCount=0;IrDat[0]=IrDat[1]=IrDat[2]=IrDat[3]=0;IrCount=0;}
- if(IrStart==2)
- {
- IrStart=3;
- for(i=0;i<IrDatCount;i++)
- {
- if(i<32)
- {
- a=i/8;
- b=IRDATBUF[i];
- c=IrDat[a];
- d=BitMsk[i%8];
- if(b>5&&b<14)c|=d;
- if(b>16&&b<25)c&=~d;
- IrDat[a]=c;
- }
- }
- if(IrDat[2]!=~IrDat[3])
- {
- IrStart=0;IrDatCount=0;IrDat[0]=IrDat[1]=IrDat[2]=IrDat[3]=0;IrCount=0;
-
- }
- EA=1;
- return;
- }
- IrCount++;
- EA=1;
- }
- void int0() interrupt 0 using 0 {
- EA=0;
- if(IrStart==0)
- {
- IrStart=1;IrCount=0;TH0 = TIME0TH;TL0 = TIME0TL;
- IrDatCount=0;EA=1;
- return;
- }
- if(IrStart==1)
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
Keil代碼與Proteus7.5 ; 8.13仿真下載:
紅外遙控模擬.7z
(71.82 KB, 下載次數(shù): 50)
2022-12-8 18:38 上傳
點擊文件名下載附件
|
