Agilent Technologies 33120A

QuickBASIC / GPIB (Program 2)
REM $INCLUDE: ’QBSETUP’
’
’ This program uses low-level SCPI commands to configure
’ the function generator to output an AM waveform.
’ This program also shows how to use "state storage" to
’ store the instrument configuration in memory. The program
’ is written in QuickBASIC and uses the 82335B GPIB card
’ and GPIB command library.
’
ISC& = 7 ’ GPIB select code is "7"
Dev& = 710 ’ Assign I/O path to address 710
Timeout = 5 ’ Configure device library for a 5 second timeout
CALL IOTIMEOUT(ISC&, Timeout)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
CALL IORESET(ISC&) ’ Reset the 82335B GPIB card
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
CALL IOCLEAR(Dev&) ’ Send a device clear to the function generator
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
CALL IOREMOTE(Dev&) ’ Place the function generator in the remote mode
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "*RST" ’ Reset the function generator
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "OUTP:LOAD 50" ’ Output termination is 50 ohms
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "FUNC:SHAP SIN" ’ Carrier waveshape is sine wave
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "FREQ 5000;VOLT 5" ’ Carrier frequency is 5 kHz @ 5 Vpp
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
6
Chapter 6 Application Programs
Using the Low-Level Commands
253