單片機模擬紅外發射源程序IR-send

ID:274228 · 發表于 2018-1-10 12:35

單片機源程序如下:

單片機模擬紅外遙控器發射的C語言程序
//********************************************單片機紅外發射*******************************************
#include "reg52.h"
sbit ir=P1^0;//紅外發射管控制腳，使用24M晶振
sbit ka=P2^0;
sbit kb=P2^1;
unsigned int count, set_count; //中斷計數，設定中斷次數
bit irflag,keyflag; //紅外發送標志位,按鍵標志位
unsigned char irsys[]={0x00,0xff};//16位用戶碼
unsigned char irdata,ircode; //發送的紅外數據
//---------------------------------------------------------------------------
void delay(unsigned int a)//延時約1ms，晶振24M ,此處延時不需很精確
{
unsigned char i;
while(--a!=0)
for(i=300;i>0;i--); //若是12M晶振i=125
}
//---------------------------------------------------------------------------
void keyscan() // 按鍵掃描
{
if(ka==0){keyflag=1;irdata=0x0a;} //a鍵按下，則發射數據0x0a
if(kb==0){keyflag=1;irdata=0x0b;} //b鍵按下，則發射數據0x0b
}
//---------------------------------------------------------------------------
void ir_sendbyte() //紅外發送一個字節數據
{
unsigned char i;
for(i=0;i<8;i++) //發送8位數據
{
set_count=43;//35; //發送編碼中的0.56ms高電平 (//后為12M晶振下的數值)
irflag=1; //啟動紅外發射二極管發射
count=0; //中斷計數先清0
TR0=1; //開啟定時器0
while(count<set_count); //等待發送完
TR0=0; //關閉定時器0
if(ircode&0x01) set_count=130;//130; //判斷紅外編碼最低位,若為1則1.69ms的低電平 (//后為12M晶振下的數值)
else set_count=43;//35; //為0則0.565ms的低電平 (//后為12M晶振下的數值)
irflag=0; //低電平則不發射
count=0; //中斷計數清0
TR0=1; //開啟定時器0
while(count<set_count); //等待發送完
TR0=0; //關閉定時器0
ircode=ircode>>1; //將數據右移，即從低位到高位發送
}
}
//---------------------------------------------------------------------------
void ir_send() //發送紅外數據
{
set_count=692;//672; //發送編碼中的引導碼(9ms高電平+4.5ms低電平) (//后為12M晶振下的數值)
irflag=1; //啟動紅外發射二極管發射
count=0; //中斷計數清0
TR0=1;
while(count<set_count);
TR0=0;
set_count=346;//336; //發送編碼中的4.5ms低電平(//后為12M晶振下的數值)
irflag=0; //低電平則不發射
count=0;
TR0=1;
while(count<set_count); //等待發送完
TR0=0;
ircode=irsys[0]; //發送16位用戶碼的前1-8位
ir_sendbyte();
ircode=irsys[1]; //發送16位用戶碼的前9-16位
ir_sendbyte();
ircode=irdata; //發送8位數據碼
ir_sendbyte();
ircode=~irdata; //發送8位數據反碼
ir_sendbyte();
set_count=43;//35; //發送編碼中的0.56ms高電平 (//后為12M晶振下的數值)
irflag=1;
count=0;
TR0=1;
while(count<set_count);
TR0=0;
ir=1;
delay(23); //延時23ms（編碼中的23ms低電平）
set_count=692;//670; //發送編碼中的引導碼(9ms高電平+4.5ms低電平) (//后為12M晶振下的數值)
irflag=1;
count=0;
TR0=1;
while(count<set_count);
TR0=0;
set_count=346;//336; //發送編碼中的4.5ms低電平(//后為12M晶振下的數值)
irflag=0;
count=0;
TR0=1;
while(count<set_count);
TR0=0;
set_count=43;//35; //發送編碼中的0.56ms高電平 (//后為12M晶振下的數值)
irflag=1;
count=0;
TR0=1;
while(count<set_count);
TR0=0;
ir=1; //發射完了關閉紅外發射二極管
}
//---------------------------------------------------------------------------
void timer0_init() //定時器初始化
{
EA=1;
TMOD=0x02; //定時0 8位自動重裝模式
ET0=1;
TH0=0xe6;//0xf3; //定時13us,38K紅外矩形波,晶振24M (//后為12M晶振下的數值)
TL0=0xe6;
}
//---------------------------------------------------------------------------
void main()
{
timer0_init(); //定時0初始化
count=0; //中斷計數先清0
irflag=0; //紅外發射標志先置0
while(1)
{
keyscan(); //鍵值掃描
if(keyflag) //若有按鍵按下
{
delay(10);
ir_send(); //發送紅外編碼
delay(500);
keyflag=0; //按鍵標志清零
delay(100);
}
}
}
//---------------------------------------------------------------------------
void timer0() interrupt 1 //定時器0中斷
{
count++;
if(irflag==1) ir=~ir; //有發射標志，則發射38khz的矩形波
else ir=1; //否則不發射，即相當于發射編碼中的低電平
}
/*說明：本人經多次調試發現若在24M晶振下使用，發射很正常，而在12M晶振下發射的數據則穩定性要差很多，正在完善中*/
/*程序編寫：落葉*/

