Kikusui tos6200, Руководство по эксплуатации

Страница: 129 / 157

TOS 6200/6210 6-51
C
hap
. 6
GP
I
B and
RS
-232
C
Loop While (Val(strRdBack) <> DSR_READY)
strCommand = "START" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'Starts the test because
'"Ready" was received.
Do 'Uses MON? command to read out
strCommand = "MON?" + vbCrLf: vs = viWrite(tos, strCommand, Len(strCommand), r) 'the DSR value, measured
vs = viRead(tos, strRdBack, 255, c) 'values, and other parameters.
DSR = Val(Left$(strRdBack, InStr(1, strRdBack, ",") - 1)) 'Extracts the DSR value.
Result = Left$(strRdBack, c - 2) 'Places the other measured
'values into variables.
If DSR = DSR_STOP Then Exit Do 'Exits the loop when 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) 'The 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 the result 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.