Mitsubishi Electric CR800 Series Ethernet Function Instruction Manual page 131

Me.Label1.Text = "IP address"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(320, 253)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Check1)
Me.Controls.Add(Me.Text4)
Me.Controls.Add(Me.Text3)
Me.Controls.Add(Me.Text2)
Me.Controls.Add(Me.Text1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Data link (server)"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Public WithEvents Button1 As System.Windows.Forms.Button
Public WithEvents Check1 As System.Windows.Forms.CheckBox
Public WithEvents Text4 As System.Windows.Forms.TextBox
Public WithEvents Text3 As System.Windows.Forms.TextBox
Public WithEvents Text2 As System.Windows.Forms.TextBox
Public WithEvents Text1 As System.Windows.Forms.TextBox
Public WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Public WithEvents Label3 As System.Windows.Forms.Label
Public WithEvents Label2 As System.Windows.Forms.Label
Public WithEvents Label1 As System.Windows.Forms.Label
End Class
■ Form1.vb (Program for the server)
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Net.NetworkInformation
Imports System.Text
Public Class Form1
Private Listener As TcpListener
Private Client As TcpClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Text1.Enabled = False
Text3.Enabled = False
Button1.Enabled = False 'Disable Send button
End Sub
Private Sub Check1_CheckStateChanged (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Check1.CheckStateChanged
'Process for Connect
Try
'Disable IP address
'Disable Send data
4 Appendix
4-11