设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机仿真论坛 › 单片机+DS18B20仓库温湿度控制器汇编语言源程序
返回列表 发新帖
查看: 2369|回复: 0
打印 上一主题 下一主题
收起左侧

单片机+DS18B20仓库温湿度控制器汇编语言源程序

[复制链接]
跳转到指定楼层
楼主
ID:777584 发表于 2020-6-20 11:26 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
设计基本要求
(1) 设计仓库温度检测控制器的硬件电路和控制程序，实现如下功能。
(2) 该仓库温度检测控制器可以检测仓库内的温度，并对其进行控制。
(3) 能实现通过键盘对仓库温度上下限的设定。
(4) 在仓库温度低于温度下限时，启动加热器加热，同时报警。
(5) 在仓库温度高于温度上下时，启动风机降温，同时报警。
(6) 能显示各个测温点的温度和仓库的平均温度。
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1. ;



  5.           TEMP_ZH   DATA  24H     ;实时温度值存放单元
  6.           TEMPL     DATA  25H     ;
  7.           TEMPH     DATA  26H     ;
  8.           TEMP_TH   DATA  27H     ;高温报警值存放单元
  9.           TEMP_TL   DATA  28H     ;低温报警值存放单元
  10.           TEMPHC    DATA  29H     ;
  11.           TEMPLC    DATA  2AH

  13.           K1     EQU  P3.4
  14.           K2     EQU  P3.5
  15.           K3     EQU  P3.6
  16.           K4     EQU  P3.7

  18.           BEEP   EQU  P1.0
  19.           RELAY  EQU  P1.3
  20.           LCD_X     EQU  2FH      ;LCD 地址变量
  21.           LCD_RS    EQU  P2.5
  22.           LCD_RW    EQU  P2.6
  23.           LCD_EN    EQU  P2.7
  24.           flag1     equ  20H.0    ;DS18B20是否存在标记
  25.           KEY_UD    EQU  20H.1    ;设定 KEY 的UP与DOWN 标记
  26.           date_line equ p2.0
  27. ;=====================================================
  28.            ORG  0000H
  29.            JMP  MAIN

  31. MAIN:     MOV  SP,#60H
  32.           MOV  A,#00H
  33.           MOV  R0,#20H       ;将 20H-2FH 单元清零
  34.           MOV  R1,#10H
  35. CLEAR:    MOV  @R0,A
  36.           INC  R0
  37.           DJNZ  R1,CLEAR

  39.           CALL  SET_LCD
  40.           CALL  RE_18B20

  42. start:    CALL  RESET          ;18B20复位子程序
  43.           JNB   FLAG1,START1   ;DS1820不存在
  44.           CALL  MENU_OK
  45.           CALL  READ_E2
  46.           CALL  TEMP_BJ        ;显示温度标记
  47.           JMP   START2
  48. START1:   CALL  MENU_ERROR
  49.           CALL  TEMP_BJ        ;显示温度标记
  50.           JMP  $

  52. START2:
  53.           CALL  RESET
  54.           JNB  FLAG1,START1    ;DS1820不存在
  55.           MOV   A,#0CCH        ; 跳过ROM匹配
  56.           CALL  WRITE
  57.           MOV   A,#44H         ; 发出温度转换命令
  58.           CALL  WRITE
  59.           CALL  RESET
  60.           MOV   A,#0CCH        ; 跳过ROM匹配
  61.           CALL  WRITE
  62.           MOV   A,#0BEH        ; 发出读温度命令
  63.           CALL  WRITE
  64.           CALL  READ
  65.           call CONVTEMP
  66.           Call DISPBCD
  67.           CALL CONV
  68.           CALL TEMP_COMP
  69.           CALL  PROC_KEY       ; 键扫描

  71.           SJMP        START2
  72. ;-----------------------------------------------------
  73. PROC_KEY:
  74.          JB  K1,PROC_K1                  ; 按键K1处理
  75.          CALL  BEEP_BL
  76.          JNB  K1,$
  77.          MOV  DPTR,#M_ALAX1
  78.          MOV  A,#1
  79.          CALL  LCD_PRINT
  80.          CALL  LOOK_ALARM
  81.          JB  K3,$
  82.          CALL  BEEP_BL
  83.          JMP  PROC_K2
  84. PROC_K1:                          ; 按键K2处理
  85.          JB  K2,PROC_END
  86.          CALL  BEEP_BL
  87.          JNB  K2,$
  88.          MOV   DPTR,#RESET_A1
  89.          MOV   A,#1
  90.          CALL  LCD_PRINT
  91.          CALL  SET_ALARM
  92.          CALL  RE_18B20           ;将设定的TH,TL值写入DS18B20内
  93.          CALL  WRITE_E2
  94. PROC_K2:
  95.          CALL  MENU_OK
  96.          CALL  TEMP_BJ
  97. PROC_END:
  98.          RET
  99. ;============================================
  100. ;设定报警值 TH、TL
  101. ;============================================
  102. SET_ALARM:
  103.          ;CALL  RESET_ALARM
  104.          CALL  LOOK_ALARM
  105. AS0:
  106.          JB   K1,AS00
  107.          CALL  BEEP_BL
  108.          JNB  K1,$
  109.          CPL  20H.1            ;UP/DOWN 标记
  110. AS00:    JB  20H.1,ASZ01       ;20H.1=1，UP
  111.          JMP  ASJ01            ;20H.1=0，DOWN

  113. ASZ01:   JB  K2,ASZ02          ;TH值调整（增加）
  114.          CALL  BEEP_BL
  115.          INC  TEMP_TH
  116.          MOV  A,TEMP_TH
  117.          CJNE  A,#120,ASZ011
  118.          MOV  TEMP_TH,#0
  119. ASZ011:  CALL  LOOK_ALARM
  120.          MOV  R5,#10
  121.          CALL  DELAY
  122.          JMP  ASZ01

  124. ASZ02:   JB  K3,ASZ03          ;TL值调整（增加）
  125.          CALL  BEEP_BL
  126.          INC  TEMP_TL
  127.          MOV  A,TEMP_TL
  128.          CJNE  A,#99,ASZ021
  129.          MOV  TEMP_TL,#00H
  130. ASZ021:  CALL  LOOK_ALARM    ;
  131.          MOV  R5,#10
  132.          CALL  DELAY
  133.          JMP  ASZ02
  134. ASZ03:   JB  K4,AS0          ;确定调整 OK
  135.          CALL  BEEP_BL
  136.          JNB  K4,$
  137.          RET

  139. ASJ01:
  140.          JB  K2,ASJ02          ;TH值调整 （减少）
  141.          CALL  BEEP_BL
  142.          DEC   TEMP_TH
  143.          MOV  A,TEMP_TH
  144.          CJNE  A,#0FFH,ASJ011
  145.          JMP  ASJ022
  146. ASJ011:  CALL  LOOK_ALARM
  147.          MOV  R5,#10
  148.          CALL  DELAY
  149.          JMP  AS0

  151. ASJ02:   JB  K3,ASJ03         ;TL值调整（减少）
  152.          CALL  BEEP_BL
  153.          DEC  TEMP_TL
  154.          MOV  A,TEMP_TL
  155.          CJNE  A,#0FFH,ASJ021
  156.          JMP  ASJ022
  157. ASJ021:  CALL  LOOK_ALARM    ;
  158.          MOV  R5,#10
  159.          CALL  DELAY
  160.          JMP  AS0
  161. ASJ022:  CPL  20H.1
  162.          JMP  ASZ01
  163. ASJ03:   JMP  ASZ03
  164.          RET


  167. RESET_ALARM:
  168.           MOV  DPTR,#RESET_A1  ;指针指到显示信息区
  169.           MOV  A,#1            ;显示在第一行
  170.           CALL  LCD_PRINT
  171.           RET
  172. RESET_A1:
  173.      DB  "RESET ALERT CODE"
  174. ;====================================================
  175. ;实际温度值与标记温度值比较子程序
  176. ;====================================================
  177. TEMP_COMP:
  178.           MOV  A,TEMP_TH      
  179.           SUBB  A,TEMP_ZH       ;减数>被减数，则
  180.           JC  CHULI1            ;借位标志位C=1，转
  181.           MOV  A,TEMP_ZH
  182.           SUBB  A,TEMP_TL       ;减数>被减数，则
  183.           JC  CHULI2            ;借位标志位C=1，转
  184.           MOV  DPTR,#BJ5
  185.           CALL  TEMP_BJ3
  186.           CLR   RELAY           ;继电器吸合
  187.           RET
  188. CHULI1:
  189.           MOV  DPTR,#BJ3
  190.           CALL  TEMP_BJ3
  191.           SETB  RELAY           ;继电器关闭
  192.           CALL  BEEP_BL
  193.           RET
  194. CHULI2:
  195.           MOV  DPTR,#BJ4
  196.           CALL  TEMP_BJ3
  197.           CALL  BEEP_BL
  198.           RET
  199. ;-----------------------------------------
  200. TEMP_BJ3:
  201.           MOV  A,#0CEH
  202.           CALL WCOM
  203.           MOV  R1,#0
  204.           MOV  R0,#2

  206. BBJJ3:    MOV  A,R1
  207.           MOVC A,@A+DPTR
  208.           CALL  WDATA
  209.           INC R1
  210.           DJNZ  R0,BBJJ3
  211.           RET
  212. BJ3:
  213.       DB  ">H"
  214. BJ4:
  215.       DB  "<L"
  216. BJ5:
  217.       DB  " R"
  218. ;==================================================
  219. ;显示温度标记子程序
  220. ;==================================================
  221. TEMP_BJ:
  222.           MOV  A,#0CBH
  223.           CALL WCOM
  224.           MOV  DPTR,#BJ1  ;指针指到显示消息
  225.           MOV  R1,#0
  226.           MOV  R0,#2

  228. BBJJ1:    MOV  A,R1
  229.           MOVC A,@A+DPTR
  230.           CALL  WDATA
  231.           INC R1
  232.           DJNZ  R0,BBJJ1
  233.           RET
  234. BJ1:
  235.       DB  00H,"C"
  236. ;=================================================
  237. MENU_OK:

  239.           MOV  DPTR,#M_OK1  ;指针指到显示消息
  240.           MOV  A,#1          ;显示在第一行
  241.           CALL  LCD_PRINT
  242.           MOV  DPTR,#M_OK2  ;指针指到显示消息
  243.           MOV  A,#2          ;显示在第一行
  244.           CALL  LCD_PRINT

  246.           RET
  247. M_OK1:
  248.     DB   "   DS18B20 OK   ",0
  249. M_OK2:
  250.     DB   " TEMP:          ",0
  251. ;-----------------------------------------------
  252. MENU_ERROR:
  253.           MOV  DPTR,#M_ERROR1  ;指针指到显示消息1
  254.           MOV  A,#1          ;显示在第一行
  255.           CALL  LCD_PRINT
  256.           MOV  DPTR,#M_ERROR2  ;指针指到显示消息1
  257.           MOV  A,#2          ;显示在第一行
  258.           CALL  LCD_PRINT
  259.           RET
  260. M_ERROR1:
  261.     DB   " DS18B20 ERROR  ",0
  262. M_ERROR2:
  263.     DB   " TEMP: ----     ",0
  264. ;====================================================
  265. reset:  setb date_line
  266.         nop
  267.         clr date_line
  268.         mov r0,#6bh         ;主机发出延时复位低脉冲
  269.         mov r1,#04h
  270. tsr1:   djnz r0,$
  271.         mov r0,#6bh
  272.         djnz r1,tsr1
  273.         setb date_line        ;然后拉高数据线
  274.         nop
  275.         nop
  276.         nop
  277.         mov r0,#32h
  278. tsr2:   jnb date_line,tsr3   ;等待DS18B20回应
  279.         djnz r0,tsr2
  280.         jmp tsr4             ; 延时
  281. tsr3:   setb flag1           ; 置标志位,表示DS1820存在
  282.         jmp tsr5
  283. tsr4:   clr flag1            ; 清标志位,表示DS1820不存在
  284.         jmp tsr7
  285. tsr5:   mov r0,#06bh
  286. tsr6:   djnz r0,$            ; 时序要求延时一段时间
  287. tsr7:   setb date_line
  288.         ret
  289. ;=======================================================
  290. RE_18B20:
  291.         JB  FLAG1,RE_18B20A
  292.         RET
  293. RE_18B20A:
  294.         CALL  RESET
  295.         MOV  A,#0CCH       ;跳过ROM匹配
  296.         LCALL  WRITE
  297.         MOV  A,#4EH        ;写暂存寄存器
  298.         LCALL  WRITE
  299.         MOV  A,TEMP_TH     ;TH(报警上限）
  300.         LCALL  WRITE
  301.         MOV  A,TEMP_TL     ;TL(报警下限）
  302.         LCALL  WRITE
  303.         MOV  A,#7FH        ;12位精确度
  304.         LCALL  WRITE
  305.         RET
  306. ;------------------------------------------------------------
  307. WRITE_E2:
  308.         CALL  RESET
  309.         MOV  A,#0CCH        ;跳过ROM匹配
  310.         LCALL  WRITE
  311.         MOV  A,#48H         ;把暂存器里的温度报警值拷贝到EEROM
  312.         LCALL  WRITE
  313.         RET
  314. ;--------------------------------------------------------------
  315. READ_E2:
  316.         CALL  RESET
  317.         MOV  A,#0CCH        ;跳过ROM匹配
  318.         LCALL  WRITE
  319.         MOV  A,#0B8H        ;把EEROM里的温度报警值拷贝回暂存器
  320.         CALL  WRITE
  321.         RET
  322. ;--------------------------------------------------------------
  323. ;将自定义字符写入LCD1602的CGRAM中
  324. ;--------------------------------------------------------------
  325. STORE_DATA:
  326.         MOV  A,#40H
  327.         CALL  WCOM
  328.         MOV  R2,#08H
  329.         MOV  DPTR,#D_DATA
  330.         MOV  R3,#00H
  331. S_DATA:
  332.         MOV  A,R3
  333.         MOVC  A,@A+DPTR
  334.         CALL  WDATA      ;写入数据
  335.         INC  R3
  336.         DJNZ  R2,S_DATA
  337.         RET

  339. D_DATA:
  340.     DB  0CH,12H,12H,0CH,00H,00H,00H,00H
  341. ;==============================================================
  342. write:  mov r2,#8            ;一共8位数据
  343.         CLR  C
  344. wr1:
  345.         clr date_line        ;开始写入DS18B20总线要处于复位（低）状态
  346.         mov r3,#07
  347.         djnz r3,$            ;总线复位保持16微妙以上
  348.         rrc a                ;把一个字节DATA 分成8个BIT环移给C
  349.         mov date_line,c      ;写入一个BIT
  350.         mov r3,#3CH
  351.         djnz r3,$            ;等待100微妙
  352.         setb date_line       ;重新释放总线
  353.         nop
  354.         djnz r2,wr1          ;写入下一个BIT
  355.         setb date_line
  356.         ret
  357. ;--------------------------------------------------------------------
  358. read:    mov r4,#4          ; 将温度低位、高位、TH、TL从DS18B20中读出
  359.          mov r1,#TEMPL        ; 存入25H、26H、27H、28H
  360. re00:    mov r2,#8
  361. re01:    clr cy
  362.          setb date_line
  363.          nop
  364.          nop
  365.          clr date_line        ;读前总线保持为低
  366.          nop
  367.          nop
  368.          
  369. ……………………

  371. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
源程序.zip (145.36 KB, 下载次数: 62)




51单片机
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 顶顶 踩踩

相关帖子
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表