QuadTech Guardian 2500 Series Instruction Manual page 90

IEEE-488 Sample Program (Continued)
'ask user for test location, mode, voltage, current, ramp and test time
40
PRINT "ENTER TEST NUMBER"
INPUT TEST$
IF TEST$ = "" OR TEST$ > "25" THEN GOTO 40 ' check test is in range
50
PRINT "MODE 1 = AC, 2 = AC Real, 3 = AC Imag, 4 = DC"
INPUT MODE$
IF MODE$ = "" OR MODE$ > "4" 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$ > "15" 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 g2500
IF MODE$ = "1" THEN MODECH$ = "AC"
IF MODE$ = "2" THEN MODECH$ = "ACRE"
IF MODE$ = "3" THEN MODECH$ = "ACIM"
IF MODE$ = "4" THEN MODECH$ = "DC"
conf$ = "TEST:TEST " + TEST$ + ";CONF:MODE " + MODECH$ + ";CONF:VOLT " + VOLT$ +
";CONF:HIG " + CURR$ + ";CONF:TRA " + RAMP$ + ";CONF:TME " + TIM$
CALL IBWRT(G2500%, conf$) 'send string to Guardian 25XX
FOR I = 1 TO 4000 'wait for unit to configure
NEXT I
'perform a measurement
CALL IBWRT(G2500%, "MEAS") 'start measurement
CALL IBWRT(G2500%, "*WAIT") 'wait for finish of measurement
'Get data from Guardian 2500
CALL IBWRT(G2500%, "FETCH?") 'ask for voltage and current levels
CALL IBRD(G2500%, d$) 'read current,voltage levels and status
PRINT "DATA IS:"; d$ 'output data to the screen
PRINT #1, d$ + STAT$ + TIME$ + " " + DATE$ 'store data and status to open file
CLOSE #1
CALL IBWRT(G2500%, "STOP")' make sure unit is in stop status
SLEEP
END
Page 90 of 90 Interface