基于51单片机的数字温度报警器源程序

helendcany · 发表于 2019-1-17 09:40

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

基于51单片机的数字温度报警器源程序
: ]9 T0 T) b# N+ ~6 c* k* |6 O

#include<reg51.h>3 B  N3 S: _+ z6 Z! Y- R
typedef unsigned char uchar;% T& I3 F. R" g! \
typedef unsigned int  uint;
6 i8 {7 o- `- R) R) t! N8 Muchar i;
. I5 W7 T% ^9 Ksbit RS=P2^7;
: C2 R7 S: m3 O/ M$ u& T+ [sbit RW=P2^6;1 e* v5 [1 `' \
sbit E=P2^5;6 @$ Z! `8 P5 }
sbit D1=P1^0;8 `5 q7 v; Y9 S! P" t+ }
sbit D2=P1^1;. j3 @" z1 u' d* l4 A6 E; ]
sbit k1=P2^1;//加按键
, [$ G# o' s# d. ?8 l3 O. Bsbit k2=P2^2;//减按键
0 {0 U& \8 p# \2 P5 ]2 ssbit k3=P2^0;//设置按键
- k0 c! Z+ Z" d3 ~- Puint th=360;//设定高温 / z/ S; m% D. `( ]
uint tl=350;//设定低温
2 ?: A6 M8 M, zuint ta;//实际温度
, Y# V# F4 y& z" g8 nuchar code t0[]="WD=  .       ";9 L& ~7 ]3 |9 f
uchar code t1[]="TH=  .  TL=  .  ";( q2 |* h4 E- o2 D
uchar code wendu[]="0123456789";       //利用一个温度表解决温度显示乱码
  q# \& n1 @0 ?# g0 W9 Q" Esbit DQ=P2^3;//定义DS18B20总线IO
7 J! U% P. R1 q5 T* \uchar position;//设置的位置' B' \+ }$ \- Y& M' f2 E
//延时子函数! i) x  r# W1 e: N
void delay(uint z)+ {" ]7 p% [/ M4 N
{2 A0 n! {& c" U: t
      uint x,y;7 Y) w, R9 i- v3 P: z' W; q
      for(x=100;x>1;x--)
5 Q, B% s1 a  G& m: G             for(y=z;y>1;y--);9 C! p5 g) j2 S$ B. I2 M: L
}
4 r3 n& f( B3 ?% P//LCD1602液晶写命令子函数
0 L' D" e, ^, R0 t/ b" U9 S4 Wvoid write_com(uchar com)
- r) R4 u8 m9 L: R2 _' I{5 C2 q# A$ c2 k) i6 q, m
      RS=0;9 X, C, Q) E* P: o6 q9 e4 l
      P0=com;                                     ; l$ g2 m9 D7 B/ v  t! Y1 q
      delay(5);: L/ A, Z( H: M: T) _% k
      E=1;+ @0 k. l" t7 w  C/ d- Z2 A
      delay(5);
3 U1 i- Y+ i! g+ ?+ |2 ^       E=0;
$ U6 S. j) q. I( p7 {3 k}
) u/ ?0 |! Z5 f3 R7 j. G//LCD1602液晶写数据子函数
( f2 B# N8 [5 Q! ?9 mvoid write_date(uchar date)/ C( `8 H: x' O+ b% X( B1 l' I
{" v7 e; v: c5 s9 Y- v
      RS=1;( L& E# j; Q2 j8 Y9 I2 c* S
      P0=date;' B# ]3 d. ?! O) X" V) C
      delay(5);1 P. H# w6 a; V0 Q% }+ d1 t
      E=1;
' c6 D7 `8 S7 \5 T8 g8 {( E' s       delay(5);* O% r7 @. W& J3 Q: m
      E=0;4 h- r& B& Y( G4 d- ~0 u8 o2 J- l
}0 Y/ ]2 H" V; `3 m7 c" V
//LCD1602液晶初始化子函数
& @" z  z6 B1 Q4 H& Fvoid LCD1602_init()
" O8 Q; k3 H! S5 q% T{. L3 d9 a! B2 {  G1 [/ V+ a
      E=0;8 k5 {8 ]  ^- \
      RW=0;& Z* [7 \: m: S1 |1 H$ H# [* `
      write_com(0x38);
6 t7 B: Y. a! j0 M       write_com(0x01);* a( }# Q7 e5 _. R  r1 s# E
      write_com(0x0c);
* R$ a( k- i2 V, T       write_com(0x06);
$ w) ]2 I" q, k, N4 x       write_com(0x80);       3 u$ R5 D3 {7 |. X9 u3 _* o
      for(i=0;i<16;i++)
) c; P$ C0 y% }4 ~  E2 J* Z# g       {; `( x& P; Z# x( h0 M% I
            write_date(t0);' _" J5 G7 \! K! E* |, m' f9 Y7 W+ K
            delay(0);. m* d' _( Y9 q& Q0 R
      }4 Y' H; M, p( H! A& f# h  y& {
      write_com(0x80+0x40);
