標(biāo)題: 單片機+DS18B20倉庫溫濕度控制器匯編語言源程序 [打印本頁]
作者: xacv    時間: 2020-6-20 11:26
標(biāo)題: 單片機+DS18B20倉庫溫濕度控制器匯編語言源程序
設(shè)計基本要求
(1) 設(shè)計倉庫溫度檢測控制器的硬件電路和控制程序，實現(xiàn)如下功能。
(2) 該倉庫溫度檢測控制器可以檢測倉庫內(nèi)的溫度，并對其進(jìn)行控制。
(3) 能實現(xiàn)通過鍵盤對倉庫溫度上下限的設(shè)定。
(4) 在倉庫溫度低于溫度下限時，啟動加熱器加熱，同時報警。
(5) 在倉庫溫度高于溫度上下時，啟動風(fēng)機降溫，同時報警。
(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是否存在標(biāo)記
  25.           KEY_UD    EQU  20H.1    ;設(shè)定 KEY 的UP與DOWN 標(biāo)記
  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復(fù)位子程序
  43.           JNB   FLAG1,START1   ;DS1820不存在
  44.           CALL  MENU_OK
  45.           CALL  READ_E2
  46.           CALL  TEMP_BJ        ;顯示溫度標(biāo)記
  47.           JMP   START2
  48. START1:   CALL  MENU_ERROR
  49.           CALL  TEMP_BJ        ;顯示溫度標(biāo)記
  50.           JMP  $

  52. START2:
  53.           CALL  RESET
  54.           JNB  FLAG1,START1    ;DS1820不存在
  55.           MOV   A,#0CCH        ; 跳過ROM匹配
  56.           CALL  WRITE
  57.           MOV   A,#44H         ; 發(fā)出溫度轉(zhuǎn)換命令
  58.           CALL  WRITE
  59.           CALL  RESET
  60.           MOV   A,#0CCH        ; 跳過ROM匹配
  61.           CALL  WRITE
  62.           MOV   A,#0BEH        ; 發(fā)出讀溫度命令
  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           ;將設(shè)定的TH,TL值寫入DS18B20內(nèi)
  93.          CALL  WRITE_E2
  94. PROC_K2:
  95.          CALL  MENU_OK
  96.          CALL  TEMP_BJ
  97. PROC_END:
  98.          RET
  99. ;============================================
  100. ;設(shè)定報警值 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 標(biāo)記
  110. AS00:    JB  20H.1,ASZ01       ;20H.1=1，UP
  111.          JMP  ASJ01            ;20H.1=0，DOWN

  113. ASZ01:   JB  K2,ASZ02          ;TH值調(diào)整（增加）
  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值調(diào)整（增加）
  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          ;確定調(diào)整 OK
  135.          CALL  BEEP_BL
  136.          JNB  K4,$
  137.          RET

  139. ASJ01:
  140.          JB  K2,ASJ02          ;TH值調(diào)整 （減少）
  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值調(diào)整（減少）
  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  ;指針指到顯示信息區(qū)
  169.           MOV  A,#1            ;顯示在第一行
  170.           CALL  LCD_PRINT
  171.           RET
  172. RESET_A1:
  173.      DB  "RESET ALERT CODE"
  174. ;====================================================
  175. ;實際溫度值與標(biāo)記溫度值比較子程序
  176. ;====================================================
  177. TEMP_COMP:
  178.           MOV  A,TEMP_TH      
  179.           SUBB  A,TEMP_ZH       ;減數(shù)>被減數(shù)，則
  180.           JC  CHULI1            ;借位標(biāo)志位C=1，轉(zhuǎn)
  181.           MOV  A,TEMP_ZH
  182.           SUBB  A,TEMP_TL       ;減數(shù)>被減數(shù)，則
  183.           JC  CHULI2            ;借位標(biāo)志位C=1，轉(zhuǎn)
  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           ;繼電器關(guān)閉
  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. ;顯示溫度標(biāo)記子程序
  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         ;主機發(fā)出延時復(fù)位低脈沖
  269.         mov r1,#04h
  270. tsr1:   djnz r0,$
  271.         mov r0,#6bh
  272.         djnz r1,tsr1
  273.         setb date_line        ;然后拉高數(shù)據(jù)線
  274.         nop
  275.         nop
  276.         nop
  277.         mov r0,#32h
  278. tsr2:   jnb date_line,tsr3   ;等待DS18B20回應(yīng)
  279.         djnz r0,tsr2
  280.         jmp tsr4             ; 延時
  281. tsr3:   setb flag1           ; 置標(biāo)志位,表示DS1820存在
  282.         jmp tsr5
  283. tsr4:   clr flag1            ; 清標(biāo)志位,表示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      ;寫入數(shù)據(jù)
  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位數(shù)據(jù)
  343.         CLR  C
  344. wr1:
  345.         clr date_line        ;開始寫入DS18B20總線要處于復(fù)位（低）狀態(tài)
  346.         mov r3,#07
  347.         djnz r3,$            ;總線復(fù)位保持16微妙以上
  348.         rrc a                ;把一個字節(jié)DATA 分成8個BIT環(huán)移給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黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
源程序.zip (145.36 KB, 下載次數(shù): 63)








歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1