如何使用以太网连接从秤上读取重量 [英] How to read weight from scale using ethernet connection

问题描述

我有一个Mettler Toledo XS32000L秤，我只是想通过以太网连接和VB.net（2010）应用程序读取重量。我发现了大量用于串行（COM）连接的信息/代码，但是对于以太网连接却没有。

I have a Mettler Toledo XS32000L scale and I am simply trying to read the weight via an Ethernet connection and a VB.net (2010) application. I have found plenty of information/code for a serial(COM) connection but nothing for an Ethernet connection.

通信模式：客户端&服务器
远程主机地址：192.168.0.2。
远程主机端口号：8001
本地服务器端口号：8000（秤IP：192.168.0.1）

Communication mode: Client & Server Remote Host Address: 192.168.0.2. Remote Host Port Number: 8001 Local server Port Number: 8000 (Scale IP: 192.168.0.1)

我可以ping秤回复。我尝试使用超级终端，但没有运气。任何帮助将不胜感激，希望这篇文章可以帮助许多其他人。谢谢！

I am able to ping the scale with a reply. I have tried using a HyperTerminal but with no luck. Any help would be greatly appreciated, and hopefully this post can help many others to come. Thanks!

其他资源

具有SERIAL连接的VB应用程序的代码： http://control.com/thread/1240210560

Code for a VB application with a SERIAL connection: http://control.com/thread/1240210560

另一个有用的工具链接（但不适合我）：
http：// vb。 net-informations.com/communications/vb.net_socket_programming.htm

Another helpful link(but not for me): http://vb.net-informations.com/communications/vb.net_socket_programming.htm

推荐答案

好的-尽管有人批评我经过数小时的研究，将发布解决方案。我创建了一个TCP客户端并修改了设置（IP，端口等）。希望这对将来的程序员有所帮助！

Alright - despite the criticism, I am going to post the solution after hours of researching. I created a TCP client and the modified the settings (IP, port, etc.) Hopefully this helps some future programmers!

Imports System.Net.Sockets

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Call Connect("192.168.0.1", "S" & vbCrLf)
End Sub

Shared Sub Connect(ByVal server As [String], 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 = 8000
        Dim client As New TcpClient(server, port)

        ' 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()

        ' 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](256) {}

        ' 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 'Connect

End Class

这篇关于如何使用以太网连接从秤上读取重量的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！