DS18B20-电脑作显示-BASCOM-AVR
http://www.avrdiy.com/应用设计/DS18B20应用例子.htm初稿
DS18B20是DALLAS公司生产的单总线 1WIRE 数字温度传感器， 可广泛用于工业、民用、军事等领域的温度测量及控制仪器、测控系统和大型设备中。它具有体积小，接口方便，传输距离远等特点。
1：DS18B20简介:
（1）独特的单总线接口方式：DS18B20与主机连接时仅需要一条IO线即可实现双向通讯。
（2）在使用中不需要任何外围元件。
（3）可用正常供电，也可以用IO寄生供电方式工作，电压范围：+3.0~+5.5 V。
（4）测温范围：-55～125℃，0～85℃误差<0.5℃，分辨率为0.0625、0.125、0.25、0.5℃，由编程实现
（5）用户可自设定EEPROM的报警上下限值。
（6）支持多点组网功能，多个DS18B20可以并联在一起工作，实现多点测温。
（8）负压特性，电源极性接反时，温度计不会因发热而烧毁，但不能正常工作。
（9）供电方式既可以由VDD直接供电，也可以采用IO口寄生供电。
2：电路连接：当采用VDD正常供电时，DQ脚直接连接到单片机的IO口，同时接一个4.7～10K的上拉电阻；
当采用寄生电源时，电路的连接也很简单，但是涉及供电计算比较严格，请参考其他更详细的资料。
它的封装图如下：
它的存储器资源如下表
http://www.avrdiy.com/应用设计/DS18B20应用例子.htm
操作ROM的指令共有5条，均位单字节指令，下表是16进制指令表：
指令代码
指令说明
55
指定匹配芯片指令，
CC
跳过ROM匹配指令
F0
搜索芯片指令
EC
报警芯片搜索
33
读ROM指令，器件收到这个指令后就把64位ID码传送给主机
操作芯片的RAM、EEPROM指令共有6条，均为单字节指令，下表是16进制指令表：
指令代码
指令说明
44
温度转换指令，并把转换后的数据存放在RAM的B1、B2的两个字节里
BE
读取温度指令，器件收到这个指令后把B1、B2两个字节的数据传送给主机
4E
改写RAM的B3、B4、B5的数据，主机发出这个指令后跟着再 分别发送相应的数据
48
器件收到这个指令后就将B3、B4、B5的数据写到EEPROM
B8
器件收到这个指令后就把EEPROM的高H、低L温度报警值写到进B3、B4
B4
器件收到这个指令后就返回0或者1给主机，0为寄生电源，1为外部电源
下面列举几个例子来说明一下DS18B20在BASCOM-AVR上的应用：
1：读取DS18B20、DS2401的64位ID码，并在LCD上显示出来
'//////////////////////////////////////
'读取DS18B20、DS2401的64位ID码，并在LCD上显示出来
'DS18B20/DS2401的ID码读取操作是一样的，工作时序也是一样的
'版权 www.avrdiy.com
'设计者 啊艺
'编译器BASCOM-AVR1.11.7.9
'//////////////////////////////////////
$regfile = "M88def.dat"
$crystal = 8000000
Config 1wire = Portb.0 '定义单总线器件的接口
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
'*************************************************
Dim I As Byte
Dim C(8) As Byte
Do
Cls
1wreset '单总线初始化
1wwrite &H33 '主机向单总线器件发送读ID码指令
'单总线器件收到读ID码指令后会跟着输出自己的64位ID码，主机用数组C(i)保存下来
For I = 1 To 8
C(i) = 1wread()
Next
'在LCD上用十六进制的方式把接收到的ID码显示出来
For I = 8 To 1 Step -1
Lcd Hex(c(i))
Next
Wait 1 '等待一秒钟，目的是让LCD显示清晰一点
Loop
End
2:读取DS18B20的RAM的9个字节，并且在LCD上显示出来
'//////////////////////////////////////
'读取DS18B20的RAM的9个字节的数据，并在LCD上显示出来
'版权 www.avrdiy.com
'设计者 啊艺
'编译器BASCOM-AVR1.11.8.1
'//////////////////////////////////////
$regfile = "M88def.dat"
$crystal = 8000000
Config 1wire = Portb.0 '定义单总线器件的接口
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
'*************************************************
Dim I As Byte
Dim C(9) As Byte
Do
Cls
1wreset '单总线初始化
1wwrite &HCC '主机向单总线器件发送跳过ID码指令
1wwrite &H44 '主机向单总线发送温度转换指令
Waitms 800 '精度不同时间也不同,9位93.75ms,10位187.5ms,11位375ms,12位750ms
1wreset
1wwrite &HCC '主机向单总线器件发送跳过ID码指令 '单总线初始化
1wwrite &HBE '主机向单总线发送读取RAM指令
'单总线器收到读RAM指令后会跟着输出自己的9个字节的RAM数据，主机用数组C(i)保存下来
For I = 1 To 9
C(i) = 1wread()
Next
'在LCD上把接收到的9个字节的RAM数据分两行显示出来
For I = 1 To 4
Lcd Hex(c(i)) ; "|"
Next
Locate 2 , 1 '把光标定位到第二行的第一列
For I = 5 To 9
Lcd Hex(c(i)) ; "|"
Next
Wait 1 '等待一秒钟，目的是让LCD显示清晰一点
Loop
End
3：让DS18B20执行温度转换，并且输出到LCD上
'//////////////////////////////////////
'读取DS18B20温度数据，并在LCD上显示出来
'版权 www.avrdiy.com
'设计者 啊艺
'编译器BASCOM-AVR1.11.8.1
'//////////////////////////////////////
$regfile = "M88def.dat"
$crystal = 8000000
Config 1wire = Portb.0 '定义单总线器件的接口
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
'*************************************************
Dim I As Byte
Dim C(2) As Byte
Dim T As Word
Dim Wendu As Single
Do
Cls
1wreset '单总线初始化
1wwrite &HCC '主机向单总线器件发送跳过ID码指令
1wwrite &H44 '主机向单总线发送温度转换指令
Waitms 800 '精度不同时间也不同,9位93.75ms,10位187.5ms,11位375ms,12位750ms
1wreset '单总线初始化
1wwrite &HCC '主机向单总线器件发送跳过ID码指令
1wwrite &HBE '主机向单总线发送读取RAM指令
'单总线器收到读RAM指令后会跟着输出自己的9个字节的RAM数据，主机用数组C(i)保存前两个字节的温度数据
For I = 1 To 2
C(i) = 1wread()
Next
'把两个单字节的温度数据合并为一个双字节，得到原始温度数据
T = C(2) * 256
T = T + C(1)
'在LCD上把16位的原始温度数据以十六进制的方式显示出来
Lcd Hex(t)
'如果温度为正，则T的最高位的4位都为0，否则为1
'负温度的计算:原始数据取反、加1、再乘以 0.0625
'正温度的计算:原始数据乘以 0.0625
Locate 2 , 1
If C(2) > 15 Then
T = Not T
T = T + 1
Wendu = T * 0.0625
Lcd "-" ; Wendu ; "C"
Else
Wendu = T * 0.0625
Lcd "+" ; Wendu ; "C"
End If
Wait 1 '等待一秒钟，目的是让LCD显示清晰一点
Loop
End
4：设置DS18B20的温度报警值以及转换精度值
'//////////////////////////////////////
'设置DS18B20的温度报警值以及转换精度值
'然后再读取DS18B20的RAM的9个字节的数据，并在LCD上显示出来
'版权 www.avrdiy.com
'设计者 啊艺
'编译器BASCOM-AVR1.11.8.1
'//////////////////////////////////////
$regfile = "M88def.dat"
$crystal = 8000000
Config 1wire = Portb.0 '定义单总线器件的接口
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
'*************************************************
Dim I As Byte
Dim C(9) As Byte
1wreset
1wwrite &HCC '跳过ID码
1wwrite &H4E '写RAM指令
1wwrite &HBB '写高H温度报警数据BB
1wwrite &HAA '写低L温度报警数据AA
1wwrite &H1F '写转换精度值1F(9位精度)
1wreset
1wwrite &HCC '跳过ID码
1wwrite &H48 '将RAM的数据写入EEPROM中
Do
Cls
1wreset '单总线初始化
1wwrite &HCC '主机向单总线器件发送跳过ID码指令
1wwrite &H44 '主机向单总线发送温度转换指令
Waitms 800 '精度不同时间也不同,9位93.75ms,10位187.5ms,11位375ms,12位750ms
1wreset
1wwrite &HCC '主机向单总线器件发送跳过ID码指令 '单总线初始化
1wwrite &HBE '主机向单总线发送读取RAM指令
'单总线器收到读RAM指令后会跟着输出自己的9个字节的RAM数据，主机用数组C(i)保存下来
For I = 1 To 9
C(i) = 1wread()
Next
'在LCD上把接收到的9个字节的RAM数据分两行显示出来
For I = 1 To 4
Lcd Hex(c(i)) ; "|"
Next
Locate 2 , 1 '把光标定位到第二行的第一列
For I = 5 To 9
Lcd Hex(c(i)) ; "|"
Next
Wait 1 '等待一秒钟，目的是让LCD显示清晰一点
Loop
End
5:利用PC的超级终端作输出显示
$regfile = "M88def.dat"
$crystal = 1000000
$baud = 1200
Config 1wire = Portb.0
'*************************************************
Dim I As Word
Dim C(9) As Byte
Dim T As Single
Do
'****************************************************************************
'读DS18B20的64位ID码
1wreset
1wwrite &H33
For I = 1 To 8
C(i) = 1wread()
Next
Print "温度感应器是DS18B20,ID码是:"
Print Hex(c(8)) ; "|" ; Hex(c(7)) ; "|" ; Hex(c(6)) ; "|" ; Hex(c(5)) ; "|" ; Hex(c(4)) ; "|" ; Hex(c(3)) ; "|" ; Hex(c(2)) ; "|" ; Hex(c(1))
'****************************************************************************
'读DS18B20的RAM的9个字节数据
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 800
1wreset
1wwrite &HCC
1wwrite &HBE
For I = 1 To 9
C(i) = 1wread()
Next
Print "当前RAM的9个字节数据是:"
Print Hex(c(1)) ; "|" ; Hex(c(2)) ; "|" ; Hex(c(3)) ; "|" ; Hex(c(4)) ; "|" ; Hex(c(5)) ; "|" ; Hex(c(6)) ; "|" ; Hex(c(7)) ; "|" ; Hex(c(8)) ; "|" ; Hex(c(9))
'****************************************************************************
'上面的9个字节的RAM中,C1,C2 就是温度数据
I = C(2) * 256
I = I + C(1)
If C(2) > 15 Then
I = Not I
I = I + 1
T = I * 0.0625
Print "现在的温度是:" ; "-" ; T ; "℃"
Else
T = I * 0.0625
Print "现在的温度是:" ; T ; "℃"
End If
Print "----------------------------"
Waitms 3000
Loop
End
http://www.avrdiy.com/应用设计/DS18B20应用例子.htm
http://cache.amobbs.com/bbs_upload782111/files_5/armok01105386.GIF 好东西~！！！ 顶 阿艺，你这个程序好，不枉费了一条裤子！！ 好,顶! 收下了，正准备做个温度计，正好参考，谢谢 好冬冬。阿艺牛！！！ 有没有试过用编译器BASCOM-AVR1.11.8.1编译呢?我用M16试过能编译但不能读数,全是FF的.上拉电阻也接了,但就不知哪里出了问题. 好程序，我用仿真器加M16仿真成功了，在电脑的串口调试助手中看到结果了，每隔2-3秒一刷新。谢谢了。 啊艺的东西搞的挺整齐的！ 最近在看这个传感器呢 haoding
页:
[1]