Keysight Technologies 3458A Guide D'utilisation page 311

Command Reference 6
SREAL format
The following program shows how to convert 10 readings output in the SREAL
format.
10 OPTION BASE 1 !COMPUTER ARRAY NUMBERING STARTS AT 1
20 INTEGER Num_readings !DECLARE VARIABLE
30 Num_readings=10 !NUMBER OF READINGS = 10
40 ALLOCATE REAL Rdgs(1:Num_readings) !CREATE ARRAY FOR READINGS
50 ASSIGN @Dvm TO 722 !ASSIGN MULTIMETER ADDRESS
60 ASSIGN @Buffer TO BUFFER [4*Num_readings] !ASSIGN BUFFER I/O PATH
NAME
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 !SYN EVENT; TRANSFER READINGS
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 !CONVERT READING FROM SREAL
120 IF A>127 THEN S=-1 !CONVERT READING FROM SREAL
130 IF A>127 THEN A=A-128 !CONVERT READING FROM SREAL
140 A=A*2- 127 !CONVERT READING FROM SREAL
150 IF B>127 THEN A=A+1 !CONVERT READING FROM SREAL
160 IF B<=127 THEN B=B+128 !CONVERT READING FROM SREAL
170 Rdgs(I)=S*(B*65536.+C*256.+D)*2ˆ(A-23) !CONVERT READING FROM SREAL
180 Rdgs(I)=DROUND(Rdgs(I),7) !ROUND READING TO 7 DIGITS; YOU
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 !IF OVERLOAD OCCURRED:
200 PRINT "Overload Occurred" !PRINT OVERLOAD MESSAGE
210 ELSE !IF NO OVERLOAD OCCURRED:
Keysight 3458A User's Guide 311