紅外線遙控Proteus仿真電路+發射+接收程序

ID:127637 · 發表于 2016-6-22 22:59

單片機的紅外線遙控Proteus仿真電路+發射+接收程序

仿真圖：

紅外發射程序：

/***************************************************************
作品：紅外線發射
單片機：STC89C52RC
晶振：12M
編譯環境：Keil uVision4 V9.00
***************************************************************/
//
// 發射引腳（接PNP三極管b極）
// PNP三極管e極接2Ω電阻，c極接紅外發射管
#include <REG51.h>
#include <intrins.h>
#define uchar unsigned char
#define uint unsigned int
#define SBM 0x80 //識別碼
#define m9 (65536-9000) //約9mS
#define m4_5 (65536-4500) //約4.5mS
#define m1_6 (65536-1630) //約1.65mS
#define m_65 (65536-580) //約0.65mS
#define m_56 (65536-560) //約0.56mS
#define m40 (65536-40000) //約40mS
#define m56 (65536-56000) //56mS
#define m2_25 (65536-2250) //約2.25mS
sbit IR = P3^6; //定義發射引腳（接PNP三極管基極）
sbit LED = P3^7; //發射指示燈
uchar KEY(void);
void SanZhuan(void);
void ZZ(uchar x);
void Z0(uchar temp);
void TT0(bit BT,uint x);
void YS(uchar time);
/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數功能：主函數
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
void main(void)
{
TMOD = 0x01; //T0 16位工作方式
IR=1; //發射端口常態為高電平
while(1)
{
SanZhuan();
}
}
/***************************************************************
函數功能： 4×4矩陣鍵盤
鍵值
P1.0 P1.1 P1.2 P1.3 P1.4 P1.5 P1.6 P1.7
│ │ │ │ │ │ │ │ ┃
│ │ │ └────13 14 15 16 ┃
│ │ └─────────9 10 11 12 ┃
│ └──────────────5 6 7 8 ┃
└────────────────────1 2 3 4 ┃
***************************************************************/
uchar KEY(void)
{
uchar H,L; //行值，列值
H=0;
L=0;
P1 = 0xf0; //將鍵盤端口行值設為1，列值設為0
if(P1!= 0xf0) //檢測是否有按鍵按下，如果有則hangval必不為0x0f
{
YS(10); //按鍵去抖動，延時10毫秒
if(P1!=0xf0) //確實有按鍵按下
{
H = P1&0xf0; //按鍵后得到按鍵的行標志位，將行標志位賦值給hangval
P1 = 0x0f; //翻轉鍵盤接口輸出
L = P1&0x0f; //得到列標志位
}
return (H+L);
}
return 0;
}
/***************************************************************
函數功能：散轉程序
入口參數：v
//
// 13 14 15 16
// 9 10 11 12
// 5 6 7 8
// 1 2 3 4
***************************************************************/
void SanZhuan(void)
{
uchar v;
v = KEY();
switch(v)
{
case 0x77:ZZ(0x01);v=0;break; //" "
case 0xb7:ZZ(0x02);v=0;break; //" "
case 0xd7:ZZ(0x03);v=0;break; //" "
case 0xe7:ZZ(0x04);v=0;break; //" "
case 0x7b:ZZ(0x05);v=0;break; //" "
case 0xbb:ZZ(0x06);v=0;break; //" "
case 0xdb:ZZ(0x07);v=0;break; //" "
case 0xeb:ZZ(0x08);v=0;break; //" "
case 0x7d:ZZ(0x09);v=0;break; //" "
case 0xbd:ZZ(0x10);v=0;break; //" "
case 0xdd:ZZ(0x11);v=0;break; //" "
case 0xed:ZZ(0x12);v=0;break; //" "
case 0x7e:ZZ(0x13);v=0;break; //" "
case 0xbe:ZZ(0x14);v=0;break; //" "
case 0xde:ZZ(0x15);v=0;break; //" "
case 0xee:ZZ(0x16);v=0;break; //" "
default:v=0;
}
}
/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數功能：發送主程序
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
void ZZ(uchar x)
{
TT0(1,m9); //高電平9mS
TT0(0,m4_5); //低電平4.5mS
/*┈ 發送4幀數據 ┈*/
Z0(SBM);
Z0(~SBM);
Z0(x);
Z0(~x);
/*┈┈ 結束碼 ┈┈*/
TT0(1,m_65);
TT0(0,m40);
/*┈┈ 重復碼 ┈┈*/
while(KEY())
{
TT0(1,m9);
TT0(0,m2_25);
TT0(1,m_56);
TT0(0,m40);
TT0(0,m56);
LED = !LED; //指示燈
}
LED = 1;
}
/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數功能：單幀發送程序
入口參數：1幀數據
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
void Z0(uchar temp)
{
uchar v;
for (v=0;v<8;v++) //循環8次移位
{
TT0(1,m_65); //高電平0.65mS
if(temp&0x01) TT0(0,m1_6); //發送最低位
else TT0(0,m_56);
temp >>= 1; //右移一位
}
}
/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數功能：38KHz脈沖發射 + 延時程序
入口參數：（是否發射脈沖,延時約 x (uS)）
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
void TT0(bit BT,uint x)
{
TH0 = x>>8; //輸入T0初始值
TL0 = x;
TF0=0; //清0
TR0=1; //啟動定時器0
if(BT == 0) while(!TF0); //BT=0時不發射38KHz脈沖只延時；BT=1發射38KHz脈沖且延時；
else while(1) //38KHz脈沖，占空比5:26
{
IR = 0;
if(TF0)break;
if(TF0)break;
IR = 1;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
if(TF0)break;
}
TR0=0; //關閉定時器0
TF0=0; //標志位溢出則清0
IR =1; //脈沖停止后，發射端口常態為高電平
}
/***************************************************************
函數功能：按鍵消抖延時程序
入口參數：1ms×time （晶振=12MHz）
***************************************************************/
void YS(uchar time)
{
uchar i,j;
for(i=0; i<time; i++)
for(j=0; j<247; j++)_nop_();
}

