Mitsubishi Electric CR750-Q Instruction Manual page 616

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)
Communication line file name
COM1:
COM2:
COM3:
COM4:
COM5:
COM6:
COM7:
COM8:
*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).
Channel name
Port No.*1
COMDEV
setting value
10001 OPT11
10002 OPT12
10003 OPT13
10004 OPT14
10005 OPT15
10006 OPT16
10007 OPT17
10008 OPT18
10009 OPT19
Appendix-596 Real-time external control function
COMDEV
(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)
Protocol
CPRCE** Setting value
CPRCE11 2
CPRCE12 2
CPRCE13 2
CPRCE14 2
CPRCE15 2
CPRCE16 2
CPRCE17 2
CPRCE18 2
CPRCE19 2