Giga-tronics 58542 - Triggering Example 5

58542 VXIbus Universal Power Meter
A-24 Publication 21555, Rev. E, September 2002
A.5.5 TRIGgering Example 5
BURSt Mode BUS triggering with FETCh?
10 ALPHA ON
20 CLEAR SCREEN
30 !
40 OPTION BASE 1
50 DIM Id$[50],Err_msg$[70]
60 DIM Ques$[200],A$[80],Chan1sens_1(50)
70 DIM Chan2sens_2(50)
80 !
90 !
100 !#####################################
110 ! Instrument ADDRESS ALLOCATION
120 !
130 ASSIGN @Slot0 TO 70100 ! 70100 is Logical Address of the Slot0 controller
140 ASSIGN @Pwr_mtr TO 70101 ! 70101 is Power Meter, in 1st position right of slot 0
150 !#####################################
160 !
170 ! Identify Attached Instruments
180 !
190 OUTPUT @Slot0;*IDN?
200 ENTER @Slot0;Id$
210 PRINT SLOT 0 is ;Id$
220 !
230 OUTPUT @Pwr_mtr;*IDN?
240 ENTER @Pwr_mtr;Id$
250 PRINT SLOT 1 is ;Id$
260 WAIT 1
270 !
280 !
290 CLEAR @Pwr_mtr
300 WAIT 1
310 OUTPUT @Pwr_mtr; *CLS ! Clears old messages from SYST:ERR buffer
320 !
330 OUTPUT @Pwr_mtr;CALC1:MODE NORM ! NORMal Mode to perform channel configuration
340 OUTPUT @Pwr_mtr;CALC1:POW 1 ! Channels 1 or 2 can be either POW 1 or POW 2
350 ! RAT and DIFF are illegal in SWIFt and BURSt Modes
360 OUTPUT @Pwr_mtr;TRIG:SOUR IMM ! IMM set here to highlight conflict with BURSt operation
370 !
380 !################################
390 !
400 ! Entering BURSt Mode
410 !
420 OUTPUT @Pwr_mtr;CALC1:MODE BURS ! Enters BURSt Mode for fastest measurement speeds
430 !
440 OUTPUT @Pwr_mtr;SENS1:CORR:FREQ 2.44E9
! Applies Cal Factor in burst mode
450 ! Can be sent before or after CALC#:MODE BURS
460 !
470 OUTPUT @Pwr_mtr;TRIG:SOUR BUS ! IMM triggering is illegal in BURSt Mode, Use BUS or EXT.
480 ! Can be sent before or after CALC#:MODE BURS
490 !
500 OUTPUT @Pwr_mtr;TRIG:MODE POST ! Data acquired after trigger, not before as with PRE.
510 ! Send only after CALC#:MODE BURS
520 !
530 OUTPUT @Pwr_mtr;TRIG:COUN 50 ! 50 readings acquired and stored with each trigger
540 ! Send only after CALC#:MODE BURS
550 ! Be sure COUN# matches ENTER variable dimension.
560 !REDIM Chan1sens_1(50),Chan2sens_2(50) ! REDIM to smaller array size only if necessary
570 !
580 OUTPUT @Pwr_mtr;TRIG:DEL .001 ! 1 millisecond between rdgs, 0 ms is 5100 rdgs/sec
590 ! Send only after CALC#:MODE BURS
600 !