QuadTech 1730T - Interface; Sample IEEE-488 Basic Program

Page 94 of 110 150821/A4 Interface
3.1.8 Sample IEEE-488 Basic Program
Included herein is a sample Basic program.
NOTE:
Refer to: http://www.quadtech.com for the latest sample programs that may be available.
NI = 0
IF NI = 1 THEN
OPEN "gpib0" FOR OUTPUT AS #1
OPEN "gpib0" FOR INPUT AS #2
PRINT #1, "ABORT"
PRINT #1, "RESET"
PRINT #1, "gpibeos lf"
ELSE
OPEN "\dev\ieeeout" FOR OUTPUT AS #1
IOCTL #1, "BREAK"
PRINT #1, "RESET"
OPEN "\dev\ieeein" FOR INPUT AS #2
PRINT #1, "TERM LF"
END IF
k2 = 1000
fr = 100000
Cmdl$ = "C"
Print "Configuring the 1730T"
PRINT #1, "output 17; TRIG:SOUR BUS"
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :SOUR:FREQ "; fr
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :SENS:FIMP:APER 0.500"
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :SOUR:VOLT 1e0"
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :CAL:CABL 1"
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :FIMP:RANG:AUTO ON"
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :CALC1:FORM REAL"
FOR g = 1 TO k2: NEXT g
PRINT #1, "output 17; :CALC2:FORM IMAG"
FOR g = 1 TO k2: NEXT g
IF cmdl$ = "C" THEN
PRINT #1, "output 17; :CALC2:FORM D"
PRINT #1, "output 17; :CALC1:FORM CP"
ELSEIF cmdl$ = "R" THEN
PRINT #1, "output 17; :CALC2:FORM Q"
PRINT #1, "output 17; :CALC1:FORM RS"
ELSEIF cmdl$ = "L" THEN
PRINT #1, "output 17; :CALC1:FORM LS"
PRINT #1, "output 17; :CALC2:FORM Q"
END IF
PRINT #1, "output 17;*TRG"
FOR g = 1 TO k2: NEXT g
PRINT #1, "enter 17"
REM get and parse return data
INPUT #2, s1$
INPUT #2, f3$
INPUT #2, f6$
PRINT "Data is:",s1$,f3$,f6$