Tegam 2411B, Operation Manual

Page: 89 / 140

Chapter 7 Remote Interface Operation
GPIB Programming Example
GPIB Programming Example
‘This program shows how to set up the 2411B 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 2411B and initialize.
CALL ibdev (0, 16, 0, 12, 1, 0, ArbGen%)
‘connect 2411B at addr 16
CALL IBCLR (ArbGen%)
CALL SendGpibCmmd (“*cls)
‘clear 2411B Event Status
‘Register
CALL SendGpibCmmd (“*rst) ‘reset 2411B
‘Set up continuous sinewave 2 Vp-p, 1.2kHz in STDW.
CALL SendGpibCmmd (“outsw on”)
‘turn output on
CALL SendGpibCmmd (“FUNC WAVE,STDW”) ‘select standard wave on
CALL SendGpibCmmd (“WVFM:WAVE STDW;SINE 1,0”) ‘Waveform = Sine
CALL SendGpibCmmd (“AMPL 2.0”) ‘Amplitude = 2.0 V
CALL SendGpibCmmd (“SCLK 1.2E6”) ‘Sclk = 1.2 MHz
CALL SendGpibCmmd (“exec”) ‘execute the above commands
IBLOC (ArbGen%)
STOP
END
7-18