Desktop_NTCAM_Controller/Form1.vb

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