Sub StartScale
SetIPAddress ' set the ip for ScaleIP
sock.Initialize("Scalecontroller")
' sock.Connect("10.131.199.50", 10001, 10000) - for testing
sock.Connect(ScaleIP, 10001, 20000)
' sock.Connect(IP, port number, time out in ms)
' ToastMessageShow(" Connecting to Scale Controller... ",False)
End Sub
Sub Scalecontroller_Connected (Successful As Boolean)
Log($"Scalecontroller_Connected: (${Successful})"$)
If Successful Then
AStreams.Initialize( sock.InputStream, Null, "Scale")
Else
ToastMessageShow(" Connection to Scale Controller Failed! ",True)
SetWeight
End If
End Sub