温度传感器、VB.NET

最新推荐文章于 2022-11-26 15:15:58 发布

HANMD

最新推荐文章于 2022-11-26 15:15:58 发布

阅读量1.2k

点赞数 12

文章标签： vb.net

本文链接：https://blog.csdn.net/HANMD/article/details/116124157

版权

这篇博客展示了如何使用VB.NET设计后台程序，通过SerialPort1读取Arduino上的DS18B20温度传感器数据。当接收到温度数据后，程序会更新UI并根据温度值切换风扇图片。在Arduino端，程序初始化DallasTemperature库，请求并打印温度值。

摘要由CSDN通过智能技术生成

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.I