復制代碼

紅外接收程序：

// STC 12T系列單片機紅外接收NEC解碼程序。適用于市場上用量最大的HT6121/6122及其兼容的IC編碼。
// 使用外部中斷0接收P3.2
//
#include <REGX52.H>
#include <intrins.h>
#define uchar unsigned char
#define uint unsigned int
uchar code tab[] = {0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0X88,0X83,0XC6,0XA1,0X86,0X8E,0xFF};
sbit IR = P3^2;
uchar N[4]; //識別碼，操作碼存放
uchar X1,X2,X3,X4;
void XSQ(void);
void YS(uchar time);
/****************** 主函數 *******************/
void main(void)
{
X1=X2=X3=X4 = 0;
IT0 = 1;
EX0 = 1;
EA = 1;
while(1)
{
XSQ();
}
}
/**********************數碼管顯示函數************************/
void XSQ(void)
{
P2_7=1;P0=tab[X1];P2_0=0;YS(1); //識別碼
P2_0=1;P0=tab[X2];P2_1=0;YS(1);
P2_1=1;P0=tab[16];P2_2=0;YS(1);
P2_2=1;P0=tab[16];P2_3=0;YS(1);
P2_3=1;P0=tab[16];P2_4=0;YS(1);
P2_4=1;P0=tab[16];P2_5=0;YS(1);
P2_5=1;P0=tab[X3];P2_6=0;YS(1); //操作碼
P2_6=1;P0=tab[X4];P2_7=0;YS(1);
}
/********************** 外部中斷函數************************/
void exint0() interrupt 0
{
uint cnt;
uchar i;
EX0 = 0;
cnt = 0;
while(!IR) cnt++; //記錄引導碼時間
if(cnt < 1000){EX0=1;return;} //9ms的計數值（12MHz：1000< cnt <1500）
cnt = 0;
while(IR) if(cnt++ > 400){EX0=1;return;} //防卡死，超時保護（12MHz： > 300）
if(cnt < 200){EX0=1;return;} //（12MHz不分頻： <260）
for(i=0; i<32; i++) //讀取32位位碼
{
cnt = 0;
while(!IR);
while(IR) if(cnt++ > 200){EX0=1;return;} //超時保護（12MHz：>=200）
N[i/8] >>= 1;
if(cnt>60) N[i/8] |= 0x80; //0和1的計數界線（12MHz：< 109）
}
if(N[0] == ~N[1] && N[2] == ~N[3]) //校驗識別碼，操作碼
{
X1 = N[0]/16;
X2 = N[0]%16;
X3 = N[2]/16;
X4 = N[2]%16;
}
EX0 = 1;
}
/***************************************************************
函數功能：按鍵消抖延時程序
入口參數：1ms×time （晶振=12MHz）
***************************************************************/
void YS(uchar time)
{
uchar i,j;
for(i=0; i<time; i++)
for(j=0; j<247; j++)_nop_();
}

復制代碼

全部資料下載：

