Visual Basic 程序代码，使用MSChart控件，串口读取下位机发来的数据，显示温度湿度，并实时显示曲线，也可以发送指令给温湿度变送器设置参数，代码结构清晰，注释清楚
先上个硬件连接示意图（假装这里有图）。下位机用485转USB接到电脑，通讯协议是自定义的简单格式。重点看软件部分——
串口配置这块儿，用了个Combo控件让用户选端口：
Private Sub Form_Load() For Each sp As String In My.Computer.Ports.SerialPortNames cmbPort.Items.Add(sp) Next With SerialPort1 .BaudRate = 9600 .Parity = Parity.None .DataBits = 8 .StopBits = StopBits.One End With End Sub这里有个骚操作：My.Computer.Ports.SerialPortNames能自动枚举可用串口，比手动注册表查询方便多了。
数据接收用了个状态机处理，防止数据帧不完整：
Private buffer As String = "" Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Dim rawData = SerialPort1.ReadExisting() buffer &= rawData '帧头检测 Dim startIndex = buffer.IndexOf("TH:") If startIndex < 0 Then Return '找帧尾 Dim endIndex = buffer.IndexOf(vbCr, startIndex) If endIndex < 0 Then Return '提取有效数据 Dim frame = buffer.Substring(startIndex, endIndex - startIndex) buffer = buffer.Remove(0, endIndex + 1) '清空已处理数据 '解析示例：TH:25.6C,45%RH Dim parts = frame.Split({"C,", "%"}, StringSplitOptions.RemoveEmptyEntries) If parts.Length < 2 Then Return Dim temp = Val(parts(0).Substring(3)) Dim humi = Val(parts(1)) '更新UI要Invoke Me.Invoke(Sub() lblTemp.Text = $"{temp:N1}℃" lblHumi.Text = $"{humi:N1}%" UpdateChart(temp, humi) End Sub) End Sub注意这里用了Lambda表达式处理跨线程更新，比传统Delegate写法清爽不少。数据解析部分用Split切分字符串，比正则表达式更直观。
曲线更新部分用MSChart的动态数据绑定：
Private Sub UpdateChart(temp As Single, humi As Single) '温度系列是红色曲线 With chartTemp.Series(0) .Points.AddXY(DateTime.Now, temp) If .Points.Count > 100 Then .Points.RemoveAt(0) '保持100个数据点 End With '湿度系列用蓝色虚线 With chartHumi.Series(0) .Points.AddXY(DateTime.Now, humi) .ChartType = DataVisualization.Charting.SeriesChartType.Spline If .Points.Count > 100 Then .Points.RemoveAt(0) End With chartTemp.ChartAreas(0).AxisX.LabelStyle.Format = "HH:mm:ss" chartHumi.ChartAreas(0).RecalculateAxesScale() End Sub这里两个技巧：1.限制数据点数避免内存暴涨；2.X轴时间格式化显示。MSChart的ChartType属性很关键，Spline类型能让曲线更平滑。
参数下发功能，比如设置采样间隔：
Private Sub btnSetInterval_Click(sender As Object, e As EventArgs) Handles btnSetInterval.Click Dim interval = numInterval.Value Dim cmd = $"SET:INTERVAL={interval}{vbCr}" If SerialPort1.IsOpen Then SerialPort1.Write(cmd) Log($"已发送设置命令: {cmd}") Else MessageBox.Show("请先打开串口！") End If End Sub实际项目中建议加上校验码，比如CRC16。这里简单用回车符作为帧尾，生产环境可能需要更严谨的协议。
调试时发现MSChart的刷新频率太高会导致界面卡顿，后来在定时器里做了双缓冲处理：
Private Sub tmrRefresh_Tick(sender As Object, e As EventArgs) Handles tmrRefresh.Tick chartTemp.Update() chartHumi.Update() Application.DoEvents() '慎用，但在这小工具里问题不大 End Sub最后来个提醒：串口操作记得加异常处理！特别是拔插USB转485时容易出幺蛾子，建议在Open/Close时加上Try-Catch块。
--ModalNavigationDrawer)
