Программа для связи с устройством через СОМ порт.Фиаско(

Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel
 
Public Class Form1
 
    Dim myPort As Array
    Dim A As UInteger
    Dim DataGridViewTextBoxCell1 = New DataGridViewTextBoxCell()
    Delegate Sub SetTextCallBack(ByVal Text As String)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        SerialPort1 = New SerialPort()
        myPort = SerialPort.GetPortNames()
        PortBox.Items.AddRange(myPort)
        DisconnBtn.Enabled = False
        Read_writeBtn.Enabled = False
        DataGridView1.RowCount = 100
 
    End Sub
 
    Private Sub Connect_Click(sender As Object, e As EventArgs) Handles ConnectBtn.Click
 
        ' Dim SerialCond As Boolean
 
        If PortBox.Text = Nothing Then
            MsgBox("Выберите COM порт", vbExclamation)
            GoTo Back
        End If
 
        SerialPort1.Encoding = System.Text.Encoding.GetEncoding("Windows-1251")
        SerialPort1.PortName = PortBox.Text
        SerialPort1.BaudRate = 38400
        SerialPort1.DataBits = 8
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.ReadBufferSize = 24
        SerialPort1.WriteBufferSize = 24
        SerialPort1.DiscardNull = False
 
        Try
            SerialPort1.Open()
 
        Catch ex As Exception
 
            MsgBox("COM порт занят", vbCritical)
            GoTo Back
 
        End Try
 
        ConnectBtn.Enabled = False
        DisconnBtn.Enabled = True
        Rescan.Enabled = False
        PortBox.Enabled = False
        Read_writeBtn.Enabled = True
 
        Dim TestArr() As Byte = {&H1, &HFF, &H0, &H80, &H0, &HFF, &HFF, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &HFF}
 
        RichTextBox1.Text = 0
        SerialPort1.DiscardOutBuffer()
        SerialPort1.DiscardInBuffer()
        SerialPort1.Write(TestArr, 0, 24)
        Timer1.Start()
 
Back: End Sub
 
    Private Sub DisconnBtn_Click(sender As Object, e As EventArgs) Handles DisconnBtn.Click
 
        SerialPort1.Close()
 
        ConnectBtn.Enabled = True
        DisconnBtn.Enabled = False
        Rescan.Enabled = True
        PortBox.Enabled = True
        Read_writeBtn.Enabled = False
 
    End Sub
 
    Private Sub Rescan_Click(sender As Object, e As EventArgs) Handles Rescan.Click
 
        PortBox.Items.Clear()
        myPort = SerialPort.GetPortNames()
        PortBox.Items.AddRange(myPort)
 
    End Sub
 
    Private Sub SerialPort1_DataReceived_1(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        Dim Buf(23) As Char
        Dim Bufcount As Byte = SerialPort1.BytesToRead
        Static j As Byte
        Dim Rcvarray(23, 100)
        Timer1.Stop()
 
        If Bufcount = 16 Then
 
            SerialPort1.Read(Buf, 0, Bufcount)
 
            If (Buf(15) <> Chr(&HFF)) Or
            (Buf(0) <> Chr(1)) Or
            (Buf(1) <> Chr(&HFF)) Then
 
                MsgBox("Ошибка приема данных", vbCritical)
                j = 0
                A = 0
                GoTo Back1
 
            ElseIf (Buf(2) = Chr(&HEE)) Then
 
                MsgBox("Ошибка отправки данных", vbCritical)
                j = 0
                A = 0
                GoTo Back1
 
            End If
 
            Servarray(Buf)
 
        ElseIf Bufcount = 24 Then
 
            SerialPort1.Read(Buf, 0, Bufcount)
 
            If (Buf(23) <> Chr(&HFF)) Or
            (Buf(0) <> Chr(1)) Or
            (Buf(1) <> Chr(&HFF)) Then
 
                MsgBox("Ошибка приема данных", vbCritical)
                GoTo Back1
 
            ElseIf (Buf(2) = Chr(&HEE)) Then
 
                MsgBox("Ошибка отправки данных")
                GoTo Back1
 
            End If
 
            For i = 0 To 23
                Rcvarray(i, j) = Buf(i)
            Next i
 
            j = j + 1
            If j >= 100 Then
                j = 0
            End If
 
            Read_write_Click(sender, e)
 
        End If
 
 
Back1: End Sub
 
    Private Sub Read_write_Click(sender As Object, e As EventArgs) Handles Read_writeBtn.Click
 
        Dim Opcode As Byte
 
        Dim Sendarray(18, A) As Byte
        Dim Sendstring(23) As Byte
        Opcode = &H0
        Sendarray(0, 0) = 1
        Sendarray(0, A) = 1
 
        If Sendarray(0, 0) = 0 Then
 
            MsgBox("Выберите хотя бы одну строку!", vbInformation)
            GoTo Back2
 
        ElseIf Sendarray(0, A) = 0 Then
 
            A = 0
            MsgBox("Передача завершена!", vbExclamation)
            GoTo Back2
 
        End If
 
        If WriteCheckBox.Checked = True Then
            Opcode = &H55
        End If
 
 
        Dim i = 7
        Dim j = 2
        Do Until i = 22
 
            Sendstring(i) = Sendarray(j, A)
            i = i + 1
            j = j + 1
        Loop
 
 
 
 
        Sendstring(0) = &H1
        Sendstring(1) = &HFF
        Sendstring(2) = Opcode
        Sendstring(3) = Sendarray(1, A)
        Sendstring(4) = Sendarray(2, A)
        Sendstring(5) = &HFF
        Sendstring(6) = &HFF
        Sendstring(23) = &HFF
        A = A + 1
 
        SerialPort1.DiscardOutBuffer()
        SerialPort1.DiscardInBuffer()
        SerialPort1.Write(Sendstring, 0, 24)
 
        Timer1.Start()
 
Back2: End Sub
 
    Private Sub Servarray(ByVal Text As String)
 
        Dim str As String = Text
        Dim InputbyteArray() As Byte
        Dim Bytecount As Integer = str.Length
        Dim hexNumbers As Text.StringBuilder = New Text.StringBuilder
 
        InputbyteArray = System.Text.Encoding.Default.GetBytes(str)
        For i As Integer = 0 To 15
            hexNumbers.Append(InputbyteArray(i).ToString("x2") & " ")
        Next
 
        If RichTextBox1.InvokeRequired Then
            Dim x As New SetTextCallBack(AddressOf Servarray)
            Invoke(x, New Object() {(Text)})
        Else
 
            RichTextBox1.Text = (hexNumbers.ToString)
            MsgBox("Соединение установлено", vbInformation)
        End If
 
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        Timer1.Stop()
        MsgBox("Проверьте соединение и повторите попытку!", vbExclamation)
        DisconnBtn_Click(sender, e)
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Openfile.Click
 
        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.ShowDialog()
    End Sub
 
    Public Sub Database_DataGridView1()
 
 
 
    End Sub
 
 
 
End Class

Private Sub SerialPort1_DataReceived_1(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        
        Dim Buf(23) As Byte
        Dim Bytes As UInteger = SerialPort1.BytesToRead
 
'В этом месте иногда возникает ошибка сразу после записи массива байт в порт SerialPort1.Write(Sendstring, 0, 24)
        SerialPort1.Read(Buf, 0, 24)
 
 
 
        If Bytes = 16 Then
 
           
            Dim Str As String = System.Text.Encoding.GetEncoding("Windows-1251").GetString(Buf, 0, Bytes)
 
            Servarray(Str)
 
 
        ElseIf Bytes = 24 Then
 
' В основном задействована эта часть условия
 
            If (Buf(23) <> &HFF) Or
            (Buf(0) <> 1) Or
            (Buf(1) <> &HFF) Then
 
                MsgBox("Ошибка приема данных", vbCritical)
                Read_writeBtn.Enabled = True
                CheckBox1.Enabled = True
                WriteCheckBox.Enabled = True
                A = 0
                j1 = 0
                GoTo Back1
 
            ElseIf (Buf(2) = &HEE) Then
 
                MsgBox("Ошибка отправки данных")
                Read_writeBtn.Enabled = True
                CheckBox1.Enabled = True
                WriteCheckBox.Enabled = True
                A = 0
                j1 = 0
                GoTo Back1
 
            End If
 
            For i = 0 To 23
                Rcvarray(i, j1) = Buf(i)
            Next i
 
            j1 = j1 + 1
 
            If j1 >= 100 Then
                j1 = 0
            End If
 
'Переход к процедуре отправки
 
            Read_write_Click(sender, e)
 
        End If
 
 
Back1: End Sub
 
    Private Sub Read_write_Click(sender As Object, e As EventArgs) Handles Read_writeBtn.Click
 
        Dim Opcode As Byte
        Dim Sendstring(23) As Byte
 
 
        If Sendarray(0, 0) = 0 Then
            Timer1.Stop()
 
            MsgBox("Выберите хотя бы одну строку!", vbInformation)
            GoTo Back2
 
        ElseIf A = 100 Then
 
            MsgBox("Передача завершена!", vbExclamation)
            ProgressBar1_Change(A)
 
            Dim i2 = 4
            Dim k2 = 7
            For A = 0 To 99
                Do Until i2 = 20
                    Sendarray(i2, A) = Rcvarray(k2, A)
                    i2 = i2 + 1
                    k2 = k2 + 1
                Loop
                i2 = 4
                k2 = 7
            Next A
            A = 0
            j1 = 0
 
            WriteCheckBox.Checked = vbFalse
 
            GoTo Back2
 
        End If
 
        Opcode = &H0
 
        If WriteCheckBox.Checked = True Then
            Opcode = &H55
        End If
 
        ' Read_writeBtn.Enabled = False
        CheckBox1.Enabled = False
        WriteCheckBox.Enabled = False
 
        Dim i = 7
        Dim j = 4
        Do Until i = 23
 
            Sendstring(i) = Sendarray(j, A)
            i = i + 1
            j = j + 1
        Loop
 
        Sendstring(0) = &H1
        Sendstring(1) = &HFF
        Sendstring(2) = Opcode
        Sendstring(3) = Sendarray(2, A)
        Sendstring(4) = Sendarray(3, A)
        Sendstring(5) = &HFF
        Sendstring(6) = &HFF
        Sendstring(23) = &HFF
        ProgressBar1_Change(A)
 
        If A = 99 Then
 
        End If
 
 
 
        SerialPort1.DiscardOutBuffer()
        SerialPort1.DiscardInBuffer()
        SerialPort1.ReceivedBytesThreshold = 16
        'Thread.Sleep(80)
        Timer1.Start()
        SerialPort1.Write(Sendstring, 0, 24)
        A = A + 1
        'Thread.Sleep(100)
 
 
Back2: End Sub