Manual

A PPENDIX I: Program Examples
270 ISSUED: February 2005 WM-RCM-E Rev D
' Look for"?" in command string.
If InStr(NextData, Query) > 0 Then
‘ Collect response from instrument.
Worksheets("Sheet1").Cells(Row, Column + 2).Value =
o.ReadString(1000)
End If
‘ Check for Error
If o.ErrorFlag = True Then
' Show error message.
Worksheets("Sheet1").Cells(Row, Column + 2).Value =
o.ErrorString
Waiting = True: HoldOff = 0: ErrorFound = Tru
‘ Store command line for restart.
Worksheets("Sheet1").Cells(2, 6).Value = Row + 1
End If
End If
Next Counter
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
.
‘ Release the control.
Call o.SetRemoteLocal(0)
Set o = Nothing
End Sub
ActiveDSOExcel4 is a similar program using the Pass-Fail system.