温度传感器、VB.NET

1：VB控件程序设计—后台程序设计

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.PortName = "COM7"
        SerialPort1.Open()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim RXD = SerialPort1.ReadExisting()
        If RXD <> "" Then
            If Mid(RXD, 1, 1) = "T" Then
                Lab_t.Text = Mid(RXD, 2, 5)
                Dim temp = Val(Mid(Lab_t.Text, 1, 1)) * 1000 + Val(Mid(Lab_t.Text, 2, 1)) * 100 + Val(Mid(Lab_t.Text, 4, 1)) * 10 + Val(Mid(Lab_t.Text, 5, 1))
                If temp < 2750 Then
                    PictureBox2.Image = My.Resources.风扇停
                Else
                    PictureBox2.Image = My.Resources.风扇转
                End If
            End If  
        End If
    End Sub
End Class

 

 

 

 

2：Arduino端程序

#include
#include
// 定义DS18B20数据口连接arduino的10号IO上
#define ONE_WIRE_BUS 10
// 初始连接在单总线上的单总线设备
OneWire oneWire(ONE_WIRE_BUS);
DallasTemperature sensors(&oneWire);
void setup(void)
{
  // 设置串口通信波特率
  Serial.begin(9600);
  Serial.println("Dallas Temperature IC Control Library Demo");
  // 初始库
  sensors.begin();
}
void loop(void)
{ 
 sensors.requestTemperatures();
 Serial.print("T");
  Serial.println(sensors.getTempCByIndex(0));
  delay (100);
}