Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button.Click
        If comport.IsOpen = True Then
            ''внешнее устройство должно передать тепловычислителю стартовую последовательность не менее чем из шестнадцати байтов 0хFF

            Dim msg1 As [Byte]() = {&HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF, &HFF}
           ''запись массива в выходной буфер com-порта
            comport.Write(msg1, 1, msg1.Count - 1)
           ''Временные соотношения при обмене с тепловычислителем
            Sleep(4)

            ''Заголовок кадра содержит:
            ''&H10 - 0х10 – управляющий код начала кадра;
            ''&HFF - NT – сетевой номер тепловычислителя, которому адресован запрос / от которого исходит ответ, Значение 255 (0xFF)соответствует безадресному
            ''обращению к тепловычислителю
            ''&H3F - КЗ – код запроса.
            ''&H0, &H0, &H0, &H0, .... - Длина блока данных переменна и оределяется типом обрабатываемого запроса. Максимальная
            ''длина блока данных составляет 64 байта
            ''Завершающая секция кадра содержит:
            ''&H...- КС – контрольная сумма;
            ''&H16 - 0х16 – управляющий код конца кадра.

            ''Запрос сеанса обмена и модели прибора
            Dim msg_in As [Byte]() = {&HFF, &H3F, &H0, &H0, &H0, &H0}
            Dim msg_out As [Byte]()
            Sleep(1500)
            MyZapros(msg_in, msg_out)
            comport.Write(msg_out, 0, msg_out.Count - 1)
            Sleep(2200)
		Dim in_buff() As Byte
            Read_Buff(in_buff)

            'Запрос выбора скорости обмена
            msg_in = {&HFF, &H42, &H2, 0, 0, 0}
            MyZapros(msg_in, msg_out)
            Sleep(2200)
		Read_Buff(in_buff)

            ''Запрос суточного архива за 26-12-2013
            msg_in = {&HFF, &H59, 113, 12, 26, 0}
            MyZapros(msg_in, msg_out)
            comport.Write(msg_out, 0, msg_out.Count - 1)
            Sleep(2200)
		Read_Buff(in_buff)

            ''Запрос тотальные параметры Q ОЗУ (0x0538)
            msg_in = {&HFF, &H52, &H38, &H5, 4, 0}
            MyZapros(msg_in, msg_out)
            comport.Write(msg_out, 0, msg_out.Count - 1)
            Sleep(2200)
		Read_Buff(in_buff)

            ''Запрос тотальные параметры Q Flash (0x427A)
            msg_in = {&HFF, &H45, &H7A, &H42, 1, 0}
            MyZapros(msg_in, msg_out)
            comport.Write(msg_out, 0, msg_out.Count - 1)
		Sleep(2200)
		Read_Buff(in_buff)

		''........ и т.д.
        End If
    End Sub

''Процедура формирования запроса
Private Sub MyZapros(ByVal in_mass() As Byte, ByRef out_mass() As Byte)
        Dim zap() As Byte
       
        Dim pr As String = ","
        Dim ks As Integer = Nothing
        Dim m As Integer = 0

       ''арифметическое суммирование байт массива
        For Each st As Byte In in_mass
            ks += st
        Next
        '' инвертируем побитно 
        Dim dv_norma As String = Convert.ToString(ks, 2) ''   DecToBin(ks)
        Dim dv_invert As String
        For n = 1 To dv_norma.Length
            pr = Mid(dv_norma, n, 1)
            If pr = "1" Then
                pr = "0"
            ElseIf pr = "0" Then
                pr = "1"
            End If
            dv_invert += pr
        Next
        
       '' выделим младший байт 
        pr = dv_invert.Trim
        If pr.Length > 8 Then
            pr = Mid(pr, pr.Length - 7, 8)
        End If
        
        '' получаем десятичное представление контрольной суммы
        zap = Nothing
        ReDim zap(pr.Length - 1)
        For n = 0 To zap.Count - 1
            zap(n) = Int(Mid(pr, n + 1, 1)) * (2 ^ (zap.Count - (n + 1)))
            m += zap(n)
        Next
        ks = m

        '' формируем выходной массив
        ReDim out_mass(in_mass.Length + 3)
        out_mass(0) = &H10
        For n = 0 To in_mass.Count - 1
            m = n + 1
            out_mass(m) = in_mass(n)
        Next
        out_mass(m + 1) = ks
        out_mass(m + 2) = &H16
    End Sub

