Mitsubishi Electric CR750-Q - Page 616

Appendix-596 Real-time external control function
7Appendix
ReDim RecvData(bytesTotal - 1)
Call Winsock1.GetData(RecvData, , bytesTotal)
Text4.SelStart = Len(Text4.Text)
Text4.SelText = StrConv(RecvData, vbUnicode)
Text4.Text = Text4.Text & vbCrLf
End If
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, _
Description As String, ByVal Scode As Long, _
ByVal Source As String, ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)' Process when an error occurs in Window
Socket
Check1.Value = False
Command1.Enabled = False
Winsock1.Close
MsgBox "Error:" & Number & "(" & Description & ")"
End Sub
*Relation of Open command communication line file name COMn: and parameter COMDEV
COMDEV (1), (2), (3), (4), (5), (6), (7), (8)
*Channel name assigned to parameter COMDEV and protocol setting parameter name
OPT11 to OPT19 are assigned to (1) to (8).
The protocol is set in 2 (data link).
Communication line file name COMDEV
COM1: (1)
COM2: (2)
COM3: (3)
COM4: (4)
COM5: (5)
COM6: (6)
COM7: (7)
COM8: (8)
Channel name
Protocol
Port No.*1
COMDEV
setting value
CPRCE** Setting value
10001 OPT11 CPRCE11 2
10002 OPT12 CPRCE12 2
10003 OPT13 CPRCE13 2
10004 OPT14 CPRCE14 2
10005 OPT15 CPRCE15 2
10006 OPT16 CPRCE16 2
10007 OPT17 CPRCE17 2
10008 OPT18 CPRCE18 2
10009 OPT19 CPRCE19 2