vb.net 体重秤 tcpip 未获取数据

Question

我是 vb.net 2008 的新手，使用 tcpclient() 从称重秤获取数据。下面提到的代码能够与机器连接但无法获取数据。但是超级终端可以获取数据。

我搜索了大部分帖子，但可能只存在用于串行端口连接的编码。

输出消息框： 收到：{0}

Imports System.Net.Sockets
Public Sub Connect(ByVal server As [String], ByVal _Ports As Int32, ByVal message As [String])
        Try
            ' Create a TcpClient. 
            ' Note, for this client to work you need to have a TcpServer  
            ' connected to the same address as specified by the server, port 
            ' combination. 
            Dim port As Int32 = _Ports
            Dim client As New TcpClient()
            'Dim client As New TcpClient(server, port)
            client.Connect(server, port)
            If client.Client.Connected Then TextBox3.Text = "Connected"

            ' Translate the passed message into ASCII and store it as a Byte array. 
            Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)

            ' Get a client stream for reading and writing. 
            '  Stream stream = client.GetStream(); 
            Dim stream As NetworkStream = client.GetStream()
            Dim Buffer(client.ReceiveBufferSize) As Byte

            ' Send the message to the connected TcpServer. 
            stream.Write(data, 0, data.Length)

            'Console.WriteLine("Sent: {0}", message)
            MsgBox("Sent: {0} " & message)
            ' Receive the TcpServer.response. 
            ' Buffer to store the response bytes.
            data = New [Byte](2047) {}

            'MsgBox("Response Byte - " & data.Length)

            ' String to store the response ASCII representation. 
            Dim responseData As [String] = [String].Empty

            ' Read the first batch of the TcpServer response bytes. 
            Dim bytes As Int32 = stream.Read(data, 0, data.Length)
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
            'Console.WriteLine("Received: {0}", responseData)
            MsgBox("Received: {0} " & responseData)

            ' Close everything.
            stream.Close()
            client.Close()
        Catch e As ArgumentNullException
            'Console.WriteLine("ArgumentNullException: {0}", e)
            MsgBox("ArgumentNullException: {0}" & e.Message)
        Catch e As SocketException
            'Console.WriteLine("SocketException: {0}", e)
            MsgBox("SocketException: {0}" & e.Message)
        End Try

        MsgBox("Got to this point in code")

        'Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
        'Console.Read()
    End Sub

Answer 1

这个：

MsgBox("Received: {0} " & responseData)

...不会自动将{0} 替换为responseData 的值。

{0} 占位符与String.Format() 函数一起使用。在所有适用的地方将您的代码更改为此，并检查结果：

' Let's also get rid of the legacy VB6 MsgBox() function:
MessageBox.Show(String.Format("Received: {0} ", responseData))

另外，某些数据类型（即 [String]）周围的方括号是什么？它们不是必需的。