0 m, W; j2 D6 O5 Z2 R- J3 \. J: j       for(i=0;i<16;i++)4 e) Z9 j, F( A5 I9 A
      {) K- F# R" f$ `
            write_date(t1);
3 x* b1 H& M6 s2 p# ]             delay(0);! t! l# k, `+ L3 o
      }4 h7 z4 }- t8 e& v8 j
}( @. z7 J1 n, f$ P- `
//延时子函数
. C% g5 j, x* Z+ j$ g* Dvoid tmpDelay(int num)( V# b- u  |: Q: M
{$ Z: }6 m& [! ]- W( {8 m" q3 ^# D
      while(num--);
# X9 [& M# ]& ]$ O6 |}       . s2 E" \) U$ b7 |, p
//DS18B20温度传感器初始化子函数# F- Z& L+ t$ z& Q& \3 t
void DS18B20_init()
1 G1 G: y9 b& U) K{
. z+ c# r+ J) B- j9 D* g       uchar x=0;8 I) M) M; m" m( B) @
      DQ=1; //DQ复位
+ t# Z" v; \0 V' t0 z( J       tmpDelay(8);  //稍做延时3 l" r6 H* x+ k& C" s; ?- g
      DQ=0; //单片机将DQ拉低5 `8 n  B. H, V* e' V. Y
      tmpDelay(80); //精确延时大于 480us
9 Q, R0 S& X+ {: [, b  b; Y       DQ=1; //拉高总线. Y# ~9 u6 o! a* d' l1 _" i
      tmpDelay(14);
' e7 j) v: W" G       x=DQ;    //稍做延时后如果x=0则初始化成功 x=1则初始化失败
2 {9 l: Q% @9 _8 c* Q       tmpDelay(20);
. [* H0 o! h# Q  K1 |. ^: p, |: K# ~}
+ V; |) T  F* m9 D1 e+ F1 D//DS18B20温度传感器读一个字节子函数
8 I& `; K& e, |! v. V$ \uchar ReadOneChar()
* S/ E7 a0 }* U( q* s{
, [% T$ w% w& Q+ k1 v1 g/ p       uchar i=0;
, Q+ `* ]1 w, N5 X3 i! h0 ~, a       uchar dat=0;
3 }) N* y0 H& G; P( n4 F       for(i=8;i>0;i--)9 W+ U( s( _% T! m
      {5 R+ t, }3 _1 S5 ^1 D# [$ F
            DQ=0; // 给脉冲信号
6 S0 X4 l( }# `) W2 T3 c6 i" k- o             dat>>=1;( u% e% c2 @$ U8 |& C6 D/ r
            DQ=1; // 给脉冲信号# k. S/ C+ I/ g& N1 _
            if(DQ)
/ z9 O4 f% a9 F4 {2 }3 S2 b! r8 w+ `                      dat|=0x80;* z0 A+ V& c. |! J
            tmpDelay(4);; }. q+ D3 Z& a/ I: h
      }
; s7 b5 g! |9 |: J3 n       return(dat);
; ~4 l, u$ d0 D; Q}* U2 I9 A+ j# A0 T9 Y5 T, f3 {( `
//DS18B20温度传感器写一个字节子函数
; z2 Y1 I0 _8 uvoid WriteOneChar(uchar dat)+ g$ D, c$ T/ ~* r( \9 T
{3 e3 \- c" x6 M4 ]( k$ D% A
      uchar i=0;( h3 i, h: G+ e/ @0 ]1 l; }
      for(i=8;i>0;i--)
1 j" [0 E+ k0 M, ~       {4 X4 U2 C$ i5 \9 {5 ]
            DQ=0;. X; e/ M1 ^! g3 q' O/ u
            DQ=dat&0x01;* J  F7 J- @2 d. R# d' r3 O
            tmpDelay(5);" j' T0 g3 ?' r* |; `* |
            DQ=1;# X1 Z; m; h! m. H9 T" r- ~/ ~
            dat>>=1;) B0 h- r  L% ?' q, e
      }0 e# K5 }! F( ^
}
; D0 I7 u5 I* P: v- b% q//读取温度子函数2 q* q" T3 V' D$ N, J
uint Readtemp()/ G1 A, h) H. ~% `, _% a0 g
{
5 |% R( U! w- D1 I  z       uchar a=0;' f, X" E- D! n3 T+ n% a( W1 O
      uchar b=0;
) C3 X8 ]* L8 T6 @+ n; m  E' a       uint t=0;
) ?9 A! G  E5 a% C9 q       float tt=0;
; }5 m- ]8 K. z, S       DS18B20_init();& K0 H  T" D6 l' V+ X* y/ b0 `
      WriteOneChar(0xCC); // 跳过读序号列号的操作
. C/ Z: F, I+ p! y       WriteOneChar(0x44); // 启动温度转换& T8 d& j. }/ _- I! W
      DS18B20_init();! Y5 x8 K. {* V! x% _/ C: P
      WriteOneChar(0xCC); //跳过读序号列号的操作# l" g$ [) [; |/ @, k
      WriteOneChar(0xBE); //读取温度寄存器
; N; B$ a( x7 y0 t& E+ ?       a=ReadOneChar(); //连续读两个字节数据 //读低8位 * W0 m( V: _+ H/ L  G/ O
      b=ReadOneChar();                         //读高8位4 U6 T+ E2 }2 `5 i7 |
      t=b;
4 ?% W2 U1 p0 c; P       t<<=8;
( B+ K( T$ w+ U) w( [       t=t|a; //两字节合成一个整型变量。( P+ @- g" x0 R/ u$ k2 Z
      tt=t*0.0625;  //得到真实十进制温度值，因为DS18B20可以精确到0.0625度，所以读回数据的最低位代表的是0.0625度# `& O7 E6 S) E' M! o- B
      t=tt*10+0.5; //放大十倍，这样做的目的将小数点后第一位也转换为可显示数字，同时进行一个四舍五入操作。
+ F5 W* X1 P2 G" x       return(t);; g* _8 ?) }" }: {5 h. g6 x: Y9 C
}+ J. q/ y  h0 N7 q/ _( s8 m) x5 F
//LCD1602液晶显示子函数$ |- `) R$ D+ M+ B8 |! ^+ t
void display()$ w7 w' A3 v0 S8 d: U  u
{5 _8 q' M4 }0 W$ [# g% i9 d
         uint shi,ge,xiaoshu;          //这里的num,shi,ge,xiaoshu 必须用unsigned int无符号整数来表示，用unshigned char  字符型则显示错误7 ^4 ^) Z/ a& Q/ J( g& e* D3 ?
      shi=th/100;                //显示最高温度 Th ( Z5 ?# r, N: {" p1 C5 |6 f( G: m$ \
      ge=th/10%10;  `* d, `* N0 A5 ~$ x
      xiaoshu=th%10;! l1 n* C3 M" ]/ C
      write_com(0x80+0x40+3);
6 R% f- q1 j) C1 m: w& t: e       write_date(wendu[shi]);
. A) Z9 W. [1 t       write_com(0x80+0x40+4);) r$ ?' ~$ W5 y7 F+ G6 |2 T8 n
      write_date(wendu[ge]);                                     # U( M, S* A2 W; L9 v6 |
      write_com(0x80+0x40+6);% p: }  }/ i/ s) M
      write_date(wendu[xiaoshu]);
. f0 [' W; n! x6 D6 f/ j       shi=tl/100;       //显示最低文帝 Tl  1 P+ x( |& v) l" l/ \
      ge=tl/10%10;7 G+ p% ^5 q( N8 v- [, W
      xiaoshu=tl%10;1 M+ l$ \  `7 x6 T# V, w6 u
      write_com(0x80+0x40+11);6 K; R' Y# e& B% Z) K
      write_date(wendu[shi]);5 `1 x& y/ |( d7 ]5 G# X
      write_com(0x80+0x40+12);
7 a- W1 U" k6 j$ @- N) ]- c% g       write_date(wendu[ge]);                                              : r% V( ~2 u# Z0 [6 W
      write_com(0x80+0x40+14);
/ z, }1 X" J. [) q/ h       write_date(wendu[xiaoshu]);
& ~0 @1 q9 Q) i1 N- J. O}+ c/ j" v7 |, N' ]5 l# p
//报警子函数
9 m/ u+ N6 M/ {' D; kvoid temp_check()( x0 u$ ]) j  }  r
{
; g# Y0 @+ ]; f0 N3 m  _2 ~& l       uint shi,ge,xiaoshu;          //这里的num,shi,ge,xiaoshu 必须用unsigned int无符号整数来表示，用unshigned char  字符型则显示错误
. `( k% ]/ s! i       ta=Readtemp();9 d7 ?. O( Q/ M6 T3 G
      if(ta>th)
  Z% t6 G& l( ^. E$ D+ u       {+ X+ y7 Y4 a% j* f) q: r6 b/ n) X
            D1=0;
  y! u6 s; l% W# N) p+ Z" I             D2=1;, C0 ~* Q  I9 b7 d) W5 h( @2 e3 e
      }1 P% Q* u4 O" x) y
      else if(ta<tl)
/ G3 w. B9 l  x. S* f' l       {
8 `/ `& q, N& c% r9 c             D1=1;
0 }# d# J! u- u) I             D2=0;  t8 M( j' Y7 t; Y
      }  A" A8 ~* W3 U( L; _
      else# C* [7 N9 I# m6 m# z8 [1 J
      {
- B( W  V* f" I  h8 d/ Y             D1=1;3 `/ E" c0 y7 Q
            D2=1;
5 p  E+ {+ k7 C5 R+ a3 R       }
( O2 p* d0 a) R+ w. O5 U  d       shi=ta/100;       //显示实际温度
; y: K, ]- ^6 Z& f       ge=ta/10%10;
3 f7 V1 w+ W6 Q/ X       xiaoshu=ta%10;
2 y$ l6 H7 I, a) Y- G& U       write_com(0x80+3);
: n0 e* f8 ]# \9 a       write_date(wendu[shi]);- _1 m  t( g. T. [3 [7 |
      write_com(0x80+4);5 k: U! R/ ~% y* J5 m4 @9 A
      write_date(wendu[ge]);
