51单片机温度控制高温低温报警 带proteus仿真和汇编源码

kinidrily

3 i- ?  }) f% S* S51单片机温度控制高温低温报警 带proteus仿真和汇编源码
! |7 l: q7 w! W

proteus仿真图


51单片机温度控制高温低温报警汇编语言源程序：
LED_0        EQU         30H
LED_1         EQU         31H
4 u/ W5 i! v, @LED_2         EQU         32H
7 L- U7 |4 c$ G- f2 ?" d9 ^! QADC                EQU                35H
TCNTA        EQU                36H
$ |# v* |* [% }) _- XTCNTB        EQU                37H
9 o  x6 P6 Z# Y; O# {, ]: M; z+ FH_TEMP        EQU                38H                                ;温度上限
L_TEMP        EQU                39H                                ;温度下限
0 {- a% `* s! \/ k# m8 pFLAG        BIT                00H
H_ALM        BIT                P3.0
L_ALM        BIT                P3.1
SOUND        BIT                P3.7
0 `  W7 }3 E1 t; z9 FCLOCK        BIT                P2.4
ST                 BIT         P2.5
EOC         BIT         P2.6
OE                 BIT         P2.7
; c" C5 q/ V/ w6 i  }                ORG         00H
  u7 f# o( w7 g                SJMP        START
                ORG                0BH
8 _/ f( E+ q+ U: {                LJMP        INT_T0
3 @* A& |0 {, I. Z                ORG                1BH
                LJMP        INT_T1
               
START:        MOV                LED_0,#00H
                MOV                LED_1,#00H
                MOV                LED_2,#00H
                MOV                DPTR,#TABLE
                MOV                H_TEMP,#153
                MOV                L_TEMP,#77
                MOV                TMOD,#12H
2 K% |% H, g: I  o1 E                MOV                TH0,#245
5 f  {: u6 E) x0 x1 h$ g0 i1 K                MOV                TL0,#0
                MOV                TH1,#(65536-1000)/256
                MOV                TL1,#(65536-1000)MOD 256
                MOV                IE,#8aH
                CLR                C
* h" D: H2 M& }( y% W! ~( D                SETB        TR0                                ;为ADC0808提供时钟
3 W8 Q, m8 T) R  A; X5 r2 h& BWAIT:        SETB        H_ALM
! a: C, o) ~( R3 d                SETB        L_ALM
! N2 h4 _  I" [& m8 p: W7 _                CLR         ST
+ w, h) r, K% ?9 Z: Z$ R2 L! q: M                SETB         ST
                CLR         ST                                ;启动转换
: T* S9 P& ]7 V# ^9 x3 A9 |9 x1 h                 JNB         EOC,$
                SETB         OE
2 P& k  {% z$ a0 g. a7 \7 b                MOV         ADC,P1                        ;读取AD转换结果
) a; ~; ~# j; m: ?# t" _                CLR         OE
/ H* S% A& @" K                MOV                A,ADC
( W2 X. A+ S: I. \$ ]2 H# O5 B                SUBB        A,#77                           ;判断是否低于下限
                JC                LALM
; `  w9 ~4 Z* d: ?% ~                MOV                A,H_TEMP
7 i! m4 i. R; L7 a1 ?                MOV                R0,ADC
1 L! m" V0 M  C" e7 a- \$ E                SUBB        A,R0                        ;判断是否高于上限
4 C0 B. u5 P( r" x2 h. ]                JC                HALM
# k1 ?6 ~6 v- V7 A/ A4 o# _! J                CLR                TR1
. g# U* A9 l8 [                LJMP        PROC
LALM:                                                        ;低温报警
- n/ f+ r4 i3 u. j2 B  H                CLR                L_ALM
" s8 D! ]2 x0 |( h                SETB        TR1
                CLR                FLAG
                LJMP        PROC
HALM:                                                           ;高温报警
4 B$ i+ K# O; ]. L2 g5 F                CLR                H_ALM
' S$ v5 [0 U* B& @, d4 l3 h                SETB        TR1
9 ?6 O7 e; {3 y8 b9 q                SETB        FLAG
  ^0 d4 x" `6 O$ i. z8 ?                LJMP        PROC
