Tegam 2711A, Operation Manual

Page: 66 / 98

7 - 16
7
‘ This program shows how to set up the 2711A for a continuous sinewave 2 Vp-p, 1.2 kHz
‘ over the GPIB interface.
‘
DECLARE SUB SendGpibCmmd (OutputString$)
DECLARE SUB WaitDelay (Sec!)
REM $INCLUDE: ‘qbdecl.bas’
‘National Instruments GPIB
‘driver software
COMMON SHARED ArbGen%, OutputString$, InputString$
StartProgram:
‘Connect to 2711A and initialize.
CALL ibdev(0, 16, 0, 12, 1, 0, ArbGen%) ‘connect 2711A at addr 16
CALL IBCLR(ArbGen%)
CALL SendGpibCmmd(“*cls”) ‘clear 2711A Event Status
‘Register
CALL SendGpibCmmd(“*rst”) ‘reset 2711A
‘Set up continuous sinewave 2 Vp-p, 1.2kHz.
CALL SendGpibCmmd(“MODE CONT”) ‘Mode = Cont
CALL SendGpibCmmd(“WVFM:SINE”) ‘Waveform = Sine
CALL SendGpibCmmd(“AMPL 2.0”) ‘Amplitude = 2.0 V
CALL SendGpibCmmd(“FREQ 1.2E3”) ‘Frequency = 1.2 kHz
IBLOC (ArbGen%)
STOP
END
GPIB Programming Example
Chapter 7 Remote Interface Operation
GPIB Programming Example