$ b2 t; ~8 y& ]0 x& v       write_com(0x80+6);: {$ j) G* J1 U0 a3 x9 }
      write_date(wendu[xiaoshu]);
: w' O/ E# U2 X* ]}8 X, e9 _$ t0 x% ~. ?7 U7 g
//按键扫描子函数
5 s, D0 o* I: d1 rvoid key()
7 R6 C$ n3 V2 p: f  ^" r{       % u% e" T+ t' U7 p8 r
      if(k3==0)                //set 按键按下 : R5 s9 W7 @" s4 ?
      {
9 B- M0 E+ f% H             delay(1);# O, X6 Q# t& v7 T6 P
            if(k3==0)- Z5 J3 z  l% s: x
            {                                                       //设置位置设定
. L# C1 H/ W/ Y8 k8 z                      position++;- ?* w6 c7 i2 Q7 }- e
                     if(position>2) / Y6 E8 v0 S) r. l: g( p' X
                              position=0;/ q; q7 U% D% ]  z
                     if(position==0)                // 无设置位置
& ]6 r. M( d; \, m: p/ i                      {7 A' r/ m  l' a' k8 n7 c
                              write_com(0x80+0x40+7);
8 |# l8 z( z6 k                               write_date(' ');1 \2 \7 u. b$ l
                              write_com(0x80+0x40+15);
6 O) S; d+ ], O0 x$ W! N7 P. b                               write_date(' ');
* J3 p8 o, W! T' ]) M; o  y                      }1 Z, s: p. l4 r/ `  k2 j5 Y
                     if(position==1)             //设置TH 在th后显示< 标识当前位置. V, L$ R  y# T* }
                     {
+ }4 T9 R  u* c  J                               write_com(0x80+0x40+7);
" Y; w$ {( X$ l2 B+ X3 {                               write_date('<');
2 W' l3 N$ e  g                               write_com(0x80+0x40+15);# n8 {  A) ^+ U$ C1 Z, T% g
                              write_date(' ');
  u1 E; ?5 N4 U2 n3 X                      }/ U: [5 w7 u& \! _$ ~1 o
                     if(position==2)       //设置Tl 在tl后显示< 标识当前位置# S, \. R; j, _! p
                     {
1 G  i7 n7 ]$ R5 x. K: H4 K' o                               write_com(0x80+0x40+7);
! s+ T! A( H: X* }5 y                               write_date(' ');
- b: `" \$ d0 V1 E+ s                               write_com(0x80+0x40+15);: ^9 J2 }1 R) a; Z" V* E. c
                              write_date('<');
8 c/ m4 ?7 n1 f2 z( ~3 y                      }- c% o, H- b: \4 a1 ^( {9 @
                     while(k3==0);
9 X* I+ t( j' Q; k4 n. p2 J* Z. h             }       & k2 |2 B, i3 ]0 z
      }
+ _8 _$ A" h6 @9 m       if(k1==0)
$ a* G/ i& ^0 X& [6 `  H+ S       {
6 }) ?" U; d9 ?) Y: l9 l             delay(1);
6 H$ E, F3 [; g/ N2 c" R8 m: v7 _/ z             if(k1==0)
+ q4 p/ v4 y9 I* ]' k" s             {
$ C0 m- U, n4 Z. _) K                      if(position==1)1 |" r% a0 Y9 K3 [
                     {& B& K) p# R. T' M6 u
                              th+=5;( W! @# u2 \& f' \# V( g% e
                              if(th>1000)
9 Z  M3 X& N* ?5 }4 b) Y                                     th=990;7 @7 ~. t, `/ R+ Q1 Q
                     }6 x( W' M* C) G. y, }
                     if(position==2)
& ?9 z- Z+ ~3 C; t8 V                      {
  x; X% J8 r4 s$ `                               tl+=5;                         //tl>th时  是个错误，这里避免此情况发生
