我有Mettler Toledo XS32000L秤,我只是想通过以太网连接和VB.net(2010)应用程序读取重量。我找到了大量用于串行(COM)连接的信息/代码,但没有用于以太网连接。
通讯模式:客户端&服务器 远程主机地址:192.168.0.2。 远程主机端口号:8001 本地服务器端口号:8000(规模IP:192.168.0.1)
我可以通过回复ping缩放比例。我尝试过使用HyperTerminal但没有运气。任何帮助将不胜感激,希望这篇文章可以帮助许多其他人来。谢谢!
其他资源
具有SERIAL连接的VB应用程序的代码:http://control.com/thread/1240210560
另一个有用的链接(但不适合我): http://vb.net-informations.com/communications/vb.net_socket_programming.htm
答案 0 :(得分:2)
好吧 - 尽管受到了批评,我将在经过数小时的研究后发布解决方案。我创建了一个TCP客户端并修改了设置(IP,端口等)。希望这有助于未来的程序员!
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