原創STC15單片機+DS18B20做的溫度異常超溫報警器

ID:123732 · 發表于 2016-10-15 18:30

1.簡介：通過按鍵可以設定溫度上限和溫度下限的值，當溫度低于溫度下限值或者當溫度高于上限值時，蜂鳴器發出聲音提醒。
2.元件:STC15W408AS單片機+共陰數碼管+有源蜂鳴器+3個按鍵+DS18B20
3.設計思路:利用單片機逐點掃描的方式直接驅動三位共陰數碼管，通過DS18B20讀取溫度與設定的溫度進行比較，如果溫度異常則蜂鳴器發出滴滴的聲音提醒，按下K3鍵則清除報警聲（溫度恢復正常后再次異常時自動報警）。
4.使用方法：程序下載后首次使用前需同時按下K2鍵和K3鍵（對最初的溫度上下限值寫入EEPROM中）以后斷電自動保存無需進行此操作
5.按下K1鍵則進入溫度上限設置菜單，可以通過按K2進行加 K3進行減，再次按K1鍵則進入溫度下限報警值的設定界面。設置后5秒無操作則自動保存設定的數據并返回溫度顯示界面。

所有資料下載：

溫度控制超溫報警stc15w.rar (80.31 KB, 下載次數: 407)

//2016.10.15編寫
/*********************************************************************************************/
//作者：劉海龍
//硬件：三位共陰數碼管+stc15單片機+DS18B20溫度芯片+蜂鳴器//選擇內部12M晶振
#include <STC15W.h>
#include <intrins.h>
#include<4LED_YIN.H>//數碼管驅動顯示程序
#include<DS18B20.H>//DS18B20溫度芯片驅動程序
#include<EEPROM.H>//STC15系列內部EEPROM
bit w=0,q;//報警標志位
sbit beep=P5^4;//蜂鳴器負極連接IO正極接vcc
sbit k1=P1^3;//設置鍵
sbit k2=P1^4;// 加鍵
sbit k3=P1^5;// 減鍵
//sbit led1=P1^6;//
//sbit led2=P1^7;//
unsigned char menu=0,cou,HH,HL,LH,LL;//HH為溫度上限高8位HL為溫度上限低8位
//LH為溫度下限高8位LL為溫度下限低8位
unsigned int L,H;//H為溫度上限，L為溫度下限
/************************************************************************/
void delay1ms (unsigned int a){ // 1ms延時程序
unsigned int i;
while( --a != 0){
for(i = 0; i < 629; i++);//STC15單片機在外部晶振為12MHz時i值上限為629
}
}
/*****************************************************************************/
void disp(unsigned int t){//數碼管顯示
unsigned int i;
i= t/100;//第一位數碼管顯示溫度十位
diplay_data (1,disdata);
i=t%100/10;//第二位數碼管顯示溫度個位
diplay_data (2,disdata+0x80);//0x80為個位數后面的小數點
i=t%100%10;//第三位數碼管顯示溫度小數位
diplay_data (3,disdata);
}
/***********************************************/
void di(){//蜂鳴器驅動程序
beep=0;
delay1ms(500);
beep=1;
delay1ms(500);
}
/*********************************************************************************************
函數名：定時/計數器初始化函數
調用：T_C_init();
/**********************************************************************************************/
void T_C_init (void){
TMOD = 0x11; //高4位控制T/C1 [ GATE，C/T，M1，M0，GATE，C/T，M1，M0 ]
EA = 1; //中斷總開關
TH0 = 0x3c; //16位計數寄存器T0高8位（寫入初值）
TL0 = 0xb0; //16位計數寄存器T0低8位
ET0 = 1; //T/C1中斷開關
TR0 = 0; //T/C1關閉開關
}
/*********************************************************************************************
函數名：定時/計數器1中斷處理函數
調用：[T/C1溢出后中斷處理]
/*****************************/
void T_C0 (void) interrupt 1 using 1{ //切換寄存器組到1
cou++; // 軟計數器加1
if(cou > 99){// 計數值到(5s)
cou = 0;// 軟計數器清零
IapEraseSector(0x00); //擦除整個扇區
IapProgramByte(0x00,HH );//將新的溫度上限值高8位寫入 EEPROM
IapProgramByte(0x01, HL);//將新的溫度上限值低8位寫入 EEPROM
IapProgramByte(0x02,LH );//將新的溫度下限值高8位寫入 EEPROM
IapProgramByte(0x03, LL);//將新的溫度下限值低8位寫入 EEPROM
TR0 = 0; //T/C1停止計數
menu=0;//返回主菜單的溫度顯示界面
}
TH0 = 0x3c; //16位計數寄存器T0高8位（重新寫入初值）
TL0 = 0xb0; //16位計數寄存器T0低8位
}
/**********************************************************************************************/
/**********************************************************************************************/
void main (void){
unsigned char i;
delay1ms(300); //延時待系統穩定
init();//IO工作方式初始化
T_C_init();//定時器初始化
ReadTemperature(); //讀取溫度
HH = IapReadByte(0x00);//開機時從EEPROM中讀取H高8位參數
HL = IapReadByte(0x01);//開機時從EEPROM中讀取H的低8位參數
H=HH*256+HL;//讀出溫度上限值
LH = IapReadByte(0x02);//開機時從EEPROM中讀取L高8位參數
LL = IapReadByte(0x03);//開機時從EEPROM中讀取L的低8位參數
L=LH*256+LL;//讀出溫度下限值
while(1){//主循環
/**********************顯示溫度界面******************************/
if(menu==0){
for(i=15;i>0;i--){
disp(ReadTemperature());}
if(tem>=H&&w==0||tem<=L&&w==0){
di();//超溫或者低溫報警
q=1;
}
if(k3==0&&q==1){w=1;}//如果報警時按下K1則關閉報警聲
if(tem<=H&&tem>=L){w=0;}//如果溫度恢復正常把報警標志清除
if(k2==0&&k3==0){//k2k3同時按下溫度上限下限值恢復出廠設置
delay1ms(10);
if(k2==0&&k3==0){
H=380;//溫度上限38度
L=370;//溫度下限37度
LL=L;
LH=(L>>8);
HL=H;
HH=(H>>8);
IapEraseSector(0x00); //擦除整個扇區
IapProgramByte(0x00,HH );//將新的溫度上限值高8位寫入 EEPROM
IapProgramByte(0x01, HL);//將新的溫度上限值低8位寫入 EEPROM
IapProgramByte(0x02,LH );//將新的溫度下限值高8位寫入 EEPROM
IapProgramByte(0x03, LL);//將新的溫度下限值低8位寫入 EEPROM
di();
}
}
}
/*********************進入調溫度上限界面*******************************/
if(menu==1){
diplay_data (1,disdata[H/100]);
diplay_data (2,disdata[H%100/10]+0x80);
diplay_data (3,disdata[H%10]);
if(k2==0){
delay1ms(10);
if(k2==0){
H++; //按下K1鍵則溫度上限加零點一度
cou=0;//重新計數
TR0 = 1; //T/C1啟動開關
while(!k2);
HL=H;
HH=(H>>8);
}
}
if(k3==0){
delay1ms(10);
if(k3==0){
H--; //按下K1鍵則溫度上限減零點一度
cou=0;//重新計數
TR0 = 1; //T/C1啟動開關
while(!k3);
HL=H;
HH=(H>>8);
}
}
}
/*******************進入調溫度下限界面****************************/
if(menu==2){
diplay_data (1,disdata[L/100]);
diplay_data (2,disdata[L%100/10]+0x80);
diplay_data (3,disdata[L%10]);
if(k2==0){
delay1ms(10);
if(k2==0){
cou=0;//重新計數
TR0 = 1; //T/C1啟動開關
L++; //按下K1鍵則溫度下限加零點一度
while(!k2);
LL=L;
LH=(L>>8);
}
}
if(k3==0){
delay1ms(10);
if(k3==0){
cou=0;//重新計數
TR0 = 1; //T/C1啟動開關
L--; //按下K1鍵則溫度下限減零點一度
while(!k3);
LL=L;
LH=(L>>8);
}
}
}
/*************************按下K1鍵進入菜單設置界面***************************/
if(k1==0){
delay1ms(10);
if(k1==0){
cou=0;//重新計數
TR0 = 1; //T/C1啟動開關
menu++; //按下K1鍵則菜單加一
if(menu>2){menu=0;}
while(!k1);
}
}
}
}
/*****************************************************************************/

