omronplc串口Fins通信测试源码PrivateSubcmdOpen_Click()OnErrorGoToErrHandlerIfMSComm1.PortOpenThenMSComm1.PortOpen=FalsecmdOpen.Caption="开启端口"cmdOpen.ToolTipText="开启通讯端口"cmdSet.Enabled=TruecmdSend.Enabled=FalseElseMSComm1.PortOpen=TruecmdOpen.Caption="