Mitsubishi Electronics MELSEC-F Universal Remote User Manual


 
App - 16
MELSEC-F
APPENDIX
App - 16
Memo: The following procedure is necessary for Windows Form Designer.
Change by using Windows Form Designer.
Do not use code editor to change.
Friend WithEvents Start As System.Windows.Forms.Button
Friend WithEvents lstOutput As System.Windows.Forms.ListBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Start = New System.Windows.Forms.Button
Me.lstOutput = New System.Windows.Forms.ListBox
Me.SuspendLayout()
'
'Start
'
Me.Start.Location = New System.Drawing.Point(16, 16)
Me.Start.Name = "Start"
Me.Start.Size = New System.Drawing.Size(88, 32)
Me.Start.TabIndex = 0
Me.Start.Text = "Start"
'
'lstOutput
'
Me.lstOutput.ItemHeight = 12
Me.lstOutput.Location = New System.Drawing.Point(16, 64)
Me.lstOutput.Name = "lstOutput"
Me.lstOutput.Size = New System.Drawing.Size(264, 196)
Me.lstOutput.TabIndex = 1
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
Me.ClientSize = New System.Drawing.Size(296, 273)
Me.Controls.Add(Me.lstOutput)
Me.Controls.Add(Me.Start)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Start.Click
Dim IpAddress As String
Dim PortNum As Integer
Dim Client As TcpClient
Dim Buffer() As Byte
Dim InBuff(1532) As Byte
Dim TxCommand As String