Agilent Technologies 3458A User Manual page 239

90 OUTPUT @Dvm; "SSDC 10"
100 OUTPUT @Dvm; "SWEEP 5E - 6,200"!5µs EFF. INTERVAL, 200 SAMPLES
110 TRANSFER @Dvm TO @Samp;WAIT
120 FOR I=1 TO 200
130 IF ABS(Samp(I))=1E+38 THEN
140 PRINT "Overload Occurred"
150 ELSE
160 Samp(I)=DROUND(Samp(I),5)
170 PRINT Samp(I)
180 END IF
190 NEXT I
200 END
In the program on the following page, the SSAC command is used to digitize a
10 kHz signal with a peak value of 5V. The SWEEP command instructs the
multimeter to take 1000 samples (Num_samples variable) with a 2µs
effective_interval (Eff_int variable). The measurement uses the default level
triggering for the sync source event (trigger from input signal, 0%, AC-coupling,
positive slope). Line 120 generates a SYN event and transfers the samples directly
to the computer. Lines 240 through 410 sort the sub-sampled data to produce the
composite waveform. The composite waveform is stored in the Wave_form array.
10 OPTION BASE 1
20 INTEGER Num_samples,Inc,I,J,K,L!DECLARE VARIABLES
30 Num_samples=l000
40 Eff_int=2.0E-6
50 INTEGER Int_samp(1:1OOO) BUFFER!CREATE INTEGER BUFFER
60 ALLOCATE REAL Wave_form(1:Num_samples)!CREATE ARRAY FOR SORTED DATA
70 ALLOCATE REAL Samp(1:Num_samples)!CREATE ARRAY FOR SAMPLES
80 ASSIGN @Dvm TO 722
90 ASSIGN @Int_samp TO BUFFER Int_samp(*)!ASSIGN BUFFER I/O PATH NAME
100 OUTPUT @Dvm;"PRESET FAST;LEVEL;SLOPE;SSRC LEVEL;SSDC 10"
101 !FAST OPERATION, TARM SYN, LEVEL SYNC SOURCE 0V, POSITIVE SLOPE
105 !(DEFAULT VALUES) SUB-SAMPLING(SINT OUTPUT FORMAT), 10V RANGE
110 OUTPUT @Dvm;"SWEEP ";Eff_int,Num_samples
115 !2µs EFFECTIVE INTERVAL, 1000 SAMPLES
120 TRANSFER @Dvm TO @Int_samp;WAIT!SYN EVENT,TRANSFER READINGS INTO
121 !INTEGER ARRAY; SINCE THE COMPUTER'S INTEGER FORMAT IS THE SAME AS
125 !SINT,NO DATA CONVERSION IS NECESSARY HERE (INTEGER ARRAY REQUIRED)
130 OUTPUT @Dvm;"ISCALE?"
140 ENTER @Dvm; S
150 OUTPUT @Dvm;"SSPARM?"
160 ENTER @Dvm;N1,N2,N3
170 FOR I=1 TO Num_samples
180 Samp(I)=Int_samp(I)
190 !FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT LINE)
190 R=ABS(Samp(I))
200 IF R>=32767 THEN PRINT "OVLD" !IF OVLD, PRINT OVERLOAD MESSAGE
210 Samp(I)=Samp(I)*S
!SUB-SAMPLING, 10V RANGE, DC-COUPLED
!TRANSFER SAMPLES TO CONTROLLER BUFFER
!DETECT OVERLOAD
!PRINT OVERLOAD MESSAGE
!IF NO OVERLOAD OCCURRED:
!ROUND TO 5 DIGITS
!PRINT EACH SAMPLE
!COMPUTER ARRAY NUMBERING STARTS AT 1
!DESIGNATE NUMBER OF SAMPLES
!DESIGNATE EFFECTIVE INTERVAL
!ASSIGN MULTIMETER ADDRESS
!QUERY SCALE FACTOR FOR SINT FORMAT
!ENTER SCALE FACTOR
!QUERY SUB-SAMPLING PARAMETERS
!ENTER SUB-SAMPLING PARAMETERS
!CONVERT EACH INTEGER READING TO REAL
!USE ABSOLUTE VALUE TO CHECK FOR OVLD
!MULTIPLY READING TIMES SCALE FACTOR
Chapter 6 Command Reference
SSAC, SSDC
239