Keysight Technologies 3458A Guide D'utilisation page 204

5 Digitizing
10OPTION BASE 1!COMPUTER ARRAY NUMBERING STARTS AT 1
20Num_samples=256!SPECIFY NUMBER OF SAMPLES
30INTEGER Int_samp(1:256) BUFFER!CREATE INTEGER BUFFER
40ALLOCATE REAL Samp(1:Num_samples)!CREATE REAL ARRAY FOR SAMPLES
50ASSIGN @Dvm TO 722!ASSIGN MULTIMETER ADDRESS
60ASSIGN @Int_samp TO BUFFER Int_samp(*)!ASSIGN I/O PATH NAME TO BUFFER
70OUTPUT @Dvm;"PRESET DIG"!TARM HOLD, DCV, 10 V RANGE, 256 SAMPLES
71!PER TRIGGER, TIMER SAMPLE EVENT, TIMER INTERVAL = 20 µs, TRIG
75!LEVEL (0%, AC-COUPLED), 3 µs INTEGRATION TIME, SINT FORMATS
80OUTPUT @Dvm;"TIMER 10E-6"!10 µs INTERVAL BETWEEN SAMPLES
90OUTPUT @Dvm;"APER 1.4E-6"!MAXIMUM APERTURE FOR 100 kHZ SAMP. RATE
100OUTPUT @Dvm;"MEM FIFO"!ENABLE READING MEMORY, FIFO MODE
110OUTPUT @Dvm; "TARM SYN"!SYNCHRONOUS TRIGGER ARM EVENT
120TRANSFER @Dvm TO @Int_samp;WAIT!SYN EVENT,TRANSFER READINGS INTO
121!READING MEMORY AND THEN INTO AN INTEGER ARRAY IN THE COMPUTER;
122!SINCE THE COMPUTER'S INTEGER FORMAT IS THE SAME AS SINT, NO DATA
123!CONVERSION IS NECESSARY HERE (INTEGER ARRAY REQUIRED)
130OUTPUT @Dvm; "ISCALE?"!QUERY SCALE FACTOR FOR SINT FORMAT
140ENTER @Dvm;S!ENTER SCALE FACTOR
150FOR I=1 TO Num_samples
160 Samp(I)=Int_samp(I)!CONVERT EACH INTEGER READING TO REAL
165 !FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT
LINE)
170 R=ABS(Samp(I))!USE ABSOLUTE VALUE TO CHECK FOR OVLD
180 IF R>=32767 THEN PRINT "OVLD"!IF OVLD, PRINT OVERLOAD MESSAGE
190 Samp(I)=Samp(I)*S!MULTIPLY READING TIMES SCALE FACTOR
200 Samp(I)=DROUND(Samp(I),4)!ROUND TO 4 DIGITS
210NEXT I
220END
204 Keysight 3458A User's Guide