来一个 多个DS18B20并联的温度检测

yoya0303

看老大发了一个单DS18B20的温度计 ,我来一个多路并联的.
Proteus仿真图 支持多个18B20 并连,开机自动探测总 传感器数量,并且挨个显示温度 这个仿真图是9个并联.

1. '-------------------------------------------------------------------------------
   
2. 'Name                     : 18B20_M.bas
   
3. 'Copyright                : http://www.avrbase.com
   
4. 'Micro                    : AtMega8
   
5. 'Author                   : yoya0303
   
6. '-------------------------------------------------------------------------------
   
7. $regfile = "m8def.dat"
   
8. $crystal = 8000000
   
9. $baud = 19200
   
10. $hwstack = 32                                               ' default use 32 for the hardware stack
    
11. $swstack = 10                                               'default use 10 for the SW stack
    
12. $framesize = 40                                             'default use 40 for the frame space
    
13. 
    
14. Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
    
15. 
    
16. Config Lcdbus = 4
    
17. 
    
18. Config 1wire = Portd.5                                      'use this pin
    
19. 
    
20. 
    
21. Dim Reg_no(8) As Byte
    
22. Dim K As Byte
    
23. 
    
24. Dim I As Byte , W As Word
    
25. 
    
26. Dim Dsint As Integer
    
27. Dim Data1(2) As Byte
    
28. Dim Sig As Byte
    
29. Dim N As Integer
    
30. 
    
31. Rst:
    
32. Locate 1 , 1
    
33.    N = 1wirecount()                                         '搜索联机 18B20个数
    
34.    Lcd "MAX= "
    
35.    Lcd Str(n)                                               'LCD 显示18B20个数
    
36.    Wait 2
    
37.    Cls
    
38.    1wreset
    
39.    1wwrite &HCC
    
40.    1wwrite &H44                                             '跳过ROM匹配 全部开始转换
    
41.    K = 1
    
42.    Reg_no(1) = 1wsearchfirst()                              '搜索ROM
    
43.   ' 1wverify Reg_no(1)                                       '校验ROM
    
44. 
    
45.   ' If Err = 1 Then                                          '校验出错退出
    
46.   '    Goto Endthis
    
47.   ' End If
    
48.    For I = 1 To 8                                           '输出18B20 ROM号
    
49.       Print Hex(reg_no(i));
    
50.    Next
    
51. 
    
52.    1wreset
    
53.    1wwrite &H55                                             '匹配ROM
    
54.    For I = 1 To 8
    
55.       1wwrite Reg_no(i)
    
56.    Next I
    
57.    1wwrite &HBE                                             '读取温度
    
58.       ''*************************************************
    
59.    Data1(1) = 1wread(2)
    
60. 
    
61.    Dsint = Makeint(data1(1) , Data1(2))
    
62.    If Data1(2) > 16 Then                                    '判断温度正负
    
63.       Dsint = Not Dsint
    
64.       Dsint = Dsint + 1
    
65.       Dsint = Dsint / 16
    
66.       Sig = 1
    
67.    Else
    
68.       Sig = 0
    
69.       Dsint = Dsint / 16
    
70.    End If
    
71.          ''*************************************************
    
72.    Locate 1 , 1                                             '显示温度
    
73.    If Sig = 1 Then
    
74.       Lcd "-" ; Str(dsint) ; Chr(0)
    
75.       Print " -";
    
76.       Print Str(dsint)
    
77.    Else
    
78.       Print " +";
    
79.       Print Str(dsint)
    
80. 
    
81.       Lcd "+" ; Str(dsint) ; Chr(0)
    
82.    End If
    
83.    Locate 2 , 1                                             'LCD显示当前ROM
    
84.    For I = 1 To 8
    
85.          Lcd Hex(reg_no(i))
    
86.    Next I
    
87. 
    
88.    Wait 1
    
89. Do
    
90. 
    
91.    Do
    
92. 
    
93. 'Now search for other devices
    
94. 
    
95. 
    
96.       Reg_no(1) = 1wsearchnext()                            '继续搜索ROM
    
97. '     1wverify Reg_no(1)                                    '校验ROM
    
98. 
    
99. '      If Err = 1 Then                                       '校验出错退出
    
100. '         Goto Endthis
     
101. '      End If
     
102.       For I = 1 To 8                                        '串口输出ROM
     
103.             Print Hex(reg_no(i));
     
104.       Next I
     
105.       1wreset
     
106.       1wwrite &H55
     
107.       For I = 1 To 8
     
108.          1wwrite Reg_no(i)
     
109.       Next I
     
110.       1wwrite &HBE                                          '读取温度
     
111.       ''*************************************************
     
112.          Data1(1) = 1wread(2)
     
113. 
     
114.          Dsint = Makeint(data1(1) , Data1(2))
     
115.          If Data1(2) > 16 Then
     
116.          Dsint = Not Dsint
     
117.          Dsint = Dsint + 1
     
118.          Dsint = Dsint / 16
     
119.          Sig = 1
     
120.          Else
     
121.          Sig = 0
     
122.          Dsint = Dsint / 16
     
123.          End If
     
124.        ''*************************************************
     
125.          Locate 1 , 1
     
126.       If Sig = 1 Then
     
127.          Lcd "-" ; Str(dsint) ; Chr(0)
     
128.          Print " -";
     
129.          Print Str(dsint)
     
130.       Else
     
131.          Lcd "+" ; Str(dsint) ; Chr(0)
     
132.          Print " +";
     
133.          Print Str(dsint)
     
134.       End If
     
135.           Locate 2 , 1
     
136.       For I = 1 To 8
     
137.             Lcd Hex(reg_no(i))
     
138.       Next I
     
139.       Wait 1
     
140. 
     
141. 
     
142.       K = K + 1
     
143.      If K >= N Then                                         '当计数到达总18B20个数,开始重新转换
     
144.      Goto Rst
     
145.      End If
     
146.    Loop Until Err = 1
     
147. 
     
148.        Locate 1 , 6
     
149.        Lcd "ERROR"
     
150. Loop
     
151. 
     
152. Endthis:
     
153. Print Err
     
154. Cls
     
155. Locate 1 , 1
     
156. Lcd "Error"
     
157. 
     
158. 
     
159. 
     
160. End

复制代码

箫天

有电路有程序，这个要顶，加精。

枯恋凡尘

支持喷神