欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 基于DS18B20的數字溫度計 [打印本頁]
作者: NUIO    時間: 2020-9-24 05:24
標題: 基于DS18B20的數字溫度計
DS18B2數字溫度傳感器具有測溫精度高，外圍元件少的特點，因此本人設計的此款溫度計采用它來采集溫度數據
  1. DQ       BIT P3.7 ;
  2.    swpH     equ  0d2H
  3.    swpL     equ  0ffH
  4.    WDLSB    DATA 30H ;
  5.    WDMSB    DATA 31H ;
  6. ;***************************************************************
  7.    ORG 0000H
  8.    LJMP MAIN
  9.    ORG 000BH
  10.    LJMP TMR0   ; Timer0 isr

  12. ;********************************************************

  14. TMR0:    MOV   TH0,#swpH
  15.          MOV   TL0,#swpL
  16.          JB    21H,DSL
  17.          MOV   P0,42H
  18.          ORL   P0,#00100000B
  19.          SJMP  EXIT
  20. DSL:  
  21.          MOV   P0,43H
  22.          ORL   P0,#00010000B
  23. EXIT:
  24.          CPL   21H
  25.          RETI

  27. ; 主程序
  28. MAIN:   
  29. TOINIT:
  30.          CLR   EA
  31.          MOV   TMOD,#01H
  32.          MOV   TH0,#swpH
  33.          MOV   TL0,#swpL
  34.          SETB  EA
  35.          SETB  ET0
  36.          SETB  TR0

  38. ;***********************************************************      
  39. ;
  40.          MOV   R2,#2
  41.          MOV   R0,#42H ;
  42. OVER:
  43.          MOV   @R0,#00H;
  44.          INC   R0
  45.          DJNZ  R2,OVER
  46.    
  47. LOOP:
  48.          LCALL DSWD ;      
  49.          SJMP  LOOP

  51. ;**********************************************************
  52. ; 從 DS18B20讀取溫度
  53. DSWD:
  54.          LCALL RSTSNR     
  55.          JNB   F0,KEND     
  56.          MOV   R0,#0CCH
  57.          LCALL SEND_BYTE   
  58.          MOV   R0,#44H     
  59.          LCALL SEND_BYTE
  60.          SETB  EA
  61.          MOV   48H,#1      
  62. SS2:
  63.          MOV   49H,#255
  64. SS1:
  65.          MOV   4AH,#255
  66. SS0:
  67.          DJNZ  4AH,SS0
  68.          DJNZ  49H,SS1
  69.          DJNZ  48H,SS2
  70.          CLR   EA
  71.          LCALL RSTSNR
  72.          JNB   F0,KEND
  73.          MOV   R0,#0CCH      
  74.          LCALL SEND_BYTE
  75.          MOV   R0,#0BEH         
  76.          LCALL SEND_BYTE     
  77.          LCALL READ_BYTE     
  78.          MOV   WDLSB,A        
  79.          LCALL READ_BYTE     
  80.          MOV   WDMSB,A      
  81.          LCALL TRANS12
  82. KEND:   
  83.          SETB  EA
  84.          RET
  85. ;**********************************************************
  86. ;
  87. TRANS12:
  88.          MOV   A,30H
  89.          ANL   A,#0F0H
  90.          MOV   3AH,A
  91.          MOV   A,31H
  92.          ANL   A,#0FH
  93.          ORL   A,3AH
  94.          SWAP  A
  95.          MOV   B,#10
  96.          DIV   AB
  97.          ;MOV 42H,A
  98.          MOV   43H,B ;
  99.          MOV   b,#10
  100.          DIV   ab
  101.          MOV   42H,B
  102.          MOV   41H,A
  103.          RET
  104. ;*************************************************

  106. SEND_BYTE: ;
  107.          MOV   A,R0
  108.          MOV   R5,#8
  109. SEN3:    CLR   C
  110.          RRC   A
  111.          JC    SEN1
  112.          LCALL WRITE_0
  113.          SJMP  SEN2
  114. SEN1:    LCALL WRITE_1
  115. SEN2:    DJNZ  R5,SEN3 ;
  116.          RET
  117. ;*************************************************

  119. READ_BYTE:
  120.          MOV   R5,#8
  121. READ1:   LCALL READ
  122.          RRC   A
  123.          DJNZ  R5,READ1 ;
  124.          MOV   R0,A
  125.          RET
  126. ;*************************************************

  128. RSTSNR:  SETB  DQ
  129.          NOP
  130.          NOP
  131.          CLR   DQ
  132.          MOV   R6,#250 ;
  133.          DJNZ  R6,$
  134.          MOV   R6,#50
  135.          DJNZ  R6,$
  136.          SETB  DQ ;
  137.          MOV   R6,#15
  138.          DJNZ  R6,$
  139.          CALL  CHCK ;
  140.          MOV   R6,#60
  141.          DJNZ  R6,$
  142.          SETB  DQ
  143.          RET


  146. ;*************************************************

  148. CHCK:    MOV   C,DQ
  149.          JC    RST0
  150.          SETB  F0 ;
  151.          SJMP  CHCK0
  152. RST0:    CLR   F0 ;
  153. CHCK0:   RET

  155. ;*************************************************
  156. WRITE_0:
  157.          CLR   DQ
  158.          MOV   R6,#30
  159.          DJNZ  R6,$
  160.          SETB  DQ
  161.          RET
  162. ;*************************************************
  163. WRITE_1:
  164.          CLR   DQ
  165.          NOP
  166.          NOP
  167.          NOP
  168.          NOP
  169.          NOP
  170.          SETB  DQ
  171.          MOV   R6,#30
  172.          DJNZ  R6,$
  173.          RET

  175. ;*************************************************
  176. READ:    SETB  DQ ;
  177.          NOP
  178.          NOP
  179.          CLR   DQ
  180.          NOP
  181.          NOP
  182.          SETB  DQ ;
  183.          NOP
  184.          NOP
  185.          NOP
  186.          NOP
  187.          NOP
  188.          NOP
  189.          NOP
  190.          MOV   C,DQ
  191.          MOV   R6,#23
  192.          DJNZ  R6,$
  193.          RET

  195. ;**********************************************
  196. DELAY10: MOV   R4,#20
  197. D2:      MOV   R5,#30
  198.          DJNZ  R5,$
  199.          DJNZ  R4,D2
  200.          RET

  202.          end
復制代碼

1.JPG (214.35 KB, 下載次數: 73)

原理圖

原理圖
作者: archer23320    時間: 2020-10-24 15:24
能放一下proteus里的仿真程序嗎



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