復制代碼

所有資料51hei提供下載:

IR--send(單片機模擬紅外發射) c.rar (1.53 KB, 下載次數: 205)

ID:375198 · 發表于 2018-7-19 22:15

好帖子，感謝樓主

ID:251357 · 發表于 2018-9-26 09:21

趕上寫論文，繼續啊，找了好多資料，都看的云里霧里的

ID:402560 · 發表于 2018-9-26 10:16

好資料，謝謝。

ID:92827 · 發表于 2018-10-31 21:30

下載下來，試一試

ID:326450 · 發表于 2018-11-13 16:28

感謝樓主的分享

ID:404210 · 發表于 2018-11-18 21:28

最近在看有關紅外發射，試了一下樓主12M晶振下的程序，抓到的一個波形，不知道是不是正確的，樓主大神能不能提供發送的波形，和接受到的波形呢，根據程序沒能推出抓到的波形對不對

ID:585455 · 發表于 2019-7-27 17:40

感謝無私分享

ID:617652 · 發表于 2019-9-28 22:52

請問一下這個接線是怎么接的呀，我在做一個把ad轉換獲得的數字信號通過紅外發射，只用一個紅外發射管的話可以發送嗎，怎么接線呀

ID:51443 · 發表于 2020-3-14 09:15

這個程序我用STC試了一下，24M只是比12M好些。關鍵是9+4.5的引導有時竟成6.6+3.3，難道是按鍵產生的干擾影響了中斷？

ID:51443 · 發表于 2020-3-19 15:05

發現這個周期26us很準，但占空比不確定，不知道是怎么回事？

ID:51443 · 發表于 2020-3-21 11:20

職教電子發表于 2020-3-19 15:05
發現這個周期26us很準，但占空比不確定，不知道是怎么回事？

終于解決了，準確率100%.

ID:67274 · 發表于 2020-4-5 14:47

本帖最后由 a461624201 于 2020-4-5 17:13 編輯

發個我對這個程序理解，stc15f104e,未測試，邏輯分析儀查看沒錯。

ID:770066 · 發表于 2020-6-5 10:05

謝謝樓主分享，好評

ID:770066 · 發表于 2020-7-1 10:47

職教電子發表于 2020-3-14 09:15
這個程序我用STC試了一下，24M只是比12M好些。關鍵是9+4.5的引導有時竟成6.6+3.3，難道是按鍵產生的干擾影 ...

您好問下，這個問題怎么解決的，測試中也是遇到引導碼變成6.6+3.3，非常感謝

ID:194006 · 發表于 2021-8-2 16:10

在12M晶振下發射的數據則穩定性要差很多的原因:
實驗發現, 采用12M的晶振,中斷最少要20us,也就是周期最少要40us了
如果采用24M晶振,就可以13us中斷,產生周期為26us的38K載波.
所以要采用24M晶振.不然速度不夠.

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

單片機模擬紅外發射源程序IR-send

評分