初始值

App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

CommunicationProtocol/CommunicationProtocol.vb

@@ -0,0 +1,519 @@
+Imports System.IO.Ports
+Imports System.Threading
+Imports NT_CAM_Controller.SendNode
+
+Public Class CommunicationProtocol
+    '流程列表
+    Public Property FlowList As List(Of (String, SendNode))
+    Public IsFlowList As Boolean
+    '执行流程任务线程
+    Public Property FlowThread As Task
+    Public IsFlowThread As Boolean
+    Public G_RichTextPrint As RichTextPrint
+    Public G_Transmitter As SerialPort
+    Public ControlDic As New Dictionary(Of Integer, Control)
+
+    Sub New(RichTextPrint As RichTextPrint, gTransmitter As SerialPort)
+
+        FlowList = New List(Of (String, SendNode))
+        G_RichTextPrint = RichTextPrint
+        G_Transmitter = gTransmitter
+        '初始化FlowThread
+        IsFlowThread = True
+        FlowThread = New Task(AddressOf FlowThreadRun)
+        FlowThread.Start()
+        IsFlowList = False
+        ControlDic = New Dictionary(Of Integer, Control)
+    End Sub
+
+    '添加控件列表
+    Sub AddControlDic(ControlName As Integer, Control As Control)
+        If IsNothing(ControlDic) Then ControlDic = New Dictionary(Of Integer, Control)
+        If ControlDic.ContainsKey(ControlName) Then
+            ControlDic.Item(ControlName) = Control
+        Else
+            ControlDic.Add(ControlName, Control)
+        End If
+
+    End Sub
+
+
+    '关闭
+    Sub Close()
+        If FlowThread Is Nothing OrElse Not FlowThread.IsCompleted Then Return
+        FlowThread.Dispose()
+    End Sub
+
+    '关闭线程
+    Sub CloseThread()
+        If FlowThread Is Nothing OrElse Not FlowThread.IsCompleted Then Return
+        FlowThread.Dispose()
+    End Sub
+    '设置IsFlowThread
+    Sub SetIsFlowThread(mIsFlowThread As Boolean)
+        Me.IsFlowThread = mIsFlowThread
+    End Sub
+    Sub setIsFlowList(mIsFlowList As Boolean)
+        Me.IsFlowList = mIsFlowList
+    End Sub
+
+    Public Function getIsFlowList() As Boolean
+        Return False
+        Return Me.IsFlowList
+    End Function
+    Public Function getIsFlowList1() As Boolean
+
+        Return Me.IsFlowList
+    End Function
+    '执行流程任务
+    Sub FlowThreadRun()
+        '流程节点执行状态
+        Dim isnode As Boolean
+        Dim nli As New List(Of Integer）
+        While IsFlowThread
+            Thread.Sleep(1)
+            If IsNothing(FlowList) OrElse FlowList.Count = 0 Then
+                '延时100ms
+                Thread.Sleep(100)
+            Else
+                If IsFlowList Then
+                    nli.Clear()
+                    Dim FlowListCount As Integer = FlowList.Count
+                    Console.WriteLine("FlowListCount:" & FlowListCount)
+                    ' For Each node In FlowList
+                    For i As Integer = 0 To FlowListCount - 1
+                        If Not IsFlowList Then
+                            Exit For
+                        End If
+
+                        Dim node As (String, SendNode) = FlowList(i)
+
+                        '判断本包是否超时接收
+                        If (node.Item2.SendCount >= node.Item2.MaxResendCount) OrElse node.Item2.RecvStatus = 1 Then
+                            nli.Add(i)
+                            Continue For
+                        End If
+
+                        If IsFlowThread = False Then Exit For
+                        While node.Item2.RecvStatus = SendNode.RecvStatusEnum.None
+                            If Not node.Item2.IsRecvData Then
+                                node.Item2.RecvRefresh(Nothing)
+                            End If
+                            If IsFlowThread = False Then Exit For
+                            '判断是什么类型命令
+                            If node.Item2.CommandType = 0 Then
+                                '系统命令
+                                isnode = SystemCommandSelector(node.Item1, node.Item2)
+                                If isnode = False Then
+                                    'MsgBox(node.Item2.TipInfo)
+                                    G_RichTextPrint.AddQueue(New RichTextNodeConfig(node.Item2.TipInfo, Color.Red), 1)
+                                    'IsFlowList = False
+                                    Exit While
+                                Else
+                                    Exit While
+                                End If
+
+                            Else
+                                '自定义命令
+                                isnode = CustomCommandSelector(node.Item1, node.Item2)
+                                If isnode = False Then
+                                    nli.Add(i)
+                                    'MsgBox(node.Item2.TipInfo)
+                                    'G_RichTextPrint.AddQueue(New RichTextNodeConfig(node.Item2.TipInfo, Color.Red), 1)
+                                    'IsFlowList = False
+                                    'Else
+                                    Exit While
+                                Else
+                                    'Exit While
+                                End If
+                            End If
+
+
+                        End While
+                    Next
+
+
+
+                    '从大到小删除
+                    For Each i In nli.OrderByDescending(Function(x) x)
+                        If Not IsFlowList Then
+                            Exit For
+                        End If
+                        FlowList.RemoveAt(i)
+                    Next
+                    IsFlowList = False
+                    Console.WriteLine($"流程节点数量：{FlowList.Count}")
+                End If
+            End If
+        End While
+    End Sub
+    '系统命令选择器
+    Public Function SystemCommandSelector(nodename As String, ByRef mSendNode As SendNode) As Boolean
+        If mSendNode.SendData.Length > 0 Then
+            Select Case mSendNode.SendData(0)
+                Case 1 '系统延时
+                    If mSendNode.SendData.Length > 1 Then
+                        mSendNode.ResendRefresh()
+                        Thread.Sleep(mSendNode.SendData(1))
+                        mSendNode.RecvRefresh({mSendNode.SendData(1)})
+                        mSendNode.SetTipInfo("执行延时完成！")
+                        Return True
+                    Else
+                        mSendNode.SetTipInfo($"{nodename}参数异常！")
+                        Return False
+                    End If
+
+            End Select
+        Else
+
+            mSendNode.SetTipInfo("系统命令参数异常！")
+            Return False
+        End If
+    End Function
+
+
+    '自定义命令选择器
+    Public Function CustomCommandSelector(nodename As String, ByRef mSendNode As SendNode) As Boolean
+        Dim sendbuf As Byte()
+        If mSendNode.SendStatus = SendNode.SendStatusEnum.None Then
+            sendbuf = SendPortData1(nodename, mSendNode)
+            If IsNothing(sendbuf) OrElse sendbuf.Length = 0 Then
+                Return False
+            Else
+                Return SendPortData(nodename, mSendNode， sendbuf, G_Transmitter)
+            End If
+
+        Else
+            '判断节点是否需要重新发送
+            If mSendNode.NeedResend() Then
+
+                sendbuf = SendPortData1(nodename, mSendNode)
+                If IsNothing(sendbuf) OrElse sendbuf.Length = 0 Then
+                    Return False
+                Else
+                    G_RichTextPrint.AddQueue(New RichTextNodeConfig($"第{mSendNode.SendCount}次重发数据", Color.Black), 1)
+                    Return SendPortData(nodename, mSendNode， sendbuf, G_Transmitter)
+                End If
+            Else
+                If mSendNode.SendCount < mSendNode.MaxResendCount Then
+
+                ElseIf mSendNode.SendCount = mSendNode.MaxResendCount Then
+                    If mSendNode.SendTime.AddMilliseconds(mSendNode.SendTimeout) < Now Then
+                        mSendNode.SendCount = mSendNode.SendCount + 1
+
+                    Else
+
+                    End If
+                Else
+                    mSendNode.RecvStatus = RecvStatusEnum.Timeout
+                    mSendNode.SendStatus = SendStatusEnum.Timeout
+                    ' IsRuningTest = False '退出流程
+                    'RefreshCaptureText(Color.Red, $"节点:{node.Item1} :发送失败！")
+
+                    G_RichTextPrint.AddQueue(New RichTextNodeConfig($"发数据超时！", Color.Red), 1)
+                    mSendNode.SetTipInfo($"发数据超时！")
+                    Return False
+                End If
+            End If
+            Return True
+        End If
+    End Function
+    '获取发送数据
+    Public Function SendPortData1(nodename As String, Mysenddata As SendNode) As Byte()
+        If IsNothing(Mysenddata) OrElse Mysenddata.SendData.Length = 0 Then Return Nothing
+        Return Mysenddata.SendData
+    End Function
+    '发送数据
+    Public Function SendPortData(nodename As String, ByRef Mysenddata As SendNode, sendBytes As Byte(), mTransmitter As SerialPort) As Boolean
+        If IsNothing(G_Transmitter) OrElse G_Transmitter.IsOpen = False Then
+            G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器未打开！", Color.Red), 1)
+            Return False
+        End If
+        Try
+            '发送数据
+            Mysenddata.SetSendData(sendBytes, Mysenddata.SendTimeout)
+            G_RichTextPrint.AddQueue(New RichTextNodeConfig("TX:", Color.Blue, New Font("宋体", 8), Mysenddata.SendData), 1)
+            G_Transmitter.Write(Mysenddata.SendData, 0, Mysenddata.SendData.Length)
+            '发送刷新对应数值
+            Mysenddata.ResendRefresh()
+            Return True
+        Catch ex As Exception
+            G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器发送异常！", Color.Red), 1)
+            Return False
+        End Try
+
+    End Function
+    Public Function SendPortData(sendBytes As Byte(), mTransmitter As SerialPort) As Boolean
+        If IsNothing(G_Transmitter) OrElse G_Transmitter.IsOpen = False Then
+            G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器未打开！", Color.Red), 1)
+            Return False
+        End If
+        Try
+            '发送数据
+
+            G_RichTextPrint.AddQueue(New RichTextNodeConfig("TX:", Color.Blue, New Font("宋体", 8), sendBytes), 1)
+            G_Transmitter.Write(sendBytes, 0, sendBytes.Length)
+            '发送刷新对应数值
+
+            Return True
+        Catch ex As Exception
+            G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器发送异常！", Color.Red), 1)
+            Return False
+        End Try
+
+    End Function
+
+
+    '添加流程节点
+    Public Function AddFlowNode(nodename As String, Mysenddata As SendNode) As Boolean
+        If FlowList Is Nothing Then Return False
+        FlowList.Add((nodename, Mysenddata))
+    End Function
+    '清空流程节点
+    Public Function ClearFlowNode(Optional isclear As Boolean = False) As Boolean
+        If FlowList Is Nothing Then Return False
+        If isclear Then
+            FlowList.Clear()
+        End If
+        'FlowList.Clear()
+    End Function
+
+
+    '处理接收到的数据
+    Public Function ProcessRecvData(RecvData() As Byte) As Boolean
+        If FlowList Is Nothing Then Return False
+        '判断数据包头是否合法
+        If NT_CAM.IsDataValid(RecvData) Then
+            If RecvData(3) >= &HB0 Then
+                Dim sendbuf = NT_CAM.PackData(RecvData(3), {0})
+                SendPortData(sendbuf, G_Transmitter)
+            ElseIf RecvData(3) >= &H10 AndAlso RecvData(3) < &HA0 Then
+
+
+
+                Select Case RecvData(3)
+                    Case &H18
+                        Dim sendbuf = NT_CAM.PackData(RecvData(3), {0})
+                        SendPortData(sendbuf, G_Transmitter)
+                        Dim mControl As Control = ControlDic.Item(&H18)
+                        If RecvData(6) = 0 Then
+                            SharedFunction.SetFromUI(mControl, "未连接", Color.Black， Color.Red)
+                        ElseIf RecvData(6) = 1 Then
+                            SharedFunction.SetFromUI(mControl, "已连接", Color.Black， Color.Green)
+                        Else
+                            SharedFunction.SetFromUI(mControl, "连接异常", Color.Black， Color.Red)
+                        End If
+                        Return True
+                    Case &H19
+                        Dim mControl As Control = ControlDic.Item(&H19)
+                        Dim sendbuf = NT_CAM.PackData(RecvData(3), {0})
+                        SendPortData(sendbuf, G_Transmitter)
+                        '获取数据长度
+                        Dim len As Integer = RecvData(5) * 256 + RecvData(4)
+                        '判断数据长度是否合法 且长度能够取到
+                        If len > 0 AndAlso len <= RecvData.Length - 6 Then
+                            '获取数据
+                            Dim data As Byte() = New Byte(len - 1) {}
+                            Array.Copy(RecvData, 6, data, 0, len)
+                            '将数组转换为字符串
+                            Dim str As String = SharedFunction.ByteToHexString(data)
+                            SharedFunction.SetFromUI(mControl, str, Color.Black， Color.White)
+                        End If
+                        Return True
+
+
+                End Select
+
+
+
+
+                Dim node As SendNode
+                Dim nextNode As SendNode
+                For i = 0 To FlowList.Count - 1
+                    node = FlowList(i).Item2
+                    If node.SendStatus = SendNode.SendStatusEnum.Send Then
+                        If node.RecvStatus = SendNode.RecvStatusEnum.None Then
+                            If RecvData(3) = node.SendData(3) Then
+                                node.RecvRefresh(RecvData)
+                            End If
+
+                        End If
+                    End If
+                Next
+
+
+            Else
+                Dim node As SendNode
+                Dim nextNode As SendNode
+                For i = 0 To FlowList.Count - 1
+                    node = FlowList(i).Item2
+                    If node.SendStatus = SendNode.SendStatusEnum.Send Then
+                        If node.RecvStatus = SendNode.RecvStatusEnum.None Then
+                            If RecvData(3) = node.SendData(3) Then
+                                node.RecvRefresh(RecvData)
+                            End If
+
+                        End If
+                    End If
+                Next
+            End If
+
+        End If
+
+    End Function
+
+
+
+
+
+End Class
+
+Public Class SendNode
+    '命令类型
+    Public Property CommandType As Integer    '0:系统命令，1:自定义命令
+
+    '发送时间
+    Public Property SendTime As DateTime
+    '发送数据
+    Public Property SendData As Byte()
+    '重发次数
+    Public Property SendCount As Integer
+    '重发间隔
+    Public Property SendInterval As Integer
+    '超时时间
+    Public Property SendTimeout As Integer
+    '发送状态 0:未发送 1:已发送
+    Public Property SendStatus As Integer
+    '接收状态
+    Public Property RecvStatus As Integer
+    '接收数据
+    Public Property RecvDataLisr As List(Of Byte())
+
+    '提示信息
+    Public Property TipInfo As String
+
+    '最大重 发次数
+    Public Property MaxResendCount As Integer
+
+    '是否接收数据
+    Public Property IsRecvData As Boolean
+    '控件对象
+    Public Property Control As Control
+
+    ''' <summary>
+    ''' 命令
+    ''' </summary>
+    ''' <param name="mCommandType"></param>
+    Sub New(mCommandType As Integer, Optional mMaxResendCoun As Integer = 3)
+        CommandType = mCommandType
+        RecvDataLisr = New List(Of Byte())
+        MaxResendCount = mMaxResendCoun
+        IsRecvData = True
+    End Sub
+
+    '设置控件
+    Sub SetControl(mControl As Control)
+        Control = mControl
+    End Sub
+
+    '发送状态枚举值
+    Enum SendStatusEnum
+        '未发送
+        None = 0
+        '已发送
+        Send = 1
+        '发送超时
+        Timeout = 2
+    End Enum
+
+    '接收状态枚举值
+    Enum RecvStatusEnum
+        '未接收
+        None = 0
+        '已接收
+        Recv = 1
+        '接收超时
+        Timeout = 2
+    End Enum
+
+    Sub New(Mysenddata() As Byte)
+        SendData = Mysenddata
+        SendInterval = 0
+        SendTimeout = 1000
+        RecvStatus = 0
+        SendStatus = 0
+        RecvDataLisr = New List(Of Byte())
+    End Sub
+    '设置发送数据
+    Sub SetSendData(Mysenddata() As Byte, Optional gSendTimeout As Integer = 1000)
+        SendData = Mysenddata
+        SendInterval = 0
+        SendTimeout = gSendTimeout
+        RecvStatus = 0
+        SendStatus = 0
+    End Sub
+
+    '接收数据并添加到接收列表
+    Sub AddRecvData(RecvData() As Byte)
+        If RecvDataLisr Is Nothing Then
+            RecvDataLisr = New List(Of Byte())
+        End If
+        RecvDataLisr.Add(RecvData)
+    End Sub
+    '判断需不需要重发 False 不需要重发 True 需要重发
+    Function NeedResend() As Boolean
+        '如果接收状态为已加收， 则不需要重发
+        If SendStatus = 1 AndAlso RecvStatus = 1 Then
+            Return False
+        Else
+            '如果发送状态为已发送，则判断是否超时，如果超时则返回True，否则返回False
+            If SendStatus = 1 Then
+                '判断是否到达最大重发次数
+                If SendCount < MaxResendCount Then
+
+                    If SendTime.AddMilliseconds(SendTimeout) < Now Then
+                        Return True
+                    Else
+                        Return False
+                    End If
+
+                Else
+
+                    'RecvStatus = RecvStatusEnum.Timeout
+                    'SendStatus = SendStatusEnum.Timeout
+                    Return False
+                End If
+            Else
+                Return True
+            End If
+
+        End If
+
+    End Function
+
+    '重发刷新对应数值
+    Sub ResendRefresh()
+        SendStatus = 1
+        SendCount += 1
+        SendTime = Now
+    End Sub
+
+    '发送刷新对应数值
+    Sub SendRefresh()
+        SendStatus = 1
+        SendTime = Now
+        SendCount = 0
+    End Sub
+    '接收刷新对应数值
+    Sub RecvRefresh(Mysenddata() As Byte)
+        AddRecvData(Mysenddata)
+        RecvStatus = 1
+    End Sub
+
+    '设置提示信息
+    Sub SetTipInfo(Mysenddata As String)
+        TipInfo = Mysenddata
+    End Sub
+
+
+End Class

CommunicationProtocol/NT_CAM.vb

@@ -0,0 +1,28 @@
+Public Class NT_CAM
+    '包头
+    Public Shared HeadData As Byte() = {&H55, &HAA}
+    '协议版本
+    Public Shared protocolVersion As Byte = &H1
+
+    '数据组包
+    Public Shared Function PackData(cmd As Byte, parbyf As Byte()) As Byte()
+        Dim li As List(Of Byte) = New List(Of Byte)()
+        li.AddRange(HeadData) '2
+        li.Add(protocolVersion) '1
+        li.Add(cmd) '1
+        li.AddRange(SharedFunction.IntToByteLB(parbyf.Length)) '2
+        li.AddRange(parbyf)
+        li.Add(SharedFunction.GetCheckSumMod2(li.ToArray))
+        Return li.ToArray
+    End Function
+
+    '判断数据是否合法
+    Public Shared Function IsDataValid(data As Byte()) As Boolean
+        If data.Length < 7 Then Return False '数据长度小于7
+        If data(0) <> HeadData(0) OrElse data(1) <> HeadData(1) Then Return False '包头不正确
+        If data(data.Length - 1) <> SharedFunction.GetCheckSumMod(data) Then Return False '校验和不正确
+        Return True
+    End Function
+
+
+End Class

Form1.Designer.vb

@@ -0,0 +1,835 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form 重写 Dispose，以清理组件列表。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows 窗体设计器所必需的
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下过程是 Windows 窗体设计器所必需的
+    '可以使用 Windows 窗体设计器修改它。  
+    '不要使用代码编辑器修改它。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Btn_OpenPort = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Cbo_Baud = New System.Windows.Forms.ComboBox()
+        Me.Cbo_Port = New System.Windows.Forms.ComboBox()
+        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
+        Me.Button16 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Button15 = New System.Windows.Forms.Button()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer2.Panel1.SuspendLayout()
+        Me.SplitContainer2.Panel2.SuspendLayout()
+        Me.SplitContainer2.SuspendLayout()
+        Me.GroupBox8.SuspendLayout()
+        Me.GroupBox6.SuspendLayout()
+        Me.GroupBox7.SuspendLayout()
+        Me.GroupBox5.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.IsSplitterFixed = True
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.SplitContainer2)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.RichTextBox1)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1195, 788)
+        Me.SplitContainer1.SplitterDistance = 573
+        Me.SplitContainer1.SplitterWidth = 1
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'SplitContainer2
+        '
+        Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer2.Name = "SplitContainer2"
+        Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer2.Panel1
+        '
+        Me.SplitContainer2.Panel1.Controls.Add(Me.TextBox8)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Label8)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.TextBox7)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Label7)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.CheckBox1)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Btn_OpenPort)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Label1)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Label2)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Cbo_Baud)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.Cbo_Port)
+        '
+        'SplitContainer2.Panel2
+        '
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox8)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox6)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox7)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox5)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox4)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox3)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox2)
+        Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox1)
+        Me.SplitContainer2.Panel2.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.SplitContainer2.Size = New System.Drawing.Size(573, 788)
+        Me.SplitContainer2.SplitterDistance = 104
+        Me.SplitContainer2.TabIndex = 2
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox8.Location = New System.Drawing.Point(330, 67)
+        Me.TextBox8.MaxLength = 128
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Size = New System.Drawing.Size(236, 29)
+        Me.TextBox8.TabIndex = 43
+        Me.TextBox8.Text = "6B 65 65 70"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Label8.Location = New System.Drawing.Point(213, 72)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(114, 19)
+        Me.Label8.TabIndex = 42
+        Me.Label8.Text = "保活包内容:"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox7.Location = New System.Drawing.Point(142, 67)
+        Me.TextBox7.MaxLength = 128
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(68, 29)
+        Me.TextBox7.TabIndex = 41
+        Me.TextBox7.Text = "30"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Label7.Location = New System.Drawing.Point(14, 72)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(125, 19)
+        Me.Label7.TabIndex = 40
+        Me.Label7.Text = "时间间隔(S):"
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.CheckBox1.Location = New System.Drawing.Point(17, 40)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(199, 23)
+        Me.CheckBox1.TabIndex = 39
+        Me.CheckBox1.Text = "是否定期发送保活包"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'Btn_OpenPort
+        '
+        Me.Btn_OpenPort.Font = New System.Drawing.Font("宋体", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Btn_OpenPort.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Btn_OpenPort.Location = New System.Drawing.Point(419, 5)
+        Me.Btn_OpenPort.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Btn_OpenPort.Name = "Btn_OpenPort"
+        Me.Btn_OpenPort.Size = New System.Drawing.Size(148, 54)
+        Me.Btn_OpenPort.TabIndex = 38
+        Me.Btn_OpenPort.Text = "打开"
+        Me.Btn_OpenPort.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Consolas", 12.0!)
+        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label1.Location = New System.Drawing.Point(6, 1)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(63, 30)
+        Me.Label1.TabIndex = 6
+        Me.Label1.Text = "端口:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!)
+        Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label2.Location = New System.Drawing.Point(205, 1)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(78, 30)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "波特率:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Cbo_Baud
+        '
+        Me.Cbo_Baud.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.Cbo_Baud.Font = New System.Drawing.Font("Consolas", 9.75!)
+        Me.Cbo_Baud.FormattingEnabled = True
+        Me.Cbo_Baud.Items.AddRange(New Object() {"1200", "2400", "4800", "9600", "19200", "38400", "57600", "115200", "256000", "512000", "9216000", "1000000"})
+        Me.Cbo_Baud.Location = New System.Drawing.Point(288, 5)
+        Me.Cbo_Baud.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Cbo_Baud.Name = "Cbo_Baud"
+        Me.Cbo_Baud.Size = New System.Drawing.Size(126, 23)
+        Me.Cbo_Baud.TabIndex = 9
+        '
+        'Cbo_Port
+        '
+        Me.Cbo_Port.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.Cbo_Port.Font = New System.Drawing.Font("Consolas", 9.75!)
+        Me.Cbo_Port.FormattingEnabled = True
+        Me.Cbo_Port.Location = New System.Drawing.Point(74, 5)
+        Me.Cbo_Port.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Cbo_Port.Name = "Cbo_Port"
+        Me.Cbo_Port.Size = New System.Drawing.Size(126, 23)
+        Me.Cbo_Port.TabIndex = 7
+        '
+        'GroupBox8
+        '
+        Me.GroupBox8.Controls.Add(Me.Button16)
+        Me.GroupBox8.Controls.Add(Me.Label4)
+        Me.GroupBox8.Controls.Add(Me.Label3)
+        Me.GroupBox8.Controls.Add(Me.TextBox6)
+        Me.GroupBox8.Controls.Add(Me.Button15)
+        Me.GroupBox8.Controls.Add(Me.TextBox5)
+        Me.GroupBox8.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox8.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox8.Location = New System.Drawing.Point(0, 367)
+        Me.GroupBox8.Name = "GroupBox8"
+        Me.GroupBox8.Size = New System.Drawing.Size(573, 171)
+        Me.GroupBox8.TabIndex = 10
+        Me.GroupBox8.TabStop = False
+        Me.GroupBox8.Text = "TCP透传"
+        '
+        'Button16
+        '
+        Me.Button16.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button16.Location = New System.Drawing.Point(443, 59)
+        Me.Button16.Name = "Button16"
+        Me.Button16.Size = New System.Drawing.Size(131, 29)
+        Me.Button16.TabIndex = 13
+        Me.Button16.Text = "查询网络状态"
+        Me.Button16.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Label4.Location = New System.Drawing.Point(3, 28)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(98, 140)
+        Me.Label4.TabIndex = 12
+        Me.Label4.Text = "TCP连接状态"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label3
+        '
+        Me.Label3.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Label3.Location = New System.Drawing.Point(103, 60)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(114, 26)
+        Me.Label3.TabIndex = 11
+        Me.Label3.Text = "下行接收:"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox6.Location = New System.Drawing.Point(103, 89)
+        Me.TextBox6.MaxLength = 256
+        Me.TextBox6.Multiline = True
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(467, 82)
+        Me.TextBox6.TabIndex = 4
+        '
+        'Button15
+        '
+        Me.Button15.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button15.Location = New System.Drawing.Point(473, 28)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(101, 29)
+        Me.Button15.TabIndex = 3
+        Me.Button15.Text = "上行发送"
+        Me.Button15.UseVisualStyleBackColor = True
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox5.Location = New System.Drawing.Point(103, 28)
+        Me.TextBox5.MaxLength = 256
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(364, 29)
+        Me.TextBox5.TabIndex = 2
+        '
+        'GroupBox6
+        '
+        Me.GroupBox6.Controls.Add(Me.ComboBox2)
+        Me.GroupBox6.Controls.Add(Me.Button11)
+        Me.GroupBox6.Controls.Add(Me.Button12)
+        Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.GroupBox6.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox6.Location = New System.Drawing.Point(0, 568)
+        Me.GroupBox6.Name = "GroupBox6"
+        Me.GroupBox6.Size = New System.Drawing.Size(573, 54)
+        Me.GroupBox6.TabIndex = 9
+        Me.GroupBox6.TabStop = False
+        Me.GroupBox6.Text = "IPC请求回复"
+        Me.GroupBox6.Visible = False
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Items.AddRange(New Object() {"B0", "B1", "B2"})
+        Me.ComboBox2.Location = New System.Drawing.Point(17, 25)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(181, 27)
+        Me.ComboBox2.TabIndex = 12
+        '
+        'Button11
+        '
+        Me.Button11.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button11.Location = New System.Drawing.Point(383, 23)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(181, 29)
+        Me.Button11.TabIndex = 11
+        Me.Button11.Tag = "0"
+        Me.Button11.Text = "成功"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Button12
+        '
+        Me.Button12.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button12.Location = New System.Drawing.Point(200, 23)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(181, 29)
+        Me.Button12.TabIndex = 10
+        Me.Button12.Tag = "1"
+        Me.Button12.Text = "失败"
+        Me.Button12.UseVisualStyleBackColor = True
+        '
+        'GroupBox7
+        '
+        Me.GroupBox7.Controls.Add(Me.Button14)
+        Me.GroupBox7.Controls.Add(Me.TextBox4)
+        Me.GroupBox7.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox7.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox7.Location = New System.Drawing.Point(0, 307)
+        Me.GroupBox7.Name = "GroupBox7"
+        Me.GroupBox7.Size = New System.Drawing.Size(573, 60)
+        Me.GroupBox7.TabIndex = 8
+        Me.GroupBox7.TabStop = False
+        Me.GroupBox7.Text = "TCP域名端口上报"
+        '
+        'Button14
+        '
+        Me.Button14.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button14.Location = New System.Drawing.Point(489, 26)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(75, 29)
+        Me.Button14.TabIndex = 3
+        Me.Button14.Text = "发送"
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox4.Location = New System.Drawing.Point(17, 26)
+        Me.TextBox4.MaxLength = 256
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(464, 29)
+        Me.TextBox4.TabIndex = 2
+        '
+        'GroupBox5
+        '
+        Me.GroupBox5.Controls.Add(Me.Button13)
+        Me.GroupBox5.Controls.Add(Me.TextBox3)
+        Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox5.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox5.Location = New System.Drawing.Point(0, 249)
+        Me.GroupBox5.Name = "GroupBox5"
+        Me.GroupBox5.Size = New System.Drawing.Size(573, 58)
+        Me.GroupBox5.TabIndex = 6
+        Me.GroupBox5.TabStop = False
+        Me.GroupBox5.Text = "查询 MCU 名称和 PID"
+        '
+        'Button13
+        '
+        Me.Button13.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button13.Location = New System.Drawing.Point(489, 26)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(75, 29)
+        Me.Button13.TabIndex = 3
+        Me.Button13.Text = "发送"
+        Me.Button13.UseVisualStyleBackColor = True
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox3.Location = New System.Drawing.Point(17, 26)
+        Me.TextBox3.MaxLength = 256
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(464, 29)
+        Me.TextBox3.TabIndex = 2
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.Button10)
+        Me.GroupBox4.Controls.Add(Me.TextBox2)
+        Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.GroupBox4.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox4.Location = New System.Drawing.Point(0, 622)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(573, 58)
+        Me.GroupBox4.TabIndex = 3
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "查询MCU名称和PID"
+        Me.GroupBox4.Visible = False
+        '
+        'Button10
+        '
+        Me.Button10.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button10.Location = New System.Drawing.Point(489, 26)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(75, 29)
+        Me.Button10.TabIndex = 3
+        Me.Button10.Text = "发送"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox2.Location = New System.Drawing.Point(17, 26)
+        Me.TextBox2.MaxLength = 256
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(464, 29)
+        Me.TextBox2.TabIndex = 2
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.ComboBox3)
+        Me.GroupBox3.Controls.Add(Me.ComboBox1)
+        Me.GroupBox3.Controls.Add(Me.Label6)
+        Me.GroupBox3.Controls.Add(Me.Label5)
+        Me.GroupBox3.Controls.Add(Me.Button8)
+        Me.GroupBox3.Controls.Add(Me.Button9)
+        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox3.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox3.Location = New System.Drawing.Point(0, 186)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(573, 63)
+        Me.GroupBox3.TabIndex = 2
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "播放语音"
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Location = New System.Drawing.Point(116, 26)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(87, 27)
+        Me.ComboBox3.TabIndex = 10
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(313, 26)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(87, 27)
+        Me.ComboBox1.TabIndex = 0
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(209, 29)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(110, 21)
+        Me.Label6.TabIndex = 12
+        Me.Label6.Text = "音频序号:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(12, 29)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(110, 21)
+        Me.Label5.TabIndex = 11
+        Me.Label5.Text = "播放次数:"
+        '
+        'Button8
+        '
+        Me.Button8.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button8.Location = New System.Drawing.Point(406, 25)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(104, 29)
+        Me.Button8.TabIndex = 9
+        Me.Button8.Tag = "1"
+        Me.Button8.Text = "播放语音"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        'Button9
+        '
+        Me.Button9.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button9.Location = New System.Drawing.Point(516, 25)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(51, 29)
+        Me.Button9.TabIndex = 8
+        Me.Button9.Tag = "0"
+        Me.Button9.Text = "停止播放"
+        Me.Button9.UseVisualStyleBackColor = True
+        Me.Button9.Visible = False
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.Button7)
+        Me.GroupBox2.Controls.Add(Me.Button6)
+        Me.GroupBox2.Controls.Add(Me.Button4)
+        Me.GroupBox2.Controls.Add(Me.Button5)
+        Me.GroupBox2.Controls.Add(Me.Button3)
+        Me.GroupBox2.Controls.Add(Me.Button2)
+        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox2.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox2.Location = New System.Drawing.Point(0, 90)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(573, 96)
+        Me.GroupBox2.TabIndex = 1
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "设置报警状态"
+        '
+        'Button7
+        '
+        Me.Button7.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button7.Location = New System.Drawing.Point(383, 62)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(181, 29)
+        Me.Button7.TabIndex = 7
+        Me.Button7.Tag = "6"
+        Me.Button7.Text = "动火离人事件结束"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Button6
+        '
+        Me.Button6.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button6.Location = New System.Drawing.Point(200, 62)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(181, 29)
+        Me.Button6.TabIndex = 6
+        Me.Button6.Tag = "5"
+        Me.Button6.Text = "动火离人事件产生"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button4.Location = New System.Drawing.Point(17, 62)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(181, 29)
+        Me.Button4.TabIndex = 5
+        Me.Button4.Tag = "2"
+        Me.Button4.Text = "燃气泄漏恢复正常"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button5.Location = New System.Drawing.Point(17, 27)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(181, 29)
+        Me.Button5.TabIndex = 4
+        Me.Button5.Tag = "1"
+        Me.Button5.Text = "燃气泄漏"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button3.Location = New System.Drawing.Point(383, 27)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(181, 29)
+        Me.Button3.TabIndex = 3
+        Me.Button3.Tag = "4"
+        Me.Button3.Text = "人员离开监控范围"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button2.Location = New System.Drawing.Point(200, 27)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(181, 29)
+        Me.Button2.TabIndex = 2
+        Me.Button2.Tag = "3"
+        Me.Button2.Text = "人员进入监控范围"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.TextBox9)
+        Me.GroupBox1.Controls.Add(Me.CheckBox2)
+        Me.GroupBox1.Controls.Add(Me.Button1)
+        Me.GroupBox1.Controls.Add(Me.TextBox1)
+        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox1.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(573, 90)
+        Me.GroupBox1.TabIndex = 0
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "设置 OSD 内容"
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Location = New System.Drawing.Point(234, 21)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(165, 31)
+        Me.TextBox9.TabIndex = 3
+        Me.TextBox9.Text = "500"
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Location = New System.Drawing.Point(19, 24)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(209, 25)
+        Me.CheckBox2.TabIndex = 2
+        Me.CheckBox2.Text = "定时发送间隔(ms)"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.Button1.Location = New System.Drawing.Point(489, 55)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 29)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "发送"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+        Me.TextBox1.Location = New System.Drawing.Point(17, 55)
+        Me.TextBox1.MaxLength = 128
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(464, 29)
+        Me.TextBox1.TabIndex = 0
+        '
+        'RichTextBox1
+        '
+        Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.RichTextBox1.Location = New System.Drawing.Point(0, 25)
+        Me.RichTextBox1.Name = "RichTextBox1"
+        Me.RichTextBox1.Size = New System.Drawing.Size(621, 763)
+        Me.RichTextBox1.TabIndex = 1
+        Me.RichTextBox1.Text = ""
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(621, 25)
+        Me.ToolStrip1.TabIndex = 0
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(60, 22)
+        Me.ToolStripButton1.Text = "清空数据"
+        '
+        'SerialPort1
+        '
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 1000
+        '
+        'Timer2
+        '
+        Me.Timer2.Interval = 1000
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1195, 788)
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Name = "Form1"
+        Me.Text = "Form1"
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.PerformLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        Me.SplitContainer2.Panel1.ResumeLayout(False)
+        Me.SplitContainer2.Panel1.PerformLayout()
+        Me.SplitContainer2.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer2.ResumeLayout(False)
+        Me.GroupBox8.ResumeLayout(False)
+        Me.GroupBox8.PerformLayout()
+        Me.GroupBox6.ResumeLayout(False)
+        Me.GroupBox7.ResumeLayout(False)
+        Me.GroupBox7.PerformLayout()
+        Me.GroupBox5.ResumeLayout(False)
+        Me.GroupBox5.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents SplitContainer1 As SplitContainer
+    Friend WithEvents SplitContainer2 As SplitContainer
+    Friend WithEvents Btn_OpenPort As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Cbo_Baud As ComboBox
+    Friend WithEvents Cbo_Port As ComboBox
+    Friend WithEvents RichTextBox1 As RichTextBox
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents SerialPort1 As IO.Ports.SerialPort
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Button10 As Button
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Button8 As Button
+    Friend WithEvents Button9 As Button
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents GroupBox5 As GroupBox
+    Friend WithEvents Button13 As Button
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents GroupBox7 As GroupBox
+    Friend WithEvents Button14 As Button
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents GroupBox8 As GroupBox
+    Friend WithEvents Button15 As Button
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents GroupBox6 As GroupBox
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Button16 As Button
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents Timer2 As Timer
+End Class

