Agilent Technologies 3458A User Manual page 212

OFORMAT
212 Chapter 6 Command Reference
120 FOR I=1 TO Num_readings
130 Rdgs(I)=Int_rdgs(I)
135 !FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT LINE)
140 R=ABS(Rdgs(I))
150 IF R>=32767 THEN PRINT "OVLD" !IF OVLD, PRINT OVERLOAD MESSAGE
160 Rdgs(I)=Rdgs(I)*S
170 Rdgs(I)=DROUND(Rdgs(I),4)
180 NEXT I
190 END
DINT Format
The following program is similar to the preceding program except that it takes 50
readings and transfers them to the computer using the DINT format.
10 OPTION BASE 1
20 INTEGER Num_readings,I,J,K
30 Num_readings=50
40 ALLOCATE REAL Rdgs(1:Num_readings)!CREATE ARRAY FOR READINGS
50 ASSIGN @Dvm TO 722
60 ASSIGN dBuffer TO BUFFER[4*Num_readings] !ASSIGN BUFFER I/O PATH NAME
70 OUTPUT @Dvm;"PRESET NORM;RANGE 10;OFORMAT DINT;NRDGS ";Num_readings
75 !TARM AUTO, TRIG SYN, DCV 10V RANGE, DINT OUTPUT FORMAT, NRDGS 50,AUTO
80 TRANSFER @Dvm TO @Buffer;WAIT
90 OUTPUT @Dvm; "ISCALE?"
100 ENTER @Dvm; S
110 FOR I=1 TO Num_readings
120 ENTER @Buffer USING "#,W,W";J,K!ENTER ONE 16-BIT 2'S COMPLEMENT
121 !WORD INTO EACH VARIABLE J AND K (# = STATEMENT TERMINATION NOT
125 !REQUIRED; W
130 Rdgs(I)=(J*65536.+K+65536.*(K<O))!CONVERT TO REAL NUMBER
140 R=ABS(Rdgs(I))
150 IF R>2147483647 THEN PRINT "OVLD"!IF OVERLOAD OCCURRED, PRINT MESSAGE
160 Rdgs(I)=Rdgs(I)*S
170 Rdgs(I)=DROUND(Rdgs(I),8)
180 PRINT Rdgs(I)
190 NEXT I
200 END
SREAL Format
The following program shows how to convert 10 readings output in the SREAL
format.
10 OPTION BASE 1
20 INTEGER Num_readings
30 Num_readings=10
40 ALLOCATE REAL Rdgs(1:Num_readings)!CREATE ARRAY FOR READINGS
50 ASSIGN @Dvm TO 722
60 ASSIGN @Buffer TO BUFFER [4*Num_readings]!ASSIGN BUFFER I/O PATH NAME
!CONVERT EACH INTEGER READING TO REAL
!USE ABSOLUTE VALUE TO CHECK FOR OVLD
!MULTIPLY READING TIMES SCALE FACTOR
!ROUND TO 4 DIGITS
!COMPUTER ARRAY NUMBERING STARTS AT 1
!DECLARE VARIABLES
!NUMBER OF READINGS = 50
!ASSIGN MULTIMETER ADDRESS
!SYN EVENT,TRANSFER READINGS
!QUERY SCALE FOR DINT
!ENTER SCALE FACTOR
= ENTER DATA AS 16-BIT 2'S COMPLEMENT INTEGER)
!USE ABSOLUTE VALUE TO CHECK FOR OVLD
!APPLY SCALE FACTOR
!ROUND CONVERTED READING
!PRINT READINGS
!COMPUTER ARRAY NUMBERING STARTS AT 1
!DECLARE VARIABLE
!NUMBER OF READINGS = 10
!ASSIGN MULTIMETER ADDRESS