Opt - Agilent Technologies 3458A User Manual

70 OUTPUT @Dvm;"PRESET NORM;OFORMAT SREAL;NRDGS ";Num_readings
75 !TRIG SYN, SREAL OUTPUT FORMAT, 1 PLC, DCV AUTORANGE, 10 READINGS
80 TRANSFER @Dvm TO @Buffer;WAIT
90 FOR I=1 TO Num_readings
100 ENTER @Buffer USING "#,B";A,B,C,D!ENTER ONE 8-BIT BYTE INTO
101 !EACH VARIABLE, (# =STATEMENT TERMINATION NOT REQUIRED, B = ENTER ONE
105 !8-BIT BYTE AND INTERPRET AS AN INTEGER BETWEEN 0 AND 255)
110 S=1
120 IF A>127 THEN S=-1
130 IF A>127 THEN A=A-128
140 A=A*2- 127
150 IF B>127 THEN A=A+l
160 IF B<=127 THEN B=B+128
170 Rdgs(I)=S*(B*65536.+C*256.+D)*2ˆ(A-23)!CONVERT READING FROM SREAL
180 Rdgs(I)=DROUND(Rdgs(I),7)
181 !MUST DO THIS WITH SREAL TO ENSURE ANY OVLD VALUES ARE ROUNDED TO
185 !1.E+38 (WITHOUT ROUNDING, THE VALUE MAY BE SLIGHTLY LESS)
190 IF ABS(Rdgs(I)=1.E+38 THEN
200 PRINT "Overload Occurred"
210 ELSE
220 PRINT Rdgs(I)
230 END IF
240 NEXT I
250 END
DREAL Format
The following program uses the DREAL output format. Notice that no conversion
is necessary using this format since DREAL is the same format that the controller
uses as its internal data format (8-bytes/word).
10 OPTION BASE 1
20 REAL Rdgs(1:1O) BUFFER
30 ASSIGN @Dvm TO 722
40 ASSIGN @Rdgs TO BUFFER Rdgs(*) !ASSIGN BUFFER I/O PATH NAME
50 OUTPUT @Dvm;"PRESET NORM;NPLC 10;OFORMAT DREAL;NRDGS 10"
55 !TRIG SYN, 10 PLCs, DCV AUTORANGE, DREAL OUTPUT FORMAT, 10 RDGS/TRIG.
60 TRANSFER @Dvm TO @Rdgs;WAIT!SYN EVENT, TRANSFER READINGS
70 FOR I=1 TO 10
80 IF ABS(Rdgs(I))=l.E+38 THEN !IF OVERLOAD OCCURRED:
90 PRINT "OVERLOAD OCCURRED"
100 ELSE
110 Rdgs(I)=DROUND(Rdgs(I),8)
120 PRINT Rdgs(I)
130 END IF
140 NEXT I
150 END
!SYN EVENT; TRANSFER READINGS
!CONVERT READING FROM SREAL
!CONVERT READING FROM SREAL
!CONVERT READING FROM SREAL
!CONVERT READING FROM SREAL
!CONVERT READING FROM SREAL
!CONVERT READING FROM SREAL
!ROUND READING TO 7 DIGITS; YOU
!IF OVERLOAD OCCURRED:
!PRINT OVERLOAD MESSAGE
!IF NO OVERLOAD OCCURRED:
!PRINT READING
!COMPUTER ARRAY NUMBERING STARTS AT 1
!CREATE BUFFER ARRAY
!ASSIGN MULTIMETER ADDRESS
!PRINT OVERLOAD MESSAGE
!IF NO OVERLOAD:
!ROUND READINGS
!PRINT READINGS
Chapter 6 Command Reference
OFORMAT
213