Form1.resx

@@ -0,0 +1,151 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <metadata name="SerialPort1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>241, 17</value>
+  </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>357, 17</value>
+  </metadata>
+  <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>449, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>59</value>
+  </metadata>
+</root>

Form1.vb

@@ -0,0 +1,590 @@
+Imports System.IO.Ports
+Imports System.Text
+Imports System.Threading
+Imports SharedFunction
+Public Class Form1
+
+#Region "窗体加载"
+
+    '富文本打印变量
+    Public G_RichTextPrint As RichTextPrint
+    Public G_CommunicationProtocol As CommunicationProtocol
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Text = $"{Application.ProductName}_V{Application.ProductVersion}"
+        G_RichTextPrint = New RichTextPrint(RichTextBox1)
+        G_CommunicationProtocol = New CommunicationProtocol(G_RichTextPrint, SerialPort1)
+        G_CommunicationProtocol.AddControlDic(&H18, Label4)
+        G_CommunicationProtocol.AddControlDic(&H19, TextBox6)
+
+        recvBufferli = New List(Of Byte)()
+    End Sub
+#End Region
+
+
+#Region "串口事务"
+
+    Public isread As Boolean = False  '串口关闭标志
+    Public isListen As Boolean = False '串口等待关闭标志
+    Private Sub Btn_OpenPort_Click(sender As Object, e As EventArgs) Handles Btn_OpenPort.Click
+        If Btn_OpenPort.Text = "关闭" Then
+            Btn_OpenPort.Text = "打开"
+            Btn_OpenPort.BackColor = Color.Transparent
+            Cbo_Port.Enabled = True
+            Cbo_Baud.Enabled = True
+            G_CommunicationProtocol.setIsFlowList(False)
+            G_CommunicationProtocol.ClearFlowNode(True)
+            SharedFunction.CloseSerial(SerialPort1, isread, isListen)
+
+
+
+        Else
+
+            Cbo_Port.Enabled = False
+            Cbo_Baud.Enabled = False
+            Btn_OpenPort.Text = "关闭"
+            Btn_OpenPort.BackColor = Color.OrangeRed
+            Dim vmbaud As Integer = 0
+            '判断端口号是否合法
+            If String.IsNullOrEmpty(Cbo_Port.Text) Then
+                MsgBox("请选择端口号！")
+                Btn_OpenPort_Click(Nothing, Nothing)
+                Return
+            End If
+            '判断波特率是否合法
+            If String.IsNullOrEmpty(Cbo_Baud.Text) OrElse Not Integer.TryParse(Cbo_Baud.Text, vmbaud) Then
+                MsgBox("请选择波特率！")
+                Btn_OpenPort_Click(Nothing, Nothing)
+                Return
+            End If
+
+            '打开串口
+            If SharedFunction.OpenSerial(SerialPort1, Cbo_Port.Text, vmbaud) Then
+            Else
+                MsgBox("串口打开失败！")
+                Btn_OpenPort_Click(Nothing, Nothing)
+                Return
+            End If
+
+        End If
+
+    End Sub
+
+    Private _recvBuffer(4095) As Byte
+    Public recvBufferli As List(Of Byte)
+    Public recvBufferliindex As Integer = 0
+    Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
+        If isread Then Return
+
+        isListen = True
+        Static bytes As Integer = 0
+        Dim sp As SerialPort = DirectCast(sender, SerialPort)
+
+        Try
+
+
+            Do
+                bytes = sp.BytesToRead
+                If bytes <= 0 Then Exit Sub
+
+
+                Dim buf(bytes - 1) As Byte
+                sp.Read(buf, 0, bytes)
+                recvBufferli.AddRange(buf)
+
+
+                Thread.Sleep(5)
+            Loop While sp.BytesToRead > 0
+            If recvBufferli.Count > 0 Then
+                Dim buf(recvBufferli.Count - 1) As Byte
+                Array.Copy(recvBufferli.ToArray, 0, buf, 0, buf.Length)
+                recvBufferli.Clear()
+
+                G_RichTextPrint.AddQueue(RichTextBox1, New RichTextNodeConfig($"RX:", Color.Green, New Font("宋体", 8), buf), 1)
+
+                G_CommunicationProtocol.ProcessRecvData(buf)
+
+
+            End If
+
+            isListen = False
+        Catch ex As Exception
+            isListen = False
+            'AppendTipText($"串口接收数据失败,原因:{ex.Message}", Color.Red)
+            G_RichTextPrint.AddQueue(RichTextBox1, New RichTextNodeConfig($"串口接收数据失败,原因:{ex.Message}", Color.Red), 1)
+            'RichTextPrint.OutputLogsToTheControl(m_Control, New RuningLogConfig($"串口接收数据失败,原因:{ex.Message}", Color.Red), 1)
+        End Try
+    End Sub
+
+    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
+        Timer1.Enabled = False
+        If Not IsNothing(G_RichTextPrint) Then
+            G_RichTextPrint.Close()
+        End If
+        If SerialPort1.IsOpen Then
+            SharedFunction.CloseSerial(SerialPort1, isread, isListen)
+        End If
+    End Sub
+
+    Private Sub Cbo_Port_DropDown(sender As Object, e As EventArgs) Handles Cbo_Port.DropDown
+        Cbo_Port.Items.Clear()
+        Cbo_Port.Items.AddRange(SerialPort.GetPortNames())
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+        Dim li As List(Of Byte) = New List(Of Byte)()
+        Dim OSDstr As String = TextBox1.Text
+        Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
+        If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
+            MsgBox("请输入正确的OSD内容！")
+            Return
+        End If
+        li.Add(OSDbuf.Length)
+        li.AddRange(OSDbuf)
+
+        OSDbuf = NT_CAM.PackData(&HA0, li.ToArray)
+        Dim gSendNode As New SendNode(1)
+
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.AddFlowNode("设置OSD内容", gSendNode)
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click
+
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+        '获取当前按钮
+        Dim btn As Button = DirectCast(sender, Button)
+        '获取当前按钮的+Tag值
+        Dim ntag As Integer = CInt(btn.Tag)
+        Dim OSDbuf As Byte() = {ntag}
+
+        G_CommunicationProtocol.ClearFlowNode()
+        OSDbuf = NT_CAM.PackData(&HA1, OSDbuf)
+        Dim gSendNode As New SendNode(1)
+        G_CommunicationProtocol.setIsFlowList(True)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.AddFlowNode("设置报警状态", gSendNode)
+    End Sub
+
+
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+
+        '获取当前按钮
+        Dim btn As Button = DirectCast(sender, Button)
+        '获取当前按钮的+Tag值
+        Dim ntag As Integer = CInt(btn.Tag)
+        Dim nComb, mComb As Integer
+        '获取下拉框数值
+        If Integer.TryParse(ComboBox1.Text.Trim, nComb) = False Then
+            MsgBox("请输入正确的音乐序号！")
+            Return
+        End If
+
+        If Integer.TryParse(ComboBox3.Text.Trim, mComb) = False Then
+            MsgBox("请输入正确的音乐序号！")
+            Return
+        End If
+
+
+        Dim OSDbuf As Byte() = {mComb, nComb, 0, 1} '{ntag, nComb}
+
+        G_CommunicationProtocol.ClearFlowNode()
+        OSDbuf = NT_CAM.PackData(&H21, OSDbuf)
+        Dim gSendNode As New SendNode(1)
+          G_CommunicationProtocol.setIsFlowList(True)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.AddFlowNode("播放语音", gSendNode)
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        '获取TextBox2文本
+        Dim OSDstr As String = TextBox2.Text
+        '将文本转HEX 数据
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+        G_CommunicationProtocol.ClearFlowNode()
+        OSDstr = SharedFunction.StringToHexString(OSDstr)
+        If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
+            MsgBox("请输入正确的透传数据！")
+            Return
+        End If
+        Dim OSDbuf As Byte() = SharedFunction.HexStringToByte(OSDstr)
+        OSDbuf = NT_CAM.PackData(&H17, OSDbuf)
+        Dim gSendNode As New SendNode(1)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.setIsFlowList(True)
+        G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
+        'Console.WriteLine(OSDstr)
+    End Sub
+
+
+    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress, TextBox5.KeyPress
+        e.Handled = Not $"0123456789ABCDEFabcdef{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
+    End Sub
+
+    Private Sub SplitContainer2_Panel2_Click(sender As Object, e As EventArgs) 
+        Dim btn As Button = DirectCast(sender, Button)
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+        '获取当前按钮的+Tag值
+        Dim nComb As Byte() = SharedFunction.HexStringToByte(ComboBox1.Text.Trim)
+        If IsNothing(nComb) OrElse nComb.Length = 0 Then
+            MsgBox("请输入正确的命令！")
+            Return
+        End If
+
+        Dim ntag As Integer = CInt(btn.Tag)
+        Dim OSDbuf As Byte() = {ntag}
+
+        G_CommunicationProtocol.ClearFlowNode()
+        OSDbuf = NT_CAM.PackData(nComb(0), OSDbuf)
+        Dim gSendNode As New SendNode(1)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.setIsFlowList(True)
+        G_CommunicationProtocol.AddFlowNode("IPC请求回复", gSendNode)
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        '清空富文本
+        RichTextBox1.Clear()
+    End Sub
+
+    Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown, ComboBox3.DropDown
+        '将sender 转换为ComboBox
+        Dim mcomboBox As ComboBox = DirectCast(sender, ComboBox)
+
+        mcomboBox.Items.Clear()
+        '添加1到255
+        For i As Integer = 1 To 255
+            mcomboBox.Items.Add(i)
+        Next
+    End Sub
+
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        Dim OSDstr As String = TextBox3.Text
+        Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
+        If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
+            MsgBox("请输入正确的产品ID！")
+            Return
+        End If
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+
+        OSDbuf = NT_CAM.PackData(&H9, OSDbuf)
+        Dim gSendNode As New SendNode(1)
+        G_CommunicationProtocol.setIsFlowList(True)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.AddFlowNode("设置产品ID", gSendNode)
+    End Sub
+
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
+        '获取TextBox2文本
+        Dim OSDstr As String = TextBox5.Text
+        '将文本转HEX 数据
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+        G_CommunicationProtocol.ClearFlowNode()
+        OSDstr = SharedFunction.StringToHexString(OSDstr)
+        If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
+            MsgBox("请输入正确的透传数据！")
+            Return
+        End If
+        Dim OSDbuf As Byte() = SharedFunction.HexStringToByte(OSDstr)
+        OSDbuf = NT_CAM.PackData(&H20, OSDbuf)
+        Dim gSendNode As New SendNode(1)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.setIsFlowList(True)
+        G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        Dim OSDstr As String = TextBox4.Text
+        Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
+        If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
+            MsgBox("请输入正确的产品ID！")
+            Return
+        End If
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+
+        OSDbuf = NT_CAM.PackData(&H17, OSDbuf)
+        Dim gSendNode As New SendNode(1)
+        G_CommunicationProtocol.setIsFlowList(True)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.AddFlowNode("设置产品ID", gSendNode)
+    End Sub
+
+    Private Sub TextBox7_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox7.KeyPress
+        e.Handled = Not $"0123456789{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
+    End Sub
+    Public SendingInterval As Integer = 0
+    Public SendingInterval1 As Integer = 0
+    Public SendingDate As String = ""
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        If CheckBox1.Checked Then
+            TextBox7.Enabled = False
+            TextBox8.Enabled = False
+            '获取TextBox7 代表的发生间隔
+            SendingInterval = 30
+
+            Integer.TryParse(TextBox7.Text, SendingInterval)
+            SendingDate = TextBox8.Text
+            If SendingInterval < 1 AndAlso String.IsNullOrEmpty(SendingDate) Then
+                MsgBox("请输入正确的发送间隔和发送内容！")
+                CheckBox1.Checked = False
+                Return
+            End If
+            '开启定时任务
+
+            Timer1.Enabled = True
+
+        Else
+            Timer1.Enabled = False
+            TextBox7.Enabled = True
+            TextBox8.Enabled = True
+        End If
+    End Sub
+    Public Timer1cnt As Integer = 0
+    Public Timer2cnt As Integer = 0
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        If Timer1cnt = SendingInterval Then
+            Timer1cnt = 1
+
+            Dim OSDstr As String = SendingDate
+            '将文本转HEX 数据
+            If G_CommunicationProtocol.getIsFlowList Then
+                MsgBox("正在通信中！")
+                Return
+            Else
+                G_CommunicationProtocol.ClearFlowNode()
+                G_CommunicationProtocol.setIsFlowList(True)
+            End If
+            G_CommunicationProtocol.ClearFlowNode()
+            OSDstr = SharedFunction.StringToHexString(OSDstr)
+            If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
+                MsgBox("请输入正确的透传数据！")
+                Return
+            End If
+            Dim OSDbuf As Byte() = SharedFunction.HexStringToByte(OSDstr)
+            OSDbuf = NT_CAM.PackData(&H20, OSDbuf)
+            Dim gSendNode As New SendNode(1, 1)
+            gSendNode.SetSendData(OSDbuf)
+            gSendNode.IsRecvData = False
+            G_CommunicationProtocol.setIsFlowList(True)
+            G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
+
+        Else
+            Timer1cnt += 1
+        End If
+
+
+
+    End Sub
+
+    Private Sub TextBox8_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox8.KeyPress
+        e.Handled = Not $"0123456789ABCDEFabcdef{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
+    End Sub
+
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
+        '获取TextBox2文本    ‘55 AA 01 0B 00 00 0B
+        'Dim OSDstr As String = TextBox5.Text
+        '将文本转HEX 数据
+        If G_CommunicationProtocol.getIsFlowList Then
+            MsgBox("正在通信中！")
+            Return
+        Else
+            G_CommunicationProtocol.ClearFlowNode()
+            G_CommunicationProtocol.setIsFlowList(True)
+        End If
+        G_CommunicationProtocol.ClearFlowNode()
+        'OSDstr = SharedFunction.StringToHexString(OSDstr)
+        'If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
+        '    MsgBox("请输入正确的透传数据！")
+        '    Return
+        'End If
+        Dim OSDbuf As Byte() '= SharedFunction.HexStringToByte(OSDstr)
+        OSDbuf = {&H55, &HAA, &H1, &HB, &H0, &H0, &HB}
+        Dim gSendNode As New SendNode(1)
+        gSendNode.SetSendData(OSDbuf)
+        G_CommunicationProtocol.setIsFlowList(True)
+        G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
+    End Sub
+
+    Private Sub TextBox9_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox9.KeyPress
+        e.Handled = Not $"0123456789ABCDEFabcdef{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
+    End Sub
+    Public OSDbufSN As Integer = 0
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+
+
+
+
+        If CheckBox2.Checked Then
+
+            '判断串口是否打开
+
+
+
+            TextBox9.Enabled = False
+
+            '获取TextBox7 代表的发生间隔
+            SendingInterval1 = 500
+
+            Integer.TryParse(TextBox9.Text, SendingInterval1)
+            'SendingDate = TextBox8.Text
+            If SendingInterval1 < 1 Then
+                MsgBox("请输入正确的发送间隔！")
+                CheckBox2.Checked = False
+                Return
+            End If
+            '开启定时任务
+            OSDbufSN = 1
+            Timer2.Interval = 10
+            SendingInterval1 = SendingInterval1 / 10
+
+            Timer2.Start()
+
+        Else
+            OSDbufSN = 1
+            'Timer2.Enabled = False
+            Timer2.Stop()
+            TextBox9.Enabled = True
+
+        End If
+    End Sub
+    Public cntSendingInterval1 As Integer = 0
+    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
+        ' If Timer2cnt = SendingInterval1 Then
+        ' Timer2cnt = 1
+        If cntSendingInterval1 < SendingInterval1 Then
+            cntSendingInterval1 = cntSendingInterval1 + 1
+        Else
+            If G_CommunicationProtocol.getIsFlowList1 Then
+                cntSendingInterval1 = SendingInterval1
+                Return
+                'MsgBox("正在通信中！")
+            Else
+                G_CommunicationProtocol.ClearFlowNode()
+                G_CommunicationProtocol.setIsFlowList(True)
+            End If
+            Dim li As List(Of Byte) = New List(Of Byte)()
+            Dim m_snsn As Integer = GetNewSNTimeDate(OSDbufSN)
+            Dim snbuf As String = GetSnString(m_snsn)
+            Dim OSDstr As String = $"R:{snbuf} B:{snbuf} D:{snbuf} TD:{snbuf} HD:{snbuf} S:{snbuf} HC:{snbuf} HR:{snbuf}"
+            Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
+
+
+
+            'If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
+            '    MsgBox("请输入正确的OSD内容！")
+            '    Return
+            'End If
+            li.Add(OSDbuf.Length)
+            li.AddRange(OSDbuf)
+
+            OSDbuf = NT_CAM.PackData(&HA0, li.ToArray)
+
+            OSDbuf(6) = 14
+            OSDbuf(21) = 11
+            OSDbuf(33) = 16
+            OSDbuf(OSDbuf.Length - 1) = 0
+            OSDbuf(OSDbuf.Length - 1) = SharedFunction.GetCheckSumMod2(OSDbuf)
+
+            Dim gSendNode As New SendNode(1)
+
+            gSendNode.SetSendData(OSDbuf, 800)
+            G_CommunicationProtocol.ClearFlowNode()
+            'G_CommunicationProtocol.setIsFlowList(True)
+            G_CommunicationProtocol.AddFlowNode("设置OSD内容", gSendNode)
+            Console.WriteLine("发送OSD内容")
+            'Else
+            '    Timer2cnt += 1
+            'End If
+            cntSendingInterval1 = 0
+        End If
+
+
+
+    End Sub
+
+
+
+
+    Public Function GetNewSNTimeDate(ByRef sn As Integer) As Integer
+        Dim result As Integer = 1
+        If sn > 9 Then
+            result = 1
+            sn = 1
+        Else
+            sn = sn + 1
+            result = sn
+        End If
+        Return result
+    End Function
+    Public Function GetSnString(sn As Integer) As String
+        '如果sn只有个位数则前面补0
+        Dim snbuf As String
+        '判断sn是否小于10 ,小于则前面补0
+        If sn < 10 Then
+            snbuf = $"0{sn}"
+        Else
+            snbuf = sn.ToString
+        End If
+        Return snbuf
+    End Function
+
+#End Region
+
+
+
+
+
+
+End Class

