Kikusui tos6200, Operation Manual

Page: 125 / 157

TOS 6200/6210 6-47
C
hap
. 6
GP
I
B and
RS
-232
C
Do 'Checks the device enable
strCommand = "DSR?" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'register and awaits a "Ready"
vs = viRead(tos, strRdBack, 255, c) 'status.
Loop While (Val(strRdBack) <> DSR_READY)
strCommand = "START" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'Starts the test on receiving a
'"Ready."
Do 'Uses the MON? command to read
strCommand = "MON?" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'out a DSR value, measured
vs = viRead(tos, strRdBack, 255, c) 'values, and other parameters.
DSR = Val(Left$(strRdBack, InStr(1, strRdBack, ",") - 1)) 'Extracts a DSR value.
Result = Left$(strRdBack, c - 2) 'Places other measured values
'into variables.
If DSR = DSR_STOP Then Exit Do 'Exits loop when the STOP
'switch is pressed.
Loop While (DSR = DSR_READY Or DSR = DSR_TESTON Or DSR = DS DSR_TESTON) 'Repeats steps until the test
ends.
Select Case DSR 'Displays the test result.
Case DSR_STOP
MsgBox ("USER CANCEL! " + Result) 'STOP switch was pressed
'during testing.
Case DSR_PASS
MsgBox ("PASS! " + Result) 'Displays the PASS test result.
Case DSR_FAIL
strRdBack = Space(255)
strCommand = "FAIL?" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'Reads the contents of the fail
vs = viRead(tos, strRdBack, 255, c) 'register to determine which
'reference value was violated.
If Val(strRdBack) = LOWER_FAIL Then MsgBox ("LOWER FAIL! " + Result) 'Displays the LOWER FAIL test
'result.
If Val(strRdBack) = UPPER_FAIL Then MsgBox ("UPPER FAIL! " + Result) 'Displays the UPPER FAIL test
'result.
Case DSR_PROTECTION
strRdBack = Space(255)
strCommand = "PROT?" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'Reads the protection register
vs = viRead(tos, strRdBack, 255, c) 'to determine the reason for
'protection.
If Val(strRdBack) = OHP Then MsgBox ("OVER HEAT PROTECTION! " + Result) 'Overheat protection was
'tripped.
If Val(strRdBack) = OHTP Then MsgBox ("OVER HEAT TIMER PROTECTION! " + Result) 'A current greater than 15 A
'was detected for 30 minutes.
If Val(strRdBack) = OVLD Then MsgBox ("OVER LOAD PROTECTION! " + Result) 'The overload protection (150
'VA) was tripped.
If Val(strRdBack) = VL Then MsgBox ("VOLT LIMIT PROTECTION! " + Result) 'The voltage limitation was
'tripped.
If Val(strRdBack) = REN Then MsgBox ("SIGNAL I/O PROTECTION! " + Result) 'The ENABLE signal for the
'SIGNAL I/O connector varied.
Case Else
MsgBox ("ERROR!!")
End Select
strCommand = "STOP" & vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'Check results and press the
'STOP switch.
'Closes the port
vs = viClose(tos) 'Closes the port.
'Finalize VISA library
vs = viClose(vi) 'Closes the VISA library.
End Sub
• The p rot ec t i o n ci r c u i t is a c t iv at ed at 150 V A f or TOS6 200 or 220 V A f or
TOS6 210.