復制代碼

ID:108868 · 發表于 2016-10-30 20:38

謝謝分享！已制作成功

ID:152422 · 發表于 2016-12-9 22:38

樓主是個有思想的人。贊\

ID:158407 · 發表于 2017-1-1 13:13

請教：原創STC15單片機+DS18B20做的溫度異常超溫報警器，keil顯示錯誤，如何解決？STC15W.h(526): warning C322: unknown identifier
STC15W.h(528): warning C322: unknown identifier
STC15W.h(530): warning C322: unknown identifier
STC15W.h(532): warning C322: unknown identifier
STC15W.h(534): warning C322: unknown identifier
STC15W.h(536): warning C322: unknown identifier
STC15W.h(538): warning C322: unknown identifier
溫度控制器.C(64): warning C206: 'IapEraseSector': missing function-prototype
溫度控制器.C(64): error C267: 'IapEraseSector': requires ANSI-style prototype
溫度控制器.c - 1 Error(s), 8 Warning(s).

ID:123732 · 發表于 2017-1-3 21:32

bpdy168 發表于 2017-1-1 13:13
請教：原創STC15單片機+DS18B20做的溫度異常超溫報警器，keil顯示錯誤，如何解決？STC15W.h(526): warning ...

IapEraseSector這個函數在編譯時無法獲取其原型。
要么把IapEraseSector()函數體放在調用它的函數前面，要么在前面添加IapEraseSector()函數的原型聲明。

