Mitsubishi Electric CR800 Series Ethernet Function Instruction Manual page 127

■ Form1.vb (Program for the client)
Imports System
Imports System.Net.Sockets
Public Class Form1
Private Client As TcpClient
Private Sub Check1_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Check1.CheckStateChanged
' Process for Connect or Disconnect
Try
If Check1.CheckState = CheckState.Checked Then
Client = New TcpClient()
Client.Connect(Text1.Text, Convert.ToInt32(Text2.Text)) 'Connect
Button1.Enabled = Client.Connected
Timer1.Enabled = Client.Connected
Else
Timer1.Enabled = False
Button1.Enabled = False
Client.GetStream().Close()
Client.Close()
End If
Catch ex As Exception
Check1.Checked = False
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button1)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Send process
Try
Dim SendBuf As Byte() = System.Text.Encoding.Default.GetBytes(Text3.Text)
Dim Stream As NetworkStream = Client.GetStream()
Stream.Write(SendBuf, 0, SendBuf.Length)
Catch ex As Exception
Client = Nothing
Timer1.Enabled = False
Button1.Enabled = False
Check1.Checked = False
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button1)
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Receive process
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
4 Appendix
4-7