Omron CX-SUPERVISOR - SCRIPT REFERENCE REV2.0 Reference Manual page 160

OMRON
Example
Dim arrayOfPLCs
Dim nUbound, nLbound
arrayOfPLCs = CXServer.ListPLCs
nLbound = LBound(arrayOfPLCs)
nUbound = UBound(arrayOfPLCs)
For Count = nLbound To nUbound
Next
In this example, the list of PLC names in the project configured stored in 'arrayOfPLCs' and then
each is displayed in a message box.
ListPoints
Holds a list of all point names configured in the project file or PLC. This property is read only.
Example
Dim arrayOfPoints
Dim nUbound, nLbound
arrayOfPoints = CXServer.ListPoints(sPLC)
nLbound = LBound(arrayOfPoints)
nUbound = UBound(arrayOfPoints)
For Count = 1 To UBound(arrayOfPoints)
Next
In this example, the list of Points configured for the PLC name specified in text point sPLC is stored
in 'arrayOfPoints' and each displayed in a message box.
Example 2
arrayOfPoints = CXServer.ListPoints
If ListPoints is used without a parameter then points from all PLCs are returned.
IsBadQuality
Checks whether a point is currently indicating "Bad Quality".
Example
Dim bBad
bBad = CXServer.IsBadQuality("MyPLC", "MyPoint")
Note: IsBadQuality will return True in situations where the quality is unknown, e.g. where no
previous communications with a point has occurred.
ClockRead
Function that reads the PLC clock
Revision 2.0
APPENDIX B – CX-Server Communications Control
MsgBox arrayOfPLCs(Count)
MsgBox arrayOfPoints (Count)
Page 147