My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
+    ' or if you encounter build errors in this file, go to the Project Designer
+    ' (go to Project Properties or double-click the My Project node in
+    ' Solution Explorer), and make changes on the Application tab.
+    '
+    Partial Friend Class MyApplication
+
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.NT_CAM_Controller.Form1
+        End Sub
+    End Class
+End Namespace

My Project/Application.myapp

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>0</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' 有关程序集的一般信息由以下
+' 控制。更改这些特性值可修改
+' 与程序集关联的信息。
+
+'查看程序集特性的值
+
+<Assembly: AssemblyTitle("NT-CAM_Controller")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("NT-CAM_Controller")>
+<Assembly: AssemblyCopyright("Copyright ©  2025")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
+<Assembly: Guid("1a2f7c47-2b2d-4a3c-9c9f-95b35d1c187a")>
+
+' 程序集的版本信息由下列四个值组成: 
+'
+'      主版本
+'      次版本
+'      生成号
+'      修订号
+'
+'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
+'通过使用 "*"，如下所示:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.16")>
+<Assembly: AssemblyFileVersion("1.0.0.16")>

My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("NT_CAM_Controller.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.NT_CAM_Controller.My.MySettings
+            Get
+                Return Global.NT_CAM_Controller.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

NT-CAM_Controller.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.32602.291
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NT-CAM_Controller", "NT-CAM_Controller.vbproj", "{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {F130D632-CA65-40F5-A17A-B4F6AFE65DFA}
+	EndGlobalSection
+EndGlobal

NT-CAM_Controller.vbproj

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>NT_CAM_Controller.My.MyApplication</StartupObject>
+    <RootNamespace>NT_CAM_Controller</RootNamespace>
+    <AssemblyName>NT-CAM_Controller</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>NT-CAM_Controller.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>NT-CAM_Controller.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="CommunicationProtocol\CommunicationProtocol.vb" />
+    <Compile Include="CommunicationProtocol\NT_CAM.vb" />
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="RichTextPrint\RichTextPrint.vb" />
+    <Compile Include="SharedFunction\SharedFunction.vb" />
+    <Compile Include="Transmitter\Transmitter.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Form1.resx">
+      <DependentUpon>Form1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup />
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

RichTextPrint/RichTextPrint.vb

@@ -0,0 +1,175 @@
+Imports System.Threading
+
+Public Class RichTextPrint
+    '输出线程
+    Public OutputThread As Thread
+    '输出等级
+    Public Shared level As Integer = 1 '日志级别 0：不输出日志 1：输出日志2：输出基础日志和错误信息
+
+    '接收器
+    Public UpdateUIqueue As Queue(Of (Control, RichTextNodeConfig, lev As Integer))
+
+    '默认输出控件
+    Public G_DefaultControl As Control
+
+
+    Sub New(DefaultControl As Control)
+        G_DefaultControl = DefaultControl
+        '初始化线程
+        OutputThread = New Thread(AddressOf RunUpdateUI)
+        'OutputThread.IsBackground = True
+        OutputThread.Start()
+        UpdateUIqueue = New Queue(Of (Control, RichTextNodeConfig, lev As Integer))
+    End Sub
+    '关闭线程
+    Sub Close()
+        OutputThread.Abort()
+    End Sub
+
+    Public Sub AddQueue(c As Control, rl As RichTextNodeConfig, Optional lev As Integer = 0)
+        If IsNothing(UpdateUIqueue) OrElse IsNothing(c) OrElse IsNothing(rl) Then Return
+        UpdateUIqueue.Enqueue((c, rl, lev))
+    End Sub
+    Public Sub AddQueue(rl As RichTextNodeConfig, Optional lev As Integer = 0)
+        If IsNothing(UpdateUIqueue) OrElse IsNothing(G_DefaultControl) OrElse IsNothing(rl) Then Return
+        UpdateUIqueue.Enqueue((G_DefaultControl, rl, lev))
+    End Sub
+
+
+    Private Sub RunUpdateUI()
+        While True
+
+            If IsNothing(UpdateUIqueue) OrElse UpdateUIqueue.Count = 0 Then
+                Thread.Sleep(1)
+                Continue While
+            End If
+            If UpdateUIqueue.Count > 0 Then
+                Dim str As (Control, RichTextNodeConfig, Integer) = UpdateUIqueue.Dequeue()
+                OutputLogsToTheControl(str.Item1, str.Item2, str.Item3)
+            End If
+            Thread.Sleep(1)
+        End While
+    End Sub
+
+
+
+
+
+
+
+
+
+    Delegate Function Deleg_OutputLogsToTheControl(c As Control， config As RichTextNodeConfig, Controltype As Integer) As Boolean
+    '输出日志到控件
+    ''' <summary>
+    ''' ''输出日志到控件
+    ''' </summary>
+    ''' <param name="c">控件 </param>
+    ''' <param name="config">日志</param>
+    ''' <returns></returns>
+    Public Shared Function OutputLogsToTheControl(c As Control， config As RichTextNodeConfig, Controltype As Integer) As Boolean
+        Try
+            If c.InvokeRequired Then
+                Dim dev As New Deleg_OutputLogsToTheControl(AddressOf OutputLogsToTheControl)
+                c.Invoke(dev, New Object() {c, config, Controltype})
+            Else
+                If Controltype >= level Then
+                    Dim nc As RichTextBox = c
+                    '获取富文本字符串末端位置
+                    Dim index As Integer = nc.TextLength
+                    If (Not IsNothing(config.strdata)) AndAlso config.strdata.Length > 0 Then
+                        config.logstr = config.logstr & SharedFunction.ByteToHexString(config.strdata)
+                    End If
+
+                    Dim strtxt = config.logstr & vbCrLf
+                    '设置光标位置
+                    nc.SelectionStart = index
+                    '添加文本
+                    nc.AppendText(strtxt)
+                    '设置选择区域
+                    nc.Select(index, strtxt.Length)
+                    '设置选择区域颜色
+                    nc.SelectionColor = config.logstrColor
+                    '设置选择区域字体
+                    nc.SelectionFont = config.logstrFont
+                    '取消选中区域
+                    nc.DeselectAll()
+
+                End If
+
+
+            End If
+        Catch ex As Exception
+
+        End Try
+
+
+    End Function
+
+    '字符串附加时间戳
+    Public Shared Function AddTimeStamps(str As String) As String
+        Return Now.ToString("yyyy-MM-dd HH:mm:ss:fff") & " " & str
+    End Function
+
+
+
+End Class
+Public Class RichTextNodeConfig
+    '日志信息
+    Public logstr As String
+    '日志信息颜色
+    Public logstrColor As Color
+    '日志信息字体
+    Public logstrFont As Font
+    '日志信息字体大小
+    'Public logstrFontSize As Integer
+    ''日志信息字体粗细
+    'Public logstrFontBold As Boolean
+    ''日志信息字体斜体
+    'Public logstrFontItalic As Boolean
+    ''日志信息字体下划线
+    'Public logstrFontUnderline As Boolean
+    ''日志信息字体删除线
+    'Public logstrFontStrikeout As Boolean
+    ''日志信息字体对齐方式
+    'Public logstrFontAlign As StringAlignment
+    '日志信息字体背景色
+    Public logstrFontBackColor As Color
+    Public strdata As Byte()
+
+    ''' <summary>
+    ''' 文本、颜色、Font 
+    ''' </summary>
+    ''' <param name="args"></param>
+    Sub New(ParamArray args() As Object)
+        If args.Length > 0 Then
+            logstr = RichTextPrint.AddTimeStamps(args(0).ToString)
+
+            If args.Length > 1 Then
+
+                logstrColor = args(1)
+                If args.Length > 2 Then
+                    logstrFont = args(2)
+                Else
+                    logstrFont = New Font("宋体", 8)
+
+                End If
+
+                If args.Length > 3 Then
+                    strdata = args(3)
+                Else
+                    strdata = Nothing
+                End If
+
+            Else
+                logstrColor = Color.Black
+            End If
+        Else
+            logstr = "输空文本"
+            logstrColor = Color.Black
+            logstrFont = New Font("宋体", 12)
+        End If
+
+    End Sub
+
+End Class

SharedFunction/SharedFunction.vb

@@ -0,0 +1,200 @@
+Imports System.IO.Ports
+
+Public Class SharedFunction
+#Region "串口操作"
+    '打开串口
+    ''' <summary>
+    ''' 打开串口
+    ''' </summary>
+    ''' <param name="m_Serial">串口</param>
+    ''' <param name="portName">串口号</param>
+    ''' <param name="baudRate">波特率</param>
+    ''' <returns></returns>
+    Public Shared Function OpenSerial(m_Serial As SerialPort, portName As String, baudRate As Integer) As Boolean
+        If IsNothing(m_Serial) OrElse m_Serial.IsOpen Then Return False
+        Try
+            m_Serial.PortName = portName
+            m_Serial.BaudRate = baudRate
+            m_Serial.Parity = Parity.Even
+            m_Serial.Open()
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+
+
+    '设置串口波特率 
+    ''' <summary>
+    ''' 设置串口波特率
+    ''' </summary>
+    ''' <param name="m_Serial"> 串口 </param>
+    ''' <param name="baudRate">波特率</param>
+    ''' <returns></returns>
+    Public Shared Function SetSerialBaudRate(m_Serial As SerialPort, baudRate As Integer) As Boolean
+        If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then Return False
+        m_Serial.BaudRate = baudRate
+        Return True
+    End Function
+
+
+
+    ''' <summary>
+    ''' 关闭串口
+    ''' </summary>
+    ''' <param name="m_Serial">串口</param>
+    ''' <param name="isread">串口关闭标志</param>
+    ''' <param name="isListen">串口等待关闭标志</param>
+    Public Shared Sub CloseSerial(m_Serial As SerialPort, ByRef isread As Boolean, ByRef isListen As Boolean)
+        If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then Return
+        isread = True
+        While isListen
+            Application.DoEvents()
+            Threading.Thread.Sleep(10)
+        End While
+
+        Threading.Thread.Sleep(10)
+        m_Serial.Close()
+        isread = False
+    End Sub
+
+
+#End Region
+
+
+#Region "数据转换"
+    Public Shared Function ByteToHexString(databuff() As Byte) As String
+        Dim strData As String = String.Empty
+        For i = 0 To databuff.Length - 1
+            strData &= $" {Hex(databuff(i)).PadLeft(2, "0"c)}"
+        Next
+        Return strData
+    End Function
+    Public Shared Function StringToHexString(hexstr As String) As String
+        '判断字符串是否为空或  者为空字符串
+        If String.IsNullOrEmpty(hexstr) Then Return Nothing
+        '替换字符中的分隔符号
+        hexstr = hexstr.Trim().Replace(" ", "").Replace("-", "").Replace(",", "").Replace(":", "").Replace(";", "").Replace(".", "")
+        '判断字符串的长度是否为偶数
+        If hexstr.Length Mod 2 <> 0 Then
+            '不为偶数往最后一个字节前面补0
+            hexstr = hexstr.Insert(hexstr.Length - 1, "0")
+        End If
+        '以2为步长，将字符串转换为字节数组 不足2位前面补0
+        Dim databuff() As Byte = Enumerable.Range(0, hexstr.Length).Where(Function(x) x Mod 2 = 0).Select(Function(x) Convert.ToByte(hexstr.Substring(x, 2), 16)).ToArray()
+        Return ByteToHexString(databuff)
+    End Function
+    Public Shared Function HexStringToByte(hexstr As String) As Byte()
+        '判断字符串是否为空或  者为空字符串
+        If String.IsNullOrEmpty(hexstr) Then Return Nothing
+        '替换字符中的分隔符号
+        hexstr = hexstr.Trim().Replace(" ", "").Replace("-", "").Replace(",", "").Replace(":", "").Replace(";", "").Replace(".", "")
+        '判断字符串的长度是否为偶数
+        If hexstr.Length Mod 2 <> 0 Then
+            '不为偶数往最后一个字节前面补0
+            hexstr = hexstr.Insert(hexstr.Length - 1, "0")
+        End If
+        '以2为步长，将字符串转换为字节数组 不足2位前面补0
+        Return Enumerable.Range(0, hexstr.Length).Where(Function(x) x Mod 2 = 0).Select(Function(x) Convert.ToByte(hexstr.Substring(x, 2), 16)).ToArray()
+
+    End Function
+
+    ''' <summary>
+    ''' Int转2个字节Byte
+    ''' 高字节在前,低字节在后
+    ''' </summary>
+    ''' <param name="i"></param>
+    ''' <returns></returns>
+    Public Shared Function IntToByteHB(ByVal i As Integer) As Byte()
+        Dim btemp() As Byte = {0, 0}
+        Dim b() As Byte = BitConverter.GetBytes(i)
+        btemp(0) = b(0)
+        btemp(1) = b(1)
+        Return btemp
+    End Function
+
+    ''' <summary>
+    ''' Int转2个字节Byte
+    ''' 高字节在前,低字节在后
+    ''' </summary>
+    ''' <param name="i"></param>
+    ''' <returns></returns>
+    Public Shared Function IntToByteLB(ByVal i As Integer) As Byte()
+        Dim btemp() As Byte = {0, 0}
+        Dim b() As Byte = BitConverter.GetBytes(i)
+        btemp(0) = b(1)
+        btemp(1) = b(0)
+        Return btemp
+    End Function
+
+#End Region
+#Region "数据校验"
+    '计算数据和 校验
+    Public Shared Function GetCheckSum(ByVal data As Byte()) As Byte
+
+        Dim sum As Integer = 0
+        For i As Integer = 0 To data.Length - 1
+            sum += data(i)
+        Next
+        Return sum
+
+    End Function
+    Public Shared Function GetCheckSumMod(ByVal data As Byte()) As Byte
+
+        Dim sum As Integer = 0
+        For i As Integer = 0 To data.Length - 2
+            sum += data(i)
+        Next
+        sum = sum And &HFF
+        Return sum
+
+    End Function
+
+    Public Shared Function GetCheckSumMod2(ByVal data As Byte()) As Byte
+
+        Dim sum As Integer = 0
+        For i As Integer = 0 To data.Length - 1
+            sum += data(i)
+        Next
+        sum = sum And &HFF
+        Return sum
+
+    End Function
+
+    ''' <summary>
+    ''' 和校验取余数
+    ''' 求Byte数组的和校验取余数
+    ''' </summary>
+    ''' <param name="dataPacket">Byte数组</param>
+    ''' <returns></returns>
+    Public Function GetSumCheckMod(dataPacket As Byte()) As Byte
+        Dim sum As Integer
+        For idx = 0 To dataPacket.Length - 1
+            sum += dataPacket(idx)
+            sum = sum And &HFF
+        Next
+        Dim sumMod As Byte = &HFF - sum
+        Return sumMod
+    End Function
+#End Region
+
+#Region "跨线程调用UI"
+    Delegate Sub delSetFromUI(control As Control, mText As String, textcolor As Color, cbolor As Color)
+    Public Shared Sub SetFromUI(ByVal control As Control, mText As String, textcolor As Color, cbolor As Color)
+        If IsNothing（control) Then Return
+        If control.InvokeRequired Then
+            control.Invoke(New delSetFromUI(AddressOf SetFromUI), control, mText, textcolor, cbolor)
+        Else
+            control.Text = mText
+            control.ForeColor = textcolor
+            control.BackColor = cbolor
+        End If
+
+    End Sub
+#End Region
+
+
+
+End Class

Transmitter/Transmitter.vb

@@ -0,0 +1,29 @@
+Imports _485_BurningTool.CommunicationFlow
+
+Public MustInherit Class Transmitter
+    Public mCommunicationFlow As RichTextPrint
+
+    ' 发送数据方法
+    Public MustOverride Sub SendData(data As SendNode)
+    Public MustOverride Sub SendData(data As Byte())
+    '获取发送器接收数据
+    Public MustOverride Function ReceiveData(g_comfig As SendNode) As SendNode
+    '判断发送器实体化没有
+    Public MustOverride Function IsTransmitter() As Boolean
+    '打开发送器
+    Public MustOverride Function OpenTransmitter() As Boolean
+    '关闭发送器
+    Public MustOverride Sub CloseTransmitter()
+    '获取发送器状态  ' True:打开 False:关闭
+    Public MustOverride Function GetTransmitterStatus() As Boolean
+    '设置发送器参数
+    Public MustOverride Function SetTransmitterParameter(ParamArray params() As Object) As Boolean
+    '   清楚发送数据
+    Public MustOverride Sub ClearSendData()
+
+    '创建发送器对象
+    Public MustOverride Function CreateTransmitter() As Transmitter
+
+
+
+End Class

bin/Debug - 副本/NT-CAM_Controller.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

bin/Debug - 副本/NT-CAM_Controller.xml

@@ -0,0 +1,95 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+NT-CAM_Controller
+</name>
+</assembly>
+<members>
+<member name="T:NT_CAM_Controller.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
+ <summary>
+ 命令
+ </summary>
+ <param name="mCommandType"></param>
+</member>
+<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
+ <summary>
+ ''输出日志到控件
+ </summary>
+ <param name="c">控件 </param>
+ <param name="config">日志</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
+ <summary>
+ 文本、颜色、Font 
+ </summary>
+ <param name="args"></param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
+ <summary>
+ 打开串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="portName">串口号</param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
+ <summary>
+ 设置串口波特率
+ </summary>
+ <param name="m_Serial"> 串口 </param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
+ <summary>
+ 关闭串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="isread">串口关闭标志</param>
+ <param name="isListen">串口等待关闭标志</param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
+ <summary>
+ 和校验取余数
+ 求Byte数组的和校验取余数
+ </summary>
+ <param name="dataPacket">Byte数组</param>
+ <returns></returns>
+</member>
+</members>
+</doc>

bin/Debug/NT-CAM_Controller.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

bin/Debug/NT-CAM_Controller.xml

@@ -0,0 +1,95 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+NT-CAM_Controller
+</name>
+</assembly>
+<members>
+<member name="T:NT_CAM_Controller.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
+ <summary>
+ 命令
+ </summary>
+ <param name="mCommandType"></param>
+</member>
+<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
+ <summary>
+ ''输出日志到控件
+ </summary>
+ <param name="c">控件 </param>
+ <param name="config">日志</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
+ <summary>
+ 文本、颜色、Font 
+ </summary>
+ <param name="args"></param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
+ <summary>
+ 打开串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="portName">串口号</param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
+ <summary>
+ 设置串口波特率
+ </summary>
+ <param name="m_Serial"> 串口 </param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
+ <summary>
+ 关闭串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="isread">串口关闭标志</param>
+ <param name="isListen">串口等待关闭标志</param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
+ <summary>
+ 和校验取余数
+ 求Byte数组的和校验取余数
+ </summary>
+ <param name="dataPacket">Byte数组</param>
+ <returns></returns>
+</member>
+</members>
+</doc>

bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.xml

@@ -0,0 +1,95 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+NT-CAM_Controller
+</name>
+</assembly>
+<members>
+<member name="T:NT_CAM_Controller.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
+ <summary>
+ 命令
+ </summary>
+ <param name="mCommandType"></param>
+</member>
+<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
+ <summary>
+ ''输出日志到控件
+ </summary>
+ <param name="c">控件 </param>
+ <param name="config">日志</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
+ <summary>
+ 文本、颜色、Font 
+ </summary>
+ <param name="args"></param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
+ <summary>
+ 打开串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="portName">串口号</param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
+ <summary>
+ 设置串口波特率
+ </summary>
+ <param name="m_Serial"> 串口 </param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
+ <summary>
+ 关闭串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="isread">串口关闭标志</param>
+ <param name="isListen">串口等待关闭标志</param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
+ <summary>
+ 和校验取余数
+ 求Byte数组的和校验取余数
+ </summary>
+ <param name="dataPacket">Byte数组</param>
+ <returns></returns>
+</member>
+</members>
+</doc>

bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.xml

@@ -0,0 +1,95 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+NT-CAM_Controller
+</name>
+</assembly>
+<members>
+<member name="T:NT_CAM_Controller.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
+ <summary>
+ 命令
+ </summary>
+ <param name="mCommandType"></param>
+</member>
+<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
+ <summary>
+ ''输出日志到控件
+ </summary>
+ <param name="c">控件 </param>
+ <param name="config">日志</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
+ <summary>
+ 文本、颜色、Font 
+ </summary>
+ <param name="args"></param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
+ <summary>
+ 打开串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="portName">串口号</param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
+ <summary>
+ 设置串口波特率
+ </summary>
+ <param name="m_Serial"> 串口 </param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
+ <summary>
+ 关闭串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="isread">串口关闭标志</param>
+ <param name="isListen">串口等待关闭标志</param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
+ <summary>
+ 和校验取余数
+ 求Byte数组的和校验取余数
+ </summary>
+ <param name="dataPacket">Byte数组</param>
+ <returns></returns>
+</member>
+</members>
+</doc>

obj/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

obj/Debug/NT-CAM_Controller.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+37fafdf6f75687b99c10dcae8fddbb80c938fc39

obj/Debug/NT-CAM_Controller.vbproj.FileListAbsolute.txt

@@ -0,0 +1,12 @@
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.vbproj.AssemblyReference.cache
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT_CAM_Controller.Form1.resources
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT_CAM_Controller.Resources.resources
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.vbproj.GenerateResource.cache
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.vbproj.CoreCompileInputs.cache
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.exe.config
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.exe
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.pdb
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.xml
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.exe
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.xml
+E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.pdb

obj/Debug/NT-CAM_Controller.xml

@@ -0,0 +1,95 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+NT-CAM_Controller
+</name>
+</assembly>
+<members>
+<member name="T:NT_CAM_Controller.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
+ <summary>
+ 命令
+ </summary>
+ <param name="mCommandType"></param>
+</member>
+<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
+ <summary>
+ ''输出日志到控件
+ </summary>
+ <param name="c">控件 </param>
+ <param name="config">日志</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
+ <summary>
+ 文本、颜色、Font 
+ </summary>
+ <param name="args"></param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
+ <summary>
+ 打开串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="portName">串口号</param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
+ <summary>
+ 设置串口波特率
+ </summary>
+ <param name="m_Serial"> 串口 </param>
+ <param name="baudRate">波特率</param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
+ <summary>
+ 关闭串口
+ </summary>
+ <param name="m_Serial">串口</param>
+ <param name="isread">串口关闭标志</param>
+ <param name="isListen">串口等待关闭标志</param>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
+ <summary>
+ Int转2个字节Byte
+ 高字节在前,低字节在后
+ </summary>
+ <param name="i"></param>
+ <returns></returns>
+</member>
+<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
+ <summary>
+ 和校验取余数
+ 求Byte数组的和校验取余数
+ </summary>
+ <param name="dataPacket">Byte数组</param>
+ <returns></returns>
+</member>
+</members>
+</doc>