|
這個(gè)能實(shí)現(xiàn)用紅外遙控,輸入最高溫度最低溫度,當(dāng)大于最高溫度或者小于最低溫度時(shí), 蜂鳴器報(bào)警。
這個(gè)程序可以實(shí)現(xiàn)用紅外線遙控器設(shè)定一個(gè)大于等于0,小于100 度的整數(shù)溫度值,當(dāng)檢測(cè)的溫度大于設(shè)定的溫度時(shí),蜂鳴器響
0.png (51.13 KB, 下載次數(shù): 13)
下載附件
2018-3-13 01:31 上傳
單片機(jī)源程序如下:
- #include "reg52.h"
- #include"temp.h"
- typedef unsigned int u16; //對(duì)數(shù)據(jù)類型進(jìn)行聲明定義
- typedef unsigned char u8;
- sbit LSA = P2 ^ 2; //數(shù)碼管引腳
- sbit LSB = P2 ^ 3; //數(shù)碼管引腳
- sbit LSC = P2 ^ 4; //數(shù)碼管引腳
- sbit beep = P1 ^ 5; //蜂鳴器引腳
- sbit IRIN = P3 ^ 2; //紅外傳感器引腳
- u8 IrValue[6]; //紅外碼
- u8 Time; //紅外高電平時(shí)間
- u16 temp1 = 0; //預(yù)設(shè)最高溫度
- u16 temp2 = 0; //預(yù)設(shè)最低溫度
- u16 sethigh = 1; //是否在設(shè)置最高溫度
- u8 DisplayData1[8]; //預(yù)設(shè)溫度
- u16 change; //按鍵是否被按下
- char num = 0;
- u8 DisplayData[8];
- u8 code smgduan[10] = { 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f };
- void delay(u16 i) //延時(shí)10um
- {
- while (i--);
- }
- void datapros(int temp) //處理從溫度傳感器讀入的數(shù)值,轉(zhuǎn)換為攝氏度,temp = 溫度*100,DisplayData[] 數(shù)組中是temp的顯示碼
- {
- float tp;
- if (temp < 0) //當(dāng)溫度值為負(fù)數(shù)
- {
- DisplayData[0] = 0x40; // - 因?yàn)樽x取的溫度是實(shí)際溫度的補(bǔ)碼,所以減1,再取反求出原碼
- temp = temp - 1;
- temp = ~temp;
- tp = temp;
- temp = tp * 0.0625 * 100 + 0.5;
- //留兩個(gè)小數(shù)點(diǎn)就*100,+0.5是四舍五入,因?yàn)镃語(yǔ)言浮點(diǎn)數(shù)轉(zhuǎn)換為整型的時(shí)候把小數(shù)點(diǎn)
- //后面的數(shù)自動(dòng)去掉,不管是否大于0.5,而+0.5之后大于0.5的就是進(jìn)1了,小于0.5的就
- //算加上0.5,還是在小數(shù)點(diǎn)后面。
- }
- else
- {
- DisplayData[0] = 0x00;
- tp = temp;//因?yàn)閿?shù)據(jù)處理有小數(shù)點(diǎn)所以將溫度賦給一個(gè)浮點(diǎn)型變量
- //如果溫度是正的那么,那么正數(shù)的原碼就是補(bǔ)碼它本身
- temp = tp * 0.0625 * 100 + 0.5;
- }
- if (temp >= temp1 * 100 || temp <= temp2 * 100)
- beep = ~beep;
- DisplayData[1] = smgduan[temp / 10000];
- DisplayData[2] = smgduan[temp % 10000 / 1000];
- DisplayData[3] = smgduan[temp % 1000 / 100] | 0x80;
- DisplayData[4] = smgduan[temp % 100 / 10];
- DisplayData[5] = smgduan[temp % 10];
- }
- void DigDisplay() //顯示 DisplayData[] 中的內(nèi)容
- {
- u8 i;
- for (i = 0; i < 6; i++)
- {
- switch (i) //位選,選擇點(diǎn)亮的數(shù)碼管,
- {
- case(0):
- LSA = 0; LSB = 0; LSC = 0; break;//顯示第0位
- case(1):
- LSA = 1; LSB = 0; LSC = 0; break;//顯示第1位
- case(2):
- LSA = 0; LSB = 1; LSC = 0; break;//顯示第2位
- case(3):
- LSA = 1; LSB = 1; LSC = 0; break;//顯示第3位
- case(4):
- LSA = 0; LSB = 0; LSC = 1; break;//顯示第4位
- case(5):
- LSA = 1; LSB = 0; LSC = 1; break;//顯示第5位
- }
- P0 = DisplayData[5 - i]; //發(fā)送數(shù)據(jù)
- delay(100); //間隔一段時(shí)間掃描
- P0 = 0x00; //消隱
- }
- }
- void IrInit() //初始化紅外傳感器
- {
- IT0 = 1; //下降沿觸發(fā)
- EX0 = 1; //EXO = 1 打開(kāi)紅外線中斷0允許,數(shù)據(jù)在IrValue[2]中
- EA = 1; //打開(kāi)總中斷
- IRIN = 1; //初始化端口
- }
- void DigDisplay1() //剛開(kāi)始溫度設(shè)置時(shí),溫度的顯示
- {
- u8 i;
- for (i = 0; i < 2; i++)
- {
- switch (i) //位選,選擇點(diǎn)亮的數(shù)碼管,
- {
- case(0):
- LSA = 0; LSB = 0; LSC = 0; break;//顯示第0位
- case(1):
- LSA = 1; LSB = 0; LSC = 0; break;//顯示第1位
- }
- P0 = DisplayData1[1 - i]; //發(fā)送數(shù)據(jù),先顯示個(gè)位,是DisplayData1[1]
- delay(100); //間隔一段時(shí)間掃描
- P0 = 0x00; //消隱
- }
- }
- void main()
- {
- u16 displaytemp; //在設(shè)置溫度時(shí),要顯示的值
- IrInit();
- while (1) //最高最低溫度設(shè)置
- {
- if (IrValue[2] == 0x44)
- {
- EX0 = 0; //關(guān)閉中斷0允許,用于溫度設(shè)置完成后,不在接受中斷
- break;
- }
- if (IrValue[2] == 0x07)
- {
- sethigh = 0;
- }
- if (temp1 >= 0 && temp1 < 9 && sethigh == 1) //最高溫度設(shè)置
- {
- if (change == 1)
- {
- switch (IrValue[2])
- {
- case(0x16):
- temp1 = temp1 * 10 + 0; break;
- case(0x0c):
- temp1 = temp1 * 10 + 1; break;
- case(0x18):
- temp1 = temp1 * 10 + 2; break;
- case(0x5e):
- temp1 = temp1 * 10 + 3; break;
- case(0x08):
- temp1 = temp1 * 10 + 4; break;
- case(0x1c):
- temp1 = temp1 * 10 + 5; break;
- case(0x5a):
- temp1 = temp1 * 10 + 6; break;
- case(0x42):
- temp1 = temp1 * 10 + 7; break;
- case(0x52):
- temp1 = temp1 * 10 + 8; break;
- case(0x4a):
- temp1 = temp1 * 10 + 9; break;
- default:
- break;
- }
- change = 0;
- }
- displaytemp = temp1;
- }
- if (temp2 >= 0 && temp2 < 9 && sethigh == 0) //最低溫度設(shè)置
- {
- if (change == 1)
- {
- switch (IrValue[2])
- {
- case(0x16):
- temp2 = temp2 * 10 + 0; break;
- case(0x0c):
- temp2 = temp2 * 10 + 1; break;
- case(0x18):
- temp2 = temp2 * 10 + 2; break;
- case(0x5e):
- temp2 = temp2 * 10 + 3; break;
- case(0x08):
- temp2 = temp2 * 10 + 4; break;
- case(0x1c):
- temp2 = temp2 * 10 + 5; break;
- case(0x5a):
- temp2 = temp2 * 10 + 6; break;
- case(0x42):
- temp2 = temp2 * 10 + 7; break;
- case(0x52):
- temp2 = temp2 * 10 + 8; break;
- case(0x4a):
- temp2 = temp2 * 10 + 9; break;
- default:
- break;
- }
- change = 0;
- }
- displaytemp = temp2;
- }
- DisplayData1[0] = smgduan[displaytemp / 10]; //取十位
- DisplayData1[1] = smgduan[displaytemp % 10]; //取個(gè)位
- DigDisplay1();
- }
- while (1) //檢測(cè)到的溫度顯示
- {
- datapros(Ds18b20ReadTemp()); //數(shù)據(jù)處理函數(shù)
- DigDisplay(); //數(shù)碼管顯示函數(shù)
- }
- }
- void ReadIr() interrupt 0 //紅外線的中斷函數(shù),用于接收紅外信號(hào),把數(shù)據(jù)存入IrValue[2]中
- {
- u8 j, k;
- u16 err;
- Time = 0;
- delay(700); //7ms
- if (IRIN == 0) //確認(rèn)是否真的接收到正確的信號(hào)
- {
- err = 1000; //1000*10us=10ms,超過(guò)說(shuō)明接收到錯(cuò)誤的信號(hào)
- /*當(dāng)兩個(gè)條件都為真是循環(huán),如果有一個(gè)條件為假的時(shí)候跳出循環(huán),免得程序出錯(cuò)的時(shí)
- 侯,程序死在這里*/
- while ((IRIN == 0) && (err > 0)) //等待前面9ms的低電平過(guò)去
- {
- delay(1);
- err--;
- }
- if (IRIN == 1) //如果正確等到9ms低電平
- {
- err = 500;
- while ((IRIN == 1) && (err > 0)) //等待4.5ms的起始高電平過(guò)去
- {
- delay(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))//等待信號(hào)前面的560us低電平過(guò)去
- {
- delay(1);
- err--;
- }
- err = 500;
- while ((IRIN == 1) && (err > 0)) //計(jì)算高電平的時(shí)間長(zhǎng)度。
- {
- delay(10); //0.1ms
- Time++;
- err--;
- if (Time > 30)
- {
- return;
- }
- }
- IrValue[k] >>= 1; //k表示第幾組數(shù)據(jù)
- if (Time >= 8) //如果高電平出現(xiàn)大于565us,那么是1
- {
- IrValue[k] |= 0x80;
- }
- Time = 0; //用完時(shí)間要重新賦值
- }
- }
- }
- if (IrValue[2] != ~IrValue[3])
- {
- return;
- }
- change = 1; //有有效的按鍵被按下
- }
- }
復(fù)制代碼
所有資料51hei提供下載:
tenperature.rar
(46.48 KB, 下載次數(shù): 21)
2018-3-13 01:13 上傳
點(diǎn)擊文件名下載附件
下載積分: 黑幣 -5
|
|