3.2.4 Sample QuickBasic Program
REM Guardian 6100 Plus RS232 example program
REM Created using Quick Basic
REM open serial port as device 1
OPEN "COM1:9600,N,8,1,RS," FOR RANDOM AS #1
CLS
PRINT "This program will show the configurable commands for the G6100 Plus"
PRINT "Once the steps are programmed, the G6100 Plus will run the test"
PRINT " "
PRINT "**********************************************************"
PRINT "**************Caution High Voltage will be present********"
PRINT "***********************************************************"
PRINT " "
PRINT " The results from the test will be displayed on your monitor"
REM Send STOP command to device
PRINT #1, "SOURce:SAFEty:STOP"; CHR$(13); CHR$(10)
REM Ask device how many steps are programed
PRINT #1, "SOURce:SAFEty:SNUMBer?"; CHR$(13); CHR$(10)
INPUT #1, SNUMBer
REM Loop to delete any programed steps
IF SNUMBer > 0 THEN
FOR I = SNUMBer TO 0 STEP -1
IF I = 0 GOTO Program
temp$ = INPUT$(LOC(1), 1)
PRINT #1, "SOURce:SAFEty:STEP", I, ":DELete"; CHR$(13); CHR$(10)
NEXT I
END IF
Program:
PRINT "Programing G6000 Plus"
REM Program STEP 1 for osc - Open Short Circuit Test
REM Program OPEN for 50%
PRINT #1, "SOURce:SAFEty:STEP1:OSC:LIMIT:OPEN 0.5"; CHR$(13); CHR$(10)
REM Program OSC SHORT for 200%
PRINT #1, "SOURce:SAFEty:STEP1:OSC:LIMIT:SHORT 2"; CHR$(13); CHR$(10)
REM Program STEP 2 for Ground Bond Test
REM Program GB current for 10 A
PRINT #1, "SOURce:SAFEty:STEP2:GB:LEVel 10"; CHR$(13); CHR$(10)
REM Program low resitance limit for .1 mohm
PRINT #1, "SOURce:SAFEty:STEP2:GB:LIMIT:LOW 0.0001"; CHR$(13); CHR$(10)
Page 126 of 177
www.valuetronics.com
150799 Rev A3
Interface
Need help?
Do you have a question about the Guardian 6100 Plus and is the answer not in the manual?