Chapter 6 Command Reference 213
OFORMAT
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+l !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:
220 PRINT Rdgs(I) !PRINT READING
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 !COMPUTER ARRAY NUMBERING STARTS AT 1
20 REAL Rdgs(1:1O) BUFFER !CREATE BUFFER ARRAY
30 ASSIGN @Dvm TO 722 !ASSIGN MULTIMETER ADDRESS
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" !PRINT OVERLOAD MESSAGE
100 ELSE !IF NO OVERLOAD:
110 Rdgs(I)=DROUND(Rdgs(I),8) !ROUND READINGS
120 PRINT Rdgs(I) !PRINT READINGS
130 END IF
140 NEXT I
150 END
To Next Page
Loading...
Need help?
General