PROC:        MOV         A,ADC                         ;数值转换
                MOV         B,#100
                DIV         AB
6 K! ^% ]5 t; r' c; V6 b2 ?9 u                MOV         LED_2,A
# O  b" \1 H0 w( _+ w. g                MOV         A,B
                MOV         B,#10
                DIV         AB
                MOV         LED_1,A
                MOV         LED_0,B
" ^: G8 c3 c6 b# d. n* M6 U" @                LCALL        DISP
( K2 y5 k( v6 J) S3 b# `; I                SJMP         WAIT
INT_T0:        CPL                CLOCK                           ;提供ADC0808时钟
# o, u3 `8 C# P# W( Y" C# b  H' i                RETI
( _# n" y2 A* l% \5 {) xINT_T1:        MOV                TH1,#(65536-1000)/256
/ f5 W7 N! J6 F9 I                MOV                TL1,#(65536-1000)MOD 256
" O  E1 _( s  I) s6 @' d                CPL                SOUND
                INC                TCNTA
                MOV                A,TCNTA
' k/ e5 V# A2 Y  j                JB                FLAG,I1                           ;判断是高温警报还是低温警报
3 g& C! I3 j' U; V& X+ m, \                CJNE        A,#30,RETUNE        ;低温警报声
/ p  M# @4 ^5 h0 x; x                SJMP        I2
        I1:        CJNE        A,#20,RETUNE        ;高温警报声
        I2:        MOV                TCNTA,#0
$ Q$ ~: i8 p9 S3 X6 T                INC                TCNTB
                MOV                A,TCNTB
                CJNE        A,#25,RETUNE
                MOV                TCNTA,#0
: L  c; E- Q0 V: J# ~" y% l                MOV                TCNTB,#0
6 ]/ z8 d0 e' ~                LCALL        DELAY2
# A: d9 S: }* _RETUNE:        RETI
- {9 x7 N5 P8 S4 z               
DISP:        MOV                A,LED_0                        ;数码显示子程序
- w4 Y0 y* ?# r  p# v; w0 t. S. q                MOVC        A,@A+DPTR
                CLR                P2.3
! ?8 z  ^6 O- Q" J6 i                MOV                P0,A
4 w; y$ v$ Q' I$ `& @; B+ J/ j8 I                LCALL        DELAY
3 Q+ h$ s/ Q: q* K4 Y) o                SETB        P2.3
                MOV                A,LED_1
                MOVC        A,@A+DPTR
                CLR                P2.2
8 R; j1 y1 D$ L8 ^+ A5 w                MOV                P0,A
; `4 U  K5 `0 o" z1 M2 N                LCALL        DELAY
7 |' H7 z) `; w8 I3 B- V7 u                SETB        P2.2
( _6 `. D3 }# x9 j# J                MOV                A,LED_2
                MOVC        A,@A+DPTR
                CLR                P2.1
5 G# j' k, r( t" K. O                MOV                P0,A
                LCALL        DELAY
, _) z& r% Y, m                SETB        P2.1
6 G  \9 @6 n* c! e' s                RET
DELAY:        MOV                R6,#10
D1:                MOV                R7,#250
                DJNZ        R7,$
4 X# g* C# @: L' y' j& D                DJNZ        R6,D1
  F( c: r; x' O5 X                RET
DELAY2:        MOV                R5,#20
D2:                MOV                R6,#20
5 V7 K6 q" Y+ ND3:                MOV                R7,#250
                DJNZ        R7,$
                DJNZ        R6,D3
                DJNZ        R5,D2
                RET
TABLE:         DB                 3FH,06H,5BH,4FH,66H
                DB                 6DH,7DH,07H,7FH,6FH
                END
+ u+ D$ J- j/ S9 r
  F7 E" N8 s6 R* \9 a
- }2 G, k' W" y) ~
51单片机温度控制高温低温报警仿真工程文件和汇编源码下载：
9 E, t: r- l7 v0 I0 }

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

- y, e1 |6 R; d3 i, r/ E4 x! U

abcde1234

谢谢分享

Vault

666666666666666666666666666666666
* K( R  N, g7 t# t, P7 z

frankjake

康康

yujie

康康