
2.ADDING SCREENS USER CUSTOMIZE B-75074EN/04
- 416 -
- Explanation
The value of the object.pComDefProtocol element of the second
dimension of a two-dimensional array acquired by executing the
method ComDefRead is " " (blank character string) or the value
returned by these properties.
object.pProtocolDNC2
DNC2
Object.pProtocolFE
FOCAS2/Etherenet
Object.pProtocolRP
Reader/Puncher
2.6.1.4 Example of usage
A sample program for indicating a machine number, name,
communication protocol, IP address of FOCAS2/Ethernet, whether the
setting of FOCAS2/Ethernet is valid, and whether the overview
function of the
i CELL is provided below.
Dim obj As Object
Dim bRtn As Boolean
Dim Machine() As String
Dim ComDef() As String
Dim iCELL() As String
Dim Count As Long
Dim Message As String
Set obj = CreateObject("iCELLDef.iCELLRW")
If obj Is Nothing Then
MsgBox "CreateObject Error"
Exit Sub
End If
bRtn = obj.Initialize()
If bRtn = False Then
MsgBox obj.mErrorMessage
Exit Sub
End If
ReDim Machine(0 To obj.mDispMachine - 1, _
0 To obj.pMachineItemCount - 1)
ReDim ComDef(0 To obj.mDispMachine - 1, _
0 To obj.pComDefItemCount - 1)
ReDim iCELL(0 To obj.mDispMachine - 1, _
0 To obj.piCELLItemCount - 1)
bRtn = obj.SysDefRead()
If bRtn = False Then
MsgBox obj.mErrorMessage
Exit Sub
End If