Omron CX-Supervisor Reference Manual

IsBadQuality Appendix B CX-Server Communications Control
135
For Count = 1 To UBound(arrayOfPoints)
MsgBox arrayOfPoints (Count)
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.
B.17 IsBadQuality
Checks whether a point is currently indicating "Bad Quality".
Example
Dim bBad
bBad = CXServer.IsBadQuality("MyPLC", "MyPoint")
B.18 ClockRead
Function that reads the PLC clock
Example
Dim NewDate
NewDate = CXServer.ClockRead("PLC1")
' dates can be manipulated via standard VBScript
methods (FormatDateTime, DatePart etc.)
TextBox1 = NewDate ' this uses a Microsoft Forms
Text Box to convert date to string
TextPoint1 = TextBox1 'this writes the date string to
a CX-Supervisor text point
B.19 ClockWrite
Function that sets the PLC clock. The expected format for the date is "dd/mm/
yyyy hh:mm:ss".
Example
Dim NewDate
'set time/date value here using standard VBScript
methods (Date, Time, Now, CDate etc.)
NewDate = Now ' This example sets the time to the
current PC time
CXServer.ClockWrite "PLC1", NewDate
B.20 RawFINS
This function enables raw FINS commands to be sent to a specified PLC. This
function is for advanced users familiar with the Omron FINS protocol only.
VBScript Example
Dim sFINS
Dim sResponse
sFINS = "0501"
sResponse = CXServer.RawFINS(sFins, sPLC)
txtFINSResponse = sResponse 'txtFINSResponse is a CX-
Supervisor point.
Note: IsBadQuality will return True in situations where the quality is unknown, e.g.
where no previous communications with a point has occurred.

Omron CX-Supervisor Specifications

General

Brand	Omron
Model	CX-Supervisor
Category	Software
Language	English