- y1 h$ Q* V) ^" M( _( |+ c0 t                               if(tl>=th)
; R( k: r, n; C0 B: M: n/ h                                     tl=th-5;
) H- @( U5 Q/ E0 {8 h                      }
, n9 T1 Q0 J5 Y. f                      display();% t8 b& i/ z4 k
            }       $ Q: t8 k/ }/ ]) w
            while(k1==0);. V# }) n( ?" f- N
      }
) Y7 B3 @5 d# _% P       if(k2==0)
! l3 X- e" ]  m5 }       {- t* f' c+ F* q- z$ X# Q" [
            delay(1);
" U# U2 Q' e4 F6 c, z             if(k2==0)
: R, i5 c. K  _/ d: C             {
; ^5 X1 z& J( s( t! Q9 ]: M$ |0 G                      if(position==1)
: I7 x$ \/ Y+ S8 e" d5 s                      {
& [* x7 G, Q6 S! \% H& o6 E5 N4 O& X3 W                               th-=5;                      //th<tl时  是个错误，这里避免此情况发生  {3 T8 m7 x0 U' G
                              if(th<=tl) " j6 X  a3 c3 U- c8 m
                                    th=tl+5;9 T8 P" D: B- m" T% Z
                     }, d0 |" ^, Z, C, b! ?$ y
                     if(position==2)  g8 j) j8 L0 e# n( |' H7 z
                     {
; o) ]2 J4 k! y                               if(tl<10) 0 }; A; y# ~" ]0 r
                                    tl=10; 9 Q! P) i( `& @- h
                              else
1 D  T% ?& K! o; ]& @9 _, e' Q                                     tl-=5;
, R1 o2 Q5 I4 E0 r) K9 Q. i                      }
* n  m0 D; v4 s6 D9 x                      display();
; h9 M$ S% |6 ?3 O- {             }       / [3 f& W. E1 [! m6 L6 {; k
            while(k2==0);" k2 P5 N, d) {0 u* ^
      }
0 l* ?* {, Q* }}
, T; ]/ J+ j$ ^/ K" v$ g//主函数
# C- [3 s0 g6 |, g* S$ bvoid main()
( k7 |' E7 ~* i. O% b{       . H/ S; E  Z) O9 O+ D" J
      uint i;
. Z7 F$ X; {2 i+ r! [' z       LCD1602_init();
( |8 J: E) \. E       display();
$ J; p" C, v* P/ K, v       while(1)
7 i: b) q8 T  f       {       % ~, K% y+ {: ^2 e* ?" ?8 N6 o1 N
            delay(1);0 b: P& }+ r& O' Y- k8 S9 N
            if((++i)>500) //500ms 检测一次温度" c% m9 D' {; y
            {
  w0 a, n$ E5 g9 \6 T  D                      temp_check();
) `$ |  g0 r0 ?0 F$ s. G% j                      i=0;! G5 y# J0 r5 n0 I8 k
            }             ( B/ x; g" _2 ~3 T0 |. l* u
            key();
  w/ t8 ^% U- E* G       }1 M$ G+ X  U' b! c0 @; e5 k  }
}
( a8 i# t( W: K4 \2 c8 W

下载：
游客，如果您要查看本帖隐藏内容请回复

sunygd · 发表于 2019-1-17 18:17

看看楼主的代码

帐号		自动登录	找回密码
密码			注册

基于51单片机的数字温度报警器源程序

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1