Mitsubishi Electric CR800 Series - Maintenance Procedures; Origin Data Management

4 Appendix
4-13
Button1.Enabled = False 'Disable send button
Else
Client = Listener.AcceptTcpClient() 'Connect with client
Text1.Enabled = True 'Enable IP address edit
Text3.Enabled = True 'Enable send text edit
Button1.Enabled = True 'Enable send button
End If
Else
'Receive data
Try
Dim Stream As NetworkStream = Client.GetStream
If Stream.DataAvailable Then
Dim bytes(1000) As Byte
Dim strReceivedData As String = ""
Dim datalength = Stream.Read(bytes, 0, bytes.Length)
strReceivedData = System.Text.Encoding.Default.GetString(bytes).Substring(0, datalength)
Text4.AppendText(strReceivedData)
Text4.AppendText(System.Environment.NewLine)
End If
Catch ex As Exception
'Disconnect
Client = Nothing
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button1)
End Try
End If
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button1)
End Try
End Sub
End Class