DS18B20蓝牙温度计

 ’****************************************************************

’*  蓝牙温度计 - R1 B23.BAS                          *

’****************************************************************

’ MCU 选择

Device = 12F675

’ 8.000MHz 晶体

XTAL = 8          

’ 定义符号引脚参考

Symbol DQ = GPIO.0  ’ 单总线网络引脚

Symbol TX = GPIO.1  ’ 蓝牙 TX

Symbol RX = GPIO.2  ’ 蓝牙 RX

’ 配置熔丝：外部振荡器（高速），看门狗关闭，代码保护关闭

Config HS_OSC, WDT_OFF, CP_OFF

’ 定义变量

Dim temperature As Word

Dim C As Byte

Dim CPerD As Byte

Dim sample_count As Word

Dim sample_delay As Word

Dim tx_pace As Word

Dim temp_dec As Byte

Dim sign As Byte

’ 在每个字符传输之间插入小延迟以防止数据丢失

tx_pace = 80

’ 采样率

sample_delay = 10000

’ 将所有引脚设置为数字

ALL_DIGITAL = true

’ 设置引脚方向

Output TX

Input RX

’ 20秒启动延迟

DelayMS 20000

’ 显示“上电自检”信息

SerOut TX, 84, tx_pace, [13, 10, 10, 10, "蓝牙温度计 - 启动成功", 13, 10]

SerOut TX, 84, tx_pace, [13, 10, "硬件版本: R3.0"]

SerOut TX, 84, tx_pace, [13, 10, "固件版本: R1 B23"]

SerOut TX, 84, tx_pace, [13, 10, "采样间隔（秒）: ", Dec sample_delay/1000, 13, 10]

’ SerOut 数据格式: SerOut (引脚)(波特模式（9600 8N1 反转）)(节奏)[数据]

’ 空白行

SerOut TX, 84, tx_pace, [13,10,10,10]

’ 等待两秒

DelayMS 2000

’ 将采样计数器初始化为零

sample_count = 0

’ 打印“开始”向主机发出数据收集开始的信号

SerOut TX, 84, tx_pace, ["开始", 13, 10,10]

’ 主采样/传输循环

acquisition:

OWrite DQ, 1, fault, [$CC, $44] ’ 发送计算温度命令

’ 如果未找到单总线传感器，跳转到“故障”函数

’ OWrite 和 ORead 函数非常全面 - 详见 PICBasic 库

Repeat

DelayMS 50 ’ 等待转换完成

ORead DQ, 4, [C] ’ 从 DS18B20 读取计数器值

Until C <> 0

OWrite DQ, 1, [$CC, $BE] ’ 发送“读取暂存器”命令

ORead DQ, 2, [temperature.LowByte,temperature.HighByte, C, C, C, C, C, CPerD]

’ 判断值是正还是负；翻转符号

’ 位 8-15 为 1 表示负温度，0 表示正温度

If temperature.8=1 Then

    ’ 如果为负，则丢弃第一位，并反转值      

    temperature=(temperature.LowByte ^ $FF) >> 1

    ’ 如果 Count = 0 则递增 Temp

    If C = 0 Then temperature = temperature + 1    

    ’ 将符号改为负

    sign = "-"                                                          

Else

    ’ 如果为正，则丢弃第一个字节

    temperature = (temperature >> 1)  

    ’ 并将符号值改为正              

    sign = "+"      

    ’ 反转十进制值                                                  

    temp_dec = 100 - temp_dec                            

EndIf

’ 每个 Count 是 1/16 度，因此 100/16 = 6.25，这是我们的十进制值（温度的）

temp_dec = (6.25 * C)  

’ 递增采样计数器

sample_count = (sample_count + 1)

’ 通过蓝牙链路将数据传输到主机

’ 传输 "" 似乎可以防止数据丢失

SerOut TX, 84, tx_pace, [""]

’ 格式: 采样计数, 逗号, 符号, 温度整数, 小数点, 温度小数, "c"

SerOut TX, 84, tx_pace, [Dec sample_count, ", ", sign, Dec temperature, ".", Dec Dig temp_dec, 1, 0, "c", 13, 10]

’ 在发送下一个样本前等待指定时间

DelayMS sample_delay

’ 重新开始采样采集过程

GoTo acquisition

’ 如果未找到单总线传感器，第一个 OWRITE 命令将失败并跳转到这里指示故障  

fault:

SerOut TX, 84, tx_pace, [13, 10, "错误: 检测到单总线网络故障 - 检查传感器接线", 13, 10]

DelayMS 1000

’ 重试 - 如果问题修复，返回正常操作

GoTo acquisition