标题: 51单片机温度控制高温低温报警 带proteus仿真和汇编源码 [打印本页]
作者: 落眼清风1    时间: 2017-2-11 15:51
标题: 51单片机温度控制高温低温报警 带proteus仿真和汇编源码
proteus仿真图


51单片机温度控制高温低温报警汇编语言源程序：
  1. LED_0        EQU         30H
  2. LED_1         EQU         31H
  3. LED_2         EQU         32H
  4. ADC                EQU                35H
  5. TCNTA        EQU                36H
  6. TCNTB        EQU                37H
  7. H_TEMP        EQU                38H                                ;温度上限
  8. L_TEMP        EQU                39H                                ;温度下限
  9. FLAG        BIT                00H
  10. H_ALM        BIT                P3.0
  11. L_ALM        BIT                P3.1
  12. SOUND        BIT                P3.7
  13. CLOCK        BIT                P2.4
  14. ST                 BIT         P2.5
  15. EOC         BIT         P2.6
  16. OE                 BIT         P2.7

  18.                 ORG         00H
  19.                 SJMP        START
  20.                 ORG                0BH
  21.                 LJMP        INT_T0
  22.                 ORG                1BH
  23.                 LJMP        INT_T1
  24.                
  25. START:        MOV                LED_0,#00H
  26.                 MOV                LED_1,#00H
  27.                 MOV                LED_2,#00H
  28.                 MOV                DPTR,#TABLE
  29.                 MOV                H_TEMP,#153
  30.                 MOV                L_TEMP,#77
  31.                 MOV                TMOD,#12H
  32.                 MOV                TH0,#245
  33.                 MOV                TL0,#0
  34.                 MOV                TH1,#(65536-1000)/256
  35.                 MOV                TL1,#(65536-1000)MOD 256
  36.                 MOV                IE,#8aH
  37.                 CLR                C
  38.                 SETB        TR0                                ;为ADC0808提供时钟

  40. WAIT:        SETB        H_ALM
  41.                 SETB        L_ALM
  42.                 CLR         ST
  43.                 SETB         ST
  44.                 CLR         ST                                ;启动转换
  45.                 JNB         EOC,$
  46.                 SETB         OE
  47.                 MOV         ADC,P1                        ;读取AD转换结果
  48.                 CLR         OE
  49.                 MOV                A,ADC

  51.                 SUBB        A,#77                           ;判断是否低于下限
  52.                 JC                LALM
  53.                 MOV                A,H_TEMP
  54.                 MOV                R0,ADC
  55.                 SUBB        A,R0                        ;判断是否高于上限
  56.                 JC                HALM
  57.                 CLR                TR1
  58.                 LJMP        PROC

  60. LALM:                                                        ;低温报警
  61.                 CLR                L_ALM
  62.                 SETB        TR1
  63.                 CLR                FLAG
  64.                 LJMP        PROC

  66. HALM:                                                           ;高温报警
  67.                 CLR                H_ALM
  68.                 SETB        TR1
  69.                 SETB        FLAG
  70.                 LJMP        PROC

  72. PROC:        MOV         A,ADC                         ;数值转换
  73.                 MOV         B,#100
  74.                 DIV         AB
  75.                 MOV         LED_2,A
  76.                 MOV         A,B
  77.                 MOV         B,#10
  78.                 DIV         AB
  79.                 MOV         LED_1,A
  80.                 MOV         LED_0,B
  81.                 LCALL        DISP
  82.                 SJMP         WAIT

  84. INT_T0:        CPL                CLOCK                           ;提供ADC0808时钟
  85.                 RETI

  87. INT_T1:        MOV                TH1,#(65536-1000)/256
  88.                 MOV                TL1,#(65536-1000)MOD 256
  89.                 CPL                SOUND
  90.                 INC                TCNTA
  91.                 MOV                A,TCNTA
  92.                 JB                FLAG,I1                           ;判断是高温警报还是低温警报
  93.                 CJNE        A,#30,RETUNE        ;低温警报声
  94.                 SJMP        I2
  95.         I1:        CJNE        A,#20,RETUNE        ;高温警报声
  96.         I2:        MOV                TCNTA,#0
  97.                 INC                TCNTB
  98.                 MOV                A,TCNTB
  99.                 CJNE        A,#25,RETUNE
  100.                 MOV                TCNTA,#0
  101.                 MOV                TCNTB,#0
  102.                 LCALL        DELAY2
  103. RETUNE:        RETI
  104.                
  105. DISP:        MOV                A,LED_0                        ;数码显示子程序
  106.                 MOVC        A,@A+DPTR
  107.                 CLR                P2.3
  108.                 MOV                P0,A
  109.                 LCALL        DELAY
  110.                 SETB        P2.3

  112.                 MOV                A,LED_1
  113.                 MOVC        A,@A+DPTR
  114.                 CLR                P2.2
  115.                 MOV                P0,A
  116.                 LCALL        DELAY
  117.                 SETB        P2.2

  119.                 MOV                A,LED_2
  120.                 MOVC        A,@A+DPTR
  121.                 CLR                P2.1
  122.                 MOV                P0,A
  123.                 LCALL        DELAY
  124.                 SETB        P2.1
  125.                 RET

  127. DELAY:        MOV                R6,#10
  128. D1:                MOV                R7,#250
  129.                 DJNZ        R7,$
  130.                 DJNZ        R6,D1
  131.                 RET
  132. DELAY2:        MOV                R5,#20
  133. D2:                MOV                R6,#20
  134. D3:                MOV                R7,#250
  135.                 DJNZ        R7,$
  136.                 DJNZ        R6,D3
  137.                 DJNZ        R5,D2
  138.                 RET
  139. TABLE:         DB                 3FH,06H,5BH,4FH,66H
  140.                 DB                 6DH,7DH,07H,7FH,6FH
  141.                 END
复制代码


51单片机温度控制高温低温报警仿真工程文件和汇编源码下载：
55 Temperatuer Monitor.zip (55.01 KB, 下载次数: 41)

作者: 风散炊烟    时间: 2017-3-15 16:35
先下载看看。
作者: smileml115    时间: 2017-6-4 14:14
老哥，你这个不能用按键设置温度么



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1