道岔轉(zhuǎn)轍機(jī)安裝在鐵道旁邊,在風(fēng)吹日曬雨淋的條件下,連接桿件和運(yùn)動部件容.易產(chǎn)生銹蝕和磨卡,影響道岔轉(zhuǎn)轍機(jī)的正常運(yùn)行。為.確保道岔轉(zhuǎn)轍機(jī)可靠運(yùn)行并具有較長的使用壽命,需要給道岔轉(zhuǎn)轍機(jī)提供充分的潤滑。
1、檢測道岔的溫度濕度和當(dāng)前環(huán)境的粉塵。
2、設(shè)定閥值,過限報警。
3、道岔鎖鉤傳感器檢測到運(yùn)輸貨箱通過,啟動潤滑。
4、可通過遠(yuǎn)程控制潤滑。
主要器件:
濕度傳感器HS1101
粉塵傳感器MQ2
#include "ADC0832.h"
//讀取AD值
unsigned int ADC0832(unsigned char channel) //AD轉(zhuǎn)換,返回結(jié)果
{
uchar i = 0;
unsigned char j;
unsigned int dat = 0;
unsigned char ndat = 0;
if (channel == 0) channel = 2;//通道1
if (channel == 1) channel = 3;//通道2
ADDI = 1;//輸入引腳拉高
_nop_();//延時1us
_nop_();//延時1us
ADCS = 0;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 1;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 0;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 1;
ADDI = channel & 0x1;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 0;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 1;
ADDI = (channel >> 1) & 0x1;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 0;
ADDI = 1;
_nop_();//延時1us
_nop_();//延時1us
dat = 0;
for (i = 0; i < 8; i++)
{
dat |= ADDO;
ADCLK = 1;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 0;
_nop_();//延時1us
_nop_();//延時1us
dat <<= 1;
if (i == 7) dat |= ADDO;
}
for (i = 0; i < 8; i++)
{
j = 0;
j = j | ADDO;
ADCLK = 1;
_nop_();//延時1us
_nop_();//延時1us
ADCLK = 0;
_nop_();//延時1us
_nop_();//延時1us
j = j << 7;
ndat = ndat | j;
if (i < 7) ndat >>= 1;
}
ADCS = 1;
ADCLK = 0;
ADDO = 1;
dat <<= 8;
dat |= ndat;
return(dat);
}
#include"Ds18b20.h"
float ds18b20_temp=0;
/*******************************************************************************
* 函 數(shù) 名 : Delay1ms
* 函數(shù)功能 : 延時函數(shù)
* 輸 入 : 無
* 輸 出 : 無
*******************************************************************************/
void Delay1ms(uint y)
{
uint x;
for( ; y>0; y--)
{
for(x=110; x>0; x--);
}
}
/*******************************************************************************
* 函 數(shù) 名 : Ds18b20Init
* 函數(shù)功能 : 初始化
* 輸 入 : 無
* 輸 出 : 初始化成功返回1,失敗返回0
*******************************************************************************/
uchar Ds18b20Init()
{
uchar i;
DSPORT = 0; //將總線拉低480us~960us
i = 100;
while(i--);//延時642us
DSPORT = 1; //然后拉高總線,如果DS18B20做出反應(yīng)會將在15us~60us后總線拉低
i = 0;
while(DSPORT) //等待DS18B20拉低總線
{
Delay1ms(1);
i++;
if(i>5)//等待>5MS
{
return 0;//初始化失敗
}
}
return 1;//初始化成功
}
/*******************************************************************************
* 函 數(shù) 名 : Ds18b20WriteByte
* 函數(shù)功能 : 向18B20寫入一個字節(jié)
* 輸 入 : 無
* 輸 出 : 無
*******************************************************************************/
void Ds18b20WriteByte(uchar dat)
{
uint i, j;
for(j=0; j<8; j++)
{
DSPORT = 0; //每寫入一位數(shù)據(jù)之前先把總線拉低1us
i++;
DSPORT = dat & 0x01; //然后寫入一個數(shù)據(jù),從最低位開始
i=6;
while(i--); //延時68us,持續(xù)時間最少60us
DSPORT = 1; //然后釋放總線,至少1us給總線恢復(fù)時間才能接著寫入第二個數(shù)值
dat >>= 1;
}
}
/*******************************************************************************
* 函 數(shù) 名 : Ds18b20ReadByte
* 函數(shù)功能 : 讀取一個字節(jié)
* 輸 入 : 無
* 輸 出 : 無
*******************************************************************************/
uchar Ds18b20ReadByte()
{
uchar byte, bi;
uint i, j;
for(j=8; j>0; j--)
{
DSPORT = 0;//先將總線拉低1us
i++;
DSPORT = 1;//然后釋放總線
i++;
i++;//延時6us等待數(shù)據(jù)穩(wěn)定
bi = DSPORT; //讀取數(shù)據(jù),從最低位開始讀取
/*將byte左移一位,然后與上右移7位后的bi,注意移動之后移掉那位補(bǔ)0。*/
byte = (byte >> 1) | (bi << 7);
i = 4; //讀取完之后等待48us再接著讀取下一個數(shù)
while(i--);
}
return byte;
}
/*******************************************************************************
* 函 數(shù) 名 : Ds18b20ChangTemp
* 函數(shù)功能 : 讓18b20開始轉(zhuǎn)換溫度
* 輸 入 : 無
* 輸 出 : 無
*******************************************************************************/
void Ds18b20ChangTemp()
{
Ds18b20Init();
Delay1ms(1);
Ds18b20WriteByte(0xcc); //跳過ROM操作命令
Ds18b20WriteByte(0x44); //溫度轉(zhuǎn)換命令
//Delay1ms(100); //等待轉(zhuǎn)換成功,而如果你是一直刷著的話,就不用這個延時了
}
/*******************************************************************************
* 函 數(shù) 名 : Ds18b20ReadTempCom
* 函數(shù)功能 : 發(fā)送讀取溫度命令
* 輸 入 : 無
* 輸 出 : 無
*******************************************************************************/
void Ds18b20ReadTempCom()
{
Ds18b20Init();
Delay1ms(1);
Ds18b20WriteByte(0xcc); //跳過ROM操作命令
Ds18b20WriteByte(0xbe); //發(fā)送讀取溫度命令
}
/*******************************************************************************
* 函 數(shù) 名 : Ds18b20ReadTemp
* 函數(shù)功能 : 讀取溫度
* 輸 入 : 無
* 輸 出 : 無
*******************************************************************************/
void Ds18b20ReadTemp()
{
uchar temp = 0;
uchar tmh, tml;
Ds18b20ChangTemp(); //先寫入轉(zhuǎn)換命令
Ds18b20ReadTempCom(); //然后等待轉(zhuǎn)換完后發(fā)送讀取溫度命令
tml = Ds18b20ReadByte(); //讀取溫度值共16位,先讀低字節(jié)
tmh = Ds18b20ReadByte(); //再讀高字節(jié)
temp = tmh;
temp <<= 4;
temp += (tml>>4);
if(temp>127)
{
temp--;
temp=~temp;
temp=temp & 0x7f;
ds18b20_temp=temp;
ds18b20_temp=-ds18b20_temp;
}
else
ds18b20_temp=temp;
ds18b20_temp=ds18b20_temp+(tml & 0x0f)*9/150;
}
資料借鑒于此紛傳
閱讀全文