QuadTech Guardian 5000 Instruction Manual page 46

'ask user for mode, voltage, current, ramp and test time
50
PRINT "MODE 1 = AC, 2 = DC"
INPUT MODE$
IF MODE$ = "" OR MODE$ > "2" OR MODE$ < "1" THEN GOTO 50 'check mode is
AC/DC hipot
100
PRINT "INPUT VOLTAGE IN kV"
INPUT VOLT$
IF VOLT$ = "" OR VOLT$ > "5" THEN GOTO 100 'check voltage is in range
200
PRINT "HIGH CURRENT LIMIT IN mA"
INPUT CURR$
IF CURR$ = "" OR CURR$ > "40" THEN GOTO 200 'check current is in range
PRINT "RAMP TIME IN seconds"
INPUT RAMP$
300
PRINT "TEST TIME IN seconds"
INPUT TIM$
IF TIM$ = "" OR TIM$ > "999.9" THEN GOTO 300 'check time is in range
'configure g5000
SET$ = "STEP1;MODE" + MODE$ + ";SOUR " + VOLT$ + ";HILI" + CURR$ + ";RAMP"
+ RAMP$ + ";TIME" + TIM$
CALL IBWRT(G5000%, SET$)
REM CALL IBRD(G5000%, C$)
'perform a measurement
CALL IBWRT(G5000%, "STOP") 'make sure unit is in stop mode
CALL IBRD(G5000%, C$)
PRINT C$
CALL IBWRT(G5000%, "TEST") 'start measurement
FOR I = 1 TO 500
NEXT I
CALL IBWRT(G5000%, "SHOW STATUS") 'check status of unit
CALL IBRD(G5000%, STAT$)
WHILE VAL(MID$(STAT$, 8, 1)) = 1 'loop while status is testing
CALL IBWRT(G5000%, "SHOW STATUS")
CALL IBRD(G5000%, STAT$)
PRINT STAT$
WEND
Maintenance & Calibration 3-12
www.valuetronics.com
'send string to g5000
'read status of g5000
'read status