51單片機紅外遙控小車源程序

ID:226728 · 發(fā)表于 2017-8-10 20:53

自己做的紅外遙控小車器件練手

單片機源程序如下:

/*******************************************************************************
--------------------------------------------------------------------------------
* 實驗名 : 紅外線試驗
* 實驗說明 : 數(shù)碼管顯示紅外線發(fā)送過來的鍵值。
* 連接方式 : 見連接圖
* 注意 :
*******************************************************************************/
//#include<reg51.h>
#include<reg52.h>
//--定義使用的IO--//
sbit IRIN = P3^2;
sbit PWM1 = P0^1;
sbit PWM2 = P0^2;
//--定義一個全局變量--//
unsigned char timer1;
unsigned char IrValue[6]; //用來存放讀取到的紅外值
unsigned char Time;
//--聲明全局函數(shù)--//
void IrInit();
void DelayMs(unsigned int );
void Time1Config();
void speedup();
void Slowdown();
void go();
void left();
void right();
void pwm_left(int x);
void pwm_right(int x);
/*******************************************************************************
* 函數(shù)名 : main
* 函數(shù)功能 : 主函數(shù)
* 輸入 : 無
* 輸出 : 無
*******************************************************************************/
void main()
{
PWM1=0;
PWM2=0;
IrInit();
Time1Config();
while(1)
{
IrValue[4]=IrValue[2]>>4; //高位
IrValue[5]=IrValue[2]&0x0f; //低位
if(IrValue[4]==0x0e&&IrValue[5]==0x08)
{
pwm_left(37);
pwm_right(40);
}
if(IrValue[4]==0x0d&&IrValue[5]==0x04)
{
pwm_left(0);
pwm_right(0);
}
//
if(IrValue[4]==0x0e&&IrValue[5]==0x02)
{
pwm_left(35);
pwm_right(22);
}
if(IrValue[4]==0x0e&&IrValue[5]==0x00)
{
pwm_left(22);
pwm_right(35);
}
}
}
void pwm_left(int x)
{
if(timer1>100) //PWM周期為100*0.5ms
{
timer1=0;
}
if(timer1 < x) //改變30這個值可以改變直流電機的速度
{
PWM1=1;
}
else
{
PWM1=0;
}
}
void pwm_right(int y)
{
if(timer1>100) //PWM周期為100*0.5ms
{
timer1=0;
}
if(timer1 < y) //改變30這個值可以改變直流電機的速度
{
PWM2=1;
}
else
{
PWM2=0;
}
}
/*******************************************************************************
* 函數(shù)名 : DelayMs()
* 函數(shù)功能 : 延時
* 輸入 : x
* 輸出 : 無
*******************************************************************************/
void DelayMs(unsigned int x) //0.14ms誤差 0us
{
unsigned char i;
while(x--)
{
for (i = 0; i<13; i++)
{}
}
}
/*******************************************************************************
* 函數(shù)名 : IrInit()
* 函數(shù)功能 : 初始化紅外線接收
* 輸入 : 無
* 輸出 : 無
*******************************************************************************/
void IrInit()
{
IT0=1;//下降沿觸發(fā)
EX0=1;//打開中斷0允許
EA=1; //打開總中斷
IRIN=1;//初始化端口
PWM1=0;
PWM2=0;
}
/*******************************************************************************
* 函數(shù)名 : ReadIr()
* 函數(shù)功能 : 讀取紅外數(shù)值的中斷函數(shù)
* 輸入 : 無
* 輸出 : 無
*******************************************************************************/
void ReadIr() interrupt 0
{
unsigned char j,k;
unsigned int err;
Time=0;
DelayMs(70);
if(IRIN==0) //確認是否真的接收到正確的信號
{
err=1000; //1000*10us=10ms,超過說明接收到錯誤的信號
/*當兩個條件都為真是循環(huán)，如果有一個條件為假的時候跳出循環(huán)，免得程序出錯的時
侯，程序死在這里*/
while((IRIN==0)&&(err>0)) //等待前面9ms的低電平過去
{
DelayMs(1);
err--;
}
if(IRIN==1) //如果正確等到9ms低電平
{
err=500;
while((IRIN==1)&&(err>0)) //等待4.5ms的起始高電平過去
{
DelayMs(1);
err--;
}
for(k=0;k<4;k++) //共有4組數(shù)據(jù)
{
for(j=0;j<8;j++) //接收一組數(shù)據(jù)
{
err=60;
while((IRIN==0)&&(err>0))//等待信號前面的560us低電平過去
{
DelayMs(1);
err--;
}
err=500;
while((IRIN==1)&&(err>0)) //計算高電平的時間長度。
{
DelayMs(1);//0.14ms
Time++;
err--;
if(Time>30)
{
EX0=1;
return;
}
}
IrValue[k]>>=1; //k表示第幾組數(shù)據(jù)
if(Time>=8) //如果高電平出現(xiàn)大于565us，那么是1
{
IrValue[k]|=0x80;
}
Time=0; //用完時間要重新賦值
}
}
}
if(IrValue[2]!=~IrValue[3])
{
return;
}
}
}
/*******************************************************************************
* 函數(shù) 名 : Time1Config
* 函數(shù)功能 : 設(shè)置定時器
* 輸入 : 無
* 輸出 : 無
*******************************************************************************/
void Time1Config()
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復(fù)制代碼

所有資料51hei提供下載:

程序.zip (30.61 KB, 下載次數(shù): 264)

ID:298119 · 發(fā)表于 2018-3-28 08:50

頂頂頂剛好需要謝謝樓主

ID:298119 · 發(fā)表于 2018-3-28 09:09

謝謝無私分享

ID:317135 · 發(fā)表于 2018-5-18 14:37

下載后發(fā)現(xiàn)里面的前后左右程序沒有寫

ID:343934 · 發(fā)表于 2018-6-7 16:11

好好好，，謝謝樓主

ID:89217 · 發(fā)表于 2018-6-18 01:49

灰常感謝樓主，共享資料。學(xué)習(xí)了

ID:326450 · 發(fā)表于 2018-11-4 18:48

郵電路圖和其他詳細資料么？

ID:426007 · 發(fā)表于 2018-11-15 23:28

灰常感謝樓主，共享資料。學(xué)習(xí)了

ID:428746 · 發(fā)表于 2018-11-18 16:26

謝謝樓主

ID:426007 · 發(fā)表于 2018-11-18 23:48

樓主打不開啊

ID:165792 · 發(fā)表于 2018-11-26 21:52

好，下載來試試

ID:584662 · 發(fā)表于 2019-8-1 20:03

沒看到連接圖啊

ID:592788 · 發(fā)表于 2019-8-6 23:38

學(xué)習(xí)學(xué)習(xí)

ID:661170 · 發(fā)表于 2019-12-11 01:11

謝謝樓主分享

ID:661170 · 發(fā)表于 2019-12-11 01:11

幫大忙了

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