58542 VXIbus Universal Power Meter
A-40 Publication 21555, Rev. E, September 2002
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 500 ! 500 readings acquired and stored with each trigger.
540 ! Send only after CALC#:MODE BURS, following
! TRIG:MODE.
550 ! Be sure COUN# matches ENTER variable dimension.
560 !REDIM Chan1sens_1(500),Chan2sens_2(500) ! REDIM to smaller array size only if necessary.
570 !
580 OUTPUT @Pwr_mtr;TRIG:DEL .000 ! 0 millisecond between rdgs setting is 5100 rdgs/sec.
590 ! Send only after CALC#:MODE BURS, following
! TRIG:COUN.
600 !
610 !
620 FOR I=1 TO 10
630 Time1=TIMEDATE
640 !
650 OUTPUT @Pwr_mtr;TRIG ! TRIG is the SCPI Bus trigger. Can also use *TRG
660 OUTPUT @Pwr_mtr;FETC1? !FETC#? acquires data
670 ENTER @Pwr_mtr;Chan1sens_1(*)
680 !ENTER @Pwr_mtr;Chan1sens_1(*),Chan2sens_2(*)
! Use this line when two sensors are attached.
690 !
700 Time2=TIMEDATE
710 Time=Time2-Time1
720 Speed=500/Time
730 PRINT Chan1sens_1(*)
740 !PRINT Chan1sens_1(*),Chan2sens_2(*) ! Use this line when two sensors are attached.
750 PRINT Speed; readings per second, round trip.
760 PRINT “”
770 NEXT I
780 !
790 END