Mitsubishi Electric MELSEC System Q Bedienungsanleitung Seite 462

Programmbeispiel für ein verbundenes Gerät
'Form over rides dis pose to clean up the com po nent list.
Pro tected Over loads Over rides Sub Dis pose(ByVal Dis pos ing As Boolean)
If Dis pos ing Then
End If
MyBase.Dis pose(Dis pos ing)
End Sub
'Re quired by the Win dows Form Designer.
Pri vate com po nents As Sys tem.ComponentModel.IContainer
Pub lic WithEvents Command5 As Sys tem.Win dows.Forms.But ton
Pub lic WithEvents Command4 As Sys tem.Win dows.Forms.But ton
Pub lic WithEvents Command3 As Sys tem.Win dows.Forms.But ton
Pub lic WithEvents Command2 As Sys tem.Win dows.Forms.But ton
Pub lic WithEvents Command1 As Sys tem.Win dows.Forms.But ton
Dim Ajsock As Sock ets.Socket
Pri vate State As Boolean = False
<Sys tem.Diag nos tics.DebuggerStepThrough()> Pri vate Sub InitializeComponent()
(Fort set zung auf der nächs ten Seite)
A - 72
If Not com po nents Is Noth ing Then
com po nents.Dis pose()
End If
'NOTE: The fol low ing pro ce dure is required by the Win dows Form Designer.
'It can be mod i fied using the Win dows Form Designer.
'Do not mod ify it using the code edi tor.
Me.Command5 = New Sys tem.Win dows.Forms.But ton
Me.Command4 = New Sys tem.Win dows.Forms.But ton
Me.Command3 = New Sys tem.Win dows.Forms.But ton
Me.Command2 = New Sys tem.Win dows.Forms.But ton
Me.Command1 = New Sys tem.Win dows.Forms.But ton
Me.SuspendLayout()
'
'Command5
'
Me.Command5.BackColor = Sys tem.Draw ing.SystemColors.Con trol
Me.Command5.Cur sor = Sys tem.Win dows.Forms.Cursors.Default
Me.Command5.ForeColor = Sys tem.Draw ing.SystemColors.ControlText
Me.Command5.Loca tion = New Sys tem.Draw ing.Point(64, 152)
Me.Command5.Name = „Command5"
Me.Command5.RightToLeft = Sys tem.Win dows.Forms.RightToLeft.No
Me.Command5.Size = New Sys tem.Draw ing.Size(72, 32)
Me.Command5.TabIndex = 4
Me.Command5.Text = „Con nec tion sta tus"
'
'Command4
'
An hang
MITSUBISHI ELECTRIC