技术支持
好物推荐

VB.NET解析串口返回数据GB2312转UTF8

因为485返回的数据是ASCII的GB2312的编码,所以需要解析成UTF-8格式的方便储存。温湿度解码主要是解决表示温度的℃符号。

Imports System.IO.Ports

Public Class Form1

    Private Sub comm_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles comm.DataReceived
        Dim buf(comm.ReadBufferSize) As Byte
        comm.Read(buf, 0, buf.Length)
        If Array.IndexOf(buf, CByte(13)) <> -1 Then
            Array.Resize(buf, Array.IndexOf(buf, CByte(13)))   '定位结束回车符号\n
        Else
            Debug.Print("返回数据的格式错误,没有发现回车结束符!")
            Exit Sub
        End If
        Dim s = System.Text.Encoding.GetEncoding("gb2312").GetString(buf)   'gb2312代码页面编号936
        Dim tmp() As String
        tmp = Split(s, ",")
        Debug.Print("当前温度:" & tmp(0) & " 当前湿度:" & tmp(1).Trim & " 当前时间:" & Now)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '打开串口接受数据
        If Button2.Text = "开始调试串口" Then
            comm.PortName = "COM2"
            comm.Open()
            Button2.Text = "暂停调试串口"
        Else
            comm.Close()
            Button2.Text = "开始调试串口"
        End If
    End Sub
End Class



微信扫描下方的二维码阅读本文

未经允许不得转载:桔子雨 » VB.NET解析串口返回数据GB2312转UTF8
分享到: 生成海报
一个数字化服务提供商

本站承接外贸建站,小工具和行业软件定制

部分产品联系我们
切换注册

登录

忘记密码 ?

您也可以使用第三方帐号快捷登录

切换登录

注册

微信扫一扫关注
如已关注,请回复“登录”二字获取验证码