GPIB/RS232 Operation Description (IEEE-488.2)
5-49
PRINT "STEP", J%, ":", RESULT$
NEXT J%
PRINT
PRINT #1, "OUTPUT 3;:SAFEty:RESult:ALL:MMET?"
PRINT #1, "ENTER 3"
FOR J% = 1 TO STEPNUM%
INPUT #2, RESULT$
PRINT "STEP", J%, ":", RESULT$
NEXT J%
END IF
WEND
PRINT #1, "OUTPUT 3;:SOURce:SAFEty:STOP"
CLOSE : SYSTEM
END
Save and Recall by GPIB Using Basic
REM ------------------------------------------------------------
REM Program compiled using Microsoft version 1.1(MS-DOS 6.22)
REM run the ULI file before this program
REM Device GPIB address is 3
REM ------------------------------------------------------------
OPEN "GPIB0" FOR OUTPUT AS #1 ‘open #1 for output (write)
OPEN "GPIB0" FOR INPUT AS #2 ‘open #2 for input (read)
PRINT #1, "ABORT" ‘initializing complete
PRINT #1, "GPIBEOS IN LF" ‘set the end code
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP1:GB:LEVel 25"
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP1:GB:LIMit:HIGH 0.02"
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP2:AC:LEVel 500"
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP2:AC:LIMit:HIGH 0.04"
PRINT #1, "OUTPUT 3;*SAV 1" ‘Work memory were Stored in memory 1
PRINT #1, "OUTPUT 3;MEMory:DEFine AAA,1"
‘Define the name of memory 1 is AAA
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP3:DC:LEVel 700"
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP3:DC:LIMit:HIGH 0.01"
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP4:IR:LEVel 800"
PRINT #1, "OUTPUT 3;SOURce:SAFEty:STEP4:IR:LIMit:HIGH 5000000"
PRINT #1, "OUTPUT 3;*SAV 3" ‘Work memory were Stored in memory 3
PRINT #1, "OUTPUT 3;MEMory:DEFine BBB,3"
‘Define the name of memory 3 is BBB
PRINT #1, "OUTPUT 3;*RCL 1" ‘Recall the memory 1
CLOSE : SYSTEM
END
To Next Page
Loading...
