Private Sub ReadTC()
        Using qp As IO.StreamReader = New IO.StreamReader( _
          Application.StartupPath & "\" & "comport.ini")
            comport = qp.ReadLine
        End Using
        Dim SerialPort1 As New IO.Ports.SerialPort(comport)
        Dim bsp() As Byte = {&H61, &HC, &H1, &H6E}
        Dim buffer As New List(Of Byte)
        SerialPort1.Open()
        With SerialPort1
            .BaudRate = 38400
            .ReadTimeout = 5000
            .Parity = Ports.Parity.Odd
            .DataBits = 8
            .StopBits = Ports.StopBits.One
            .DtrEnable = True
            .RtsEnable = True
        End With
        SerialPort1.BaseStream.Write(bsp, 0, bsp.Length)
        Do
            buffer.Add(SerialPort1.ReadByte)
        Loop Until SerialPort1.BytesToRead = 0
        MessageBox.Show(buffer(3))
        TC = (Decimal2Hex(buffer(5)).ToString & ":" & Decimal2Hex(buffer( _
          4)).ToString & ":" & Decimal2Hex(buffer(3)).ToString & ":" & _
          Decimal2Hex(buffer(2)).ToString)
        'MessageBox.Show("TC:  " & Decimal2Hex(buffer(5)).ToString & ":" & 
        ' Decimal2Hex(buffer(4)).ToString & ":" & Decimal2Hex(buffer( 
        ' 3)).ToString & ":" & Decimal2Hex(buffer(2)).ToString)
        SerialPort1.Close()
 
    End Sub
 
 
    Public Function Decimal2Hex(ByVal Dec As Integer) As String
        Return Dec.ToString("X")
    End Function