紅外線遙控Proteus仿真電路發射接收程序.zip (969.31 KB, 下載次數: 676)

ID:220361 · 發表于 2017-7-17 17:53

mark一下，

搞了半天,把Proteus換成7.5版本終于打開了,如圖

ID:217448 · 發表于 2017-7-22 09:47

好東西啊，謝謝啦好資料，51黑有你更精彩!!!

ID:251860 · 發表于 2017-11-27 08:51

好東西謝謝啦！！

ID:242883 · 發表于 2017-11-27 18:25

謝謝分享！！

ID:253421 · 發表于 2017-11-29 23:06

為什么我下載的只能顯示一個端口，另外一個沒有現象

ID:255751 · 發表于 2017-11-30 16:52

你好，請問這么下載啊

ID:255751 · 發表于 2017-11-30 16:54

lizanai 發表于 2017-11-27 08:51
好東西謝謝啦！！

請問這個下下來的話，有沒有仿真圖

ID:255751 · 發表于 2017-11-30 21:41

我還仿真圖片都看不清楚呢

ID:67179 · 發表于 2017-12-12 23:33

謝謝分享

ID:272625 · 發表于 2018-1-9 00:07

好資料,非常感謝樓主！

ID:86450 · 發表于 2018-1-9 07:24

好東西啊，謝謝啦

ID:295641 · 發表于 2018-4-3 17:00

老鐵能給發一份嗎

ID:301862 · 發表于 2018-4-4 10:19

好東西啊，謝謝啦

ID:316707 · 發表于 2018-4-27 13:18

老鐵能給發一份嗎?

ID:337271 · 發表于 2018-5-27 18:18

TT0的函數里面占空比怎么控制的？

ID:339366 · 發表于 2018-5-30 12:00

有兩個源代碼怎么一起使用呢

ID:73182 · 發表于 2018-7-6 14:49

有用，非常感謝

ID:363696 · 發表于 2018-7-7 01:11

TFS00133144 發表于 2017-11-30 16:54
請問這個下下來的話，有沒有仿真圖

有仿真圖的，跟上面圖片發的差不多

ID:406130 · 發表于 2018-10-7 14:42

好東西啊，謝謝啦

ID:425365 · 發表于 2018-11-12 22:56

好東西，謝謝啦

ID:425365 · 發表于 2018-11-12 22:57

如果protues里沒有IRLINK怎么辦？

ID:425561 · 發表于 2018-11-13 11:01

好東西啊，謝謝啦

ID:428934 · 發表于 2018-11-18 22:55

很給力！

ID:352449 · 發表于 2018-12-8 17:00

好東西啊，謝謝啦

ID:441087 · 發表于 2018-12-9 08:32

好東西,下來學習下,謝謝分享

ID:342505 · 發表于 2019-1-15 15:07

頂一個，下載過來試試看

ID:469417 · 發表于 2019-1-17 22:54

沒有一點實際意思，很明顯的38KHZ載波沒有，發射與接收如同接通的導線

ID:454000 · 發表于 2019-1-28 16:10

刀刀見紅發表于 2019-1-17 22:54
沒有一點實際意思，很明顯的38KHZ載波沒有，發射與接收如同接通的導線

嗯！真的是那么個事，還是用實物做實驗才有效果!

ID:536936 · 發表于 2019-5-13 14:33

給力，謝謝大佬

ID:281604 · 發表于 2019-5-25 00:03

樓主神人！！

ID:562648 · 發表于 2019-6-14 21:37

。。。。這個程序有問題吧

ID:412391 · 發表于 2019-9-19 15:39

非常好的東西，學習啦

ID:686797 · 發表于 2020-1-16 22:46

Mark一下，有幣了再來！

ID:358536 · 發表于 2020-5-4 19:31

謝謝大神的程序

ID:748647 · 發表于 2020-5-10 21:08

難說哎感覺不可以

ID:811971 · 發表于 2020-8-6 18:03

為什么我下載的只能顯示一個端口，另外一個沒有現象

ID:438852 · 發表于 2020-12-16 22:56

zyjywll 發表于 2020-8-6 18:03
為什么我下載的只能顯示一個端口，另外一個沒有現象

我也是

ID:927862 · 發表于 2021-6-4 12:27

proteus 全圖及元件名稱可以發一下嗎

ID:927862 · 發表于 2021-6-4 15:02

Proteus7.5才能打開仿真右邊的單片機是發送,程序沒有讓屏幕顯示左側單片機是接受

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

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

紅外線遙控Proteus仿真電路+發射+接收程序

評分

相關帖子

評分