OFORMAT
212 Chapter 6 Command Reference
120 FOR I=1 TO Num_readings
130 Rdgs(I)=Int_rdgs(I) !CONVERT EACH INTEGER READING TO REAL
135 !FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT LINE)
140 R=ABS(Rdgs(I)) !USE ABSOLUTE VALUE TO CHECK FOR OVLD
150 IF R>=32767 THEN PRINT "OVLD" !IF OVLD, PRINT OVERLOAD MESSAGE
160 Rdgs(I)=Rdgs(I)*S !MULTIPLY READING TIMES SCALE FACTOR
170 Rdgs(I)=DROUND(Rdgs(I),4) !ROUND TO 4 DIGITS
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 !COMPUTER ARRAY NUMBERING STARTS AT 1
20 INTEGER Num_readings,I,J,K !DECLARE VARIABLES
30 Num_readings=50 !NUMBER OF READINGS = 50
40 ALLOCATE REAL Rdgs(1:Num_readings)!CREATE ARRAY FOR READINGS
50 ASSIGN @Dvm TO 722 !ASSIGN MULTIMETER ADDRESS
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 !SYN EVENT,TRANSFER READINGS
90 OUTPUT @Dvm; "ISCALE?" !QUERY SCALE FOR DINT
100 ENTER @Dvm; S !ENTER SCALE FACTOR
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 = ENTER DATA AS 16-BIT 2'S COMPLEMENT INTEGER)
130 Rdgs(I)=(J*65536.+K+65536.*(K<O))!CONVERT TO REAL NUMBER
140 R=ABS(Rdgs(I)) !USE ABSOLUTE VALUE TO CHECK FOR OVLD
150 IF R>2147483647 THEN PRINT "OVLD"!IF OVERLOAD OCCURRED, PRINT MESSAGE
160 Rdgs(I)=Rdgs(I)*S !APPLY SCALE FACTOR
170 Rdgs(I)=DROUND(Rdgs(I),8) !ROUND CONVERTED READING
180 PRINT Rdgs(I) !PRINT READINGS
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 !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
To Next Page
Loading...
Need help?
General