ID:160399 · 發表于 2017-1-6 12:20

給一下ds18b20的初始化函數啊

ID:146603 · 發表于 2017-4-13 11:10

不錯不錯，需要下載才能看到其他文件的。

ID:207298 · 發表于 2017-6-3 09:21

怎么無法下載啊

ID:203336 · 發表于 2017-6-8 22:33

好資料~模塊很清晰非常好用~謝謝

ID:168444 · 發表于 2017-6-16 11:07

　謝謝分享！已制作成功

ID:168444 · 發表于 2017-6-16 11:27

樓主，Delay_us();微秒延時怎么寫？

ID:220402 · 發表于 2017-7-17 21:02

不錯不錯，感謝分享

ID:159139 · 發表于 2017-8-8 21:28

謝謝分享，學習一下EEPROM的操作。

ID:226801 · 發表于 2017-8-11 01:39

謝謝分享，學習一下18B20的寫法

ID:233015 · 發表于 2017-9-20 08:47

制作成功了，在制作過程中犯了一些低級小錯誤，最后請教了樓主南瓜大哥，感謝南瓜大哥的昨天細心指導與分析，謝謝，很給力。

ID:233015 · 發表于 2017-9-20 08:48

感謝南瓜大哥的分享與指導，很給力，謝謝

ID:240443 · 發表于 2017-10-18 05:52

試試看看，正需要

ID:226801 · 發表于 2017-12-13 10:26

正在使用樓主的程序，改在我的學習板上，謝謝樓主的程序

ID:254251 · 發表于 2018-6-7 00:10

劉海龍老師這里什么改

ID:254251 · 發表于 2018-6-7 00:12

ID:346614 · 發表于 2018-6-7 01:22

謝謝，寫的很實用，亨給利

ID:352183 · 發表于 2018-6-14 23:12

謝謝，寫的很實用

ID:233214 · 發表于 2018-6-16 14:48

謝謝分享，不錯

ID:343102 · 發表于 2018-6-17 10:50

謝謝分享，下來學習學習

ID:72576 · 發表于 2018-12-2 10:22

好資料~模塊很清晰非常好用~謝謝

ID:350104 · 發表于 2018-12-2 23:01

不錯很喜歡樓主的設計有實用性

ID:63317 · 發表于 2018-12-3 05:55

謝謝分享資料

ID:441855 · 發表于 2018-12-13 13:39

大佬這個程序可以用單片機編程嗎

ID:378706 · 發表于 2019-6-18 11:06

不錯很喜歡樓主的設計有實用性

ID:1051901 · 發表于 2022-11-14 15:06

劉海龍發表于 2017-1-3 21:32
IapEraseSector這個函數在編譯時無法獲取其原型。
要么把IapEraseSector()函數體放在調用它的函數前面， ...

今天做了很多次，時序總是不對，只有請教高手了

ID:1051901 · 發表于 2022-11-14 15:08

代碼真的很好，借鑒了

ID:1051661 · 發表于 2022-11-18 21:40

Animals 發表于 2016-10-30 20:38
謝謝分享！已制作成功

請問程序怎么燒錄呀

ID:262 · 發表于 2022-11-18 22:15

liziwen 發表于 2022-11-18 21:40
請問程序怎么燒錄呀

給你做好的板子通電,用串口線連接好電腦,打開stcisp軟件,載入hex文件,點擊下載程序,按提示冷啟動即可

ID:1001745 · 發表于 2023-2-8 19:20

大師，請問數碼管有筆畫暗是什么原因？數碼管沒有問題，已經全部點亮看過的。

ID:894868 · 發表于 2023-2-10 15:06

我只是來點贊一下，支持一下作者··

ID:1077165 · 發表于 2023-5-12 23:19

DS18B20做的溫度

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

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

原創STC15單片機+DS18B20做的溫度異常超溫報警器

評分

相關帖子