Programmbeispiel für ein verbundenes Gerät
Pri vate Sub Command3_Click(ByVal eventSender As Sys tem.Object, ByVal eventArgs
As Sys tem.EventArgs) Han dles Command3.Click
End Sub
Pri vate Sub Command4_Click(ByVal eventSender As Sys tem.Object, ByVal eventArgs
As Sys tem.EventArgs) Han dles Command4.Click
End Sub
Pri vate Sub Command5_Click(ByVal eventSender As Sys tem.Object, ByVal eventArgs
As Sys tem.EventArgs) Han dles Command5.Click
End Sub
End Class
A - 76
'Close the TCP (UDP) con nec tion socket (dis con nect the line).
Me.Ajsock.Shut down(Net.Sock ets.SocketShutdown.Both)
Me.Ajsock.Close()
MsgBox(„The dis con nec tion was suc cess ful", MsgBoxStyle.Infor ma tion)
State = Me.Ajsock.Con nected()
'End the pro gram.
End
'Check the con nec tion state.
If State Then
MsgBox(„Con nected")
Else
MsgBox(„Closed")
End If
An hang
MITSUBISHI ELECTRIC