'' процедура чтения буфера
Dim fl_read As Boolean ''флаг остановки цикла Do...Loop

    Private Sub Read_Buff(ByRef in_buff() As Byte)
        in_buff = Nothing
        Dim ind As Integer = 0
        Do
            My.Application.DoEvents()
            If fl_read = False Then Exit Sub
            If comport.IsOpen = True Then
                If comport.BytesToRead <> 0 Then
                    buf = comport.ReadByte
                   If InStr(buf, ("+++")) Then MsgBox("Потеря несущей"):Exit Sub
                    ReDim Preserve in_buff(ind)
                    in_buff(ind) = buf
                    If comport.BytesToRead = 0 Then
                        Exit Do
                    Else
                        ind += 1
                    End If
                End If
            End If
        Loop
    End Sub

'' процедура разбора полученного массива суточного архива
Private Sub Razbor_Arch_Syt(ByVal out_mas_in() As Byte, ByRef grid_mass() As Decimal)
        Dim out_mas_byt() As Byte
        Dim m As Integer
        For n = 3 To out_mas_in.Count - 3
            m = n - 3
            ReDim Preserve out_mas_byt(m)
            out_mas_byt(m) = CByte(out_mas_in(n))
        Next
        ReDim Preserve out_mas_byt(44)
        Dim NS_f() As Byte = {out_mas_byt(0), out_mas_byt(1), out_mas_byt(2)}
        Dim SP As Byte = out_mas_byt(3)
        Dim t1_f() As Byte = {out_mas_byt(4), out_mas_byt(5), out_mas_byt(6), out_mas_byt(7)}
        Dim t2_f() As Byte = {out_mas_byt(8), out_mas_byt(9), out_mas_byt(10), out_mas_byt(11)}
        Dim V1_f() As Byte = {out_mas_byt(12), out_mas_byt(13), out_mas_byt(14), out_mas_byt(15)}
        Dim V2_f() As Byte = {out_mas_byt(16), out_mas_byt(17), out_mas_byt(18), out_mas_byt(19)}
        Dim V3_f() As Byte = {out_mas_byt(20), out_mas_byt(21), out_mas_byt(22), out_mas_byt(23)}
        Dim M1_f() As Byte = {out_mas_byt(24), out_mas_byt(25), out_mas_byt(26), out_mas_byt(27)}
        Dim M2_f() As Byte = {out_mas_byt(28), out_mas_byt(29), out_mas_byt(30), out_mas_byt(31)}
        Dim M3_f() As Byte = {out_mas_byt(32), out_mas_byt(33), out_mas_byt(34), out_mas_byt(35)}
        Dim Q_f() As Byte = {out_mas_byt(36), out_mas_byt(37), out_mas_byt(38), out_mas_byt(39)}
        Dim TN_f() As Byte = {out_mas_byt(40), out_mas_byt(41), out_mas_byt(42), out_mas_byt(43)}

        Dim t1 As Decimal
        Float(t1_f, t1)
        Dim t2 As Decimal
        Float(t2_f, t2)
        Dim V1 As Decimal
        Float(V1_f, V1)
        Dim V2 As Decimal
        Float(V2_f, V2)
        Dim V3 As Decimal
        Float(V3_f, V3)
        Dim M1 As Decimal
        Float(M1_f, M1)
        Dim M2 As Decimal
        Float(M2_f, M2)
        Dim M3 As Decimal
        Float(M3_f, M3)
        Dim Q As Decimal
        Float(Q_f, Q)
        Dim TN As Decimal
        Float(TN_f, TN)
        grid_mass = {SP, t1, t2, V1, V2, V3, M1, M2, M3, Q, TN}
    End Sub

''Процедура вычисления float
Private Sub Float(ByVal f_mass() As Byte, ByRef out_param As Decimal)

        Dim e As Integer = f_mass(3)
        Dim f0 As String = Convert.ToString(f_mass(2), 2) ''DecToBin(f_mass(2))
        Dim f1 As String = Convert.ToString(f_mass(1), 2) ''DecToBin(f_mass(1))
        Dim f2 As String = Convert.ToString(f_mass(0), 2) ''DecToBin(f_mass(0))
        Dim bit() As Integer
        Dim ii As Decimal
        Dim i As Integer
        Dim n As Integer
        For n = 1 To f0.Length
            i = n - 1
            ReDim Preserve bit(i)
            bit(i) = Int(Mid(f0, n, 1))
        Next
        ii = Nothing
        n = 0
        For Each b As Integer In bit
            If b <> 0 Then ii += 2 ^ (-n)
            n += 1
        Next
        out_param = ((-1) ^ 0) * (2 ^ 0 + ii) * 2 ^ (e - 127)
    End Sub

''Функция преобразования... аналог Convert.ToString(mass(n), 2) 
Public Function DecToBin(ByVal DeciValue As Long, Optional ByVal NoOfBits As Integer = 8) As String
        Dim i As Integer
        Do While DeciValue > (2 ^ NoOfBits) - 1
            NoOfBits = NoOfBits + 8
        Loop
        DecToBin = vbNullString
        For i = 0 To (NoOfBits - 1)
            DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
        Next i
    End Function