Agilent Technologies 54503A User's Guide download pdf (Page 461)

Chapter 7 461

Language Reference

ERR Error

Example

10 DIM Err$[200]

20 OUTPUT 718;"ERR?;"

30 ENTER 718;Err$

40 PRINT Err$

50 !the following routine removes the comma between error

sin

a string

60 Position_comma=POS(Err$,",")

70 IF Position_comma>0 THEN

80 !multiple errors

90 First_error=VAL(Err$)

100 PRINT First_error

110 Err$=Err$[POS(Err$,",")+1]

120 REPEAT

130 Position_comma=POS(Err$,",")

140 Next_error=VAL(Err$)

150 PRINT Next_error

160 IF Position_comma THEN Err$=Err$[POS(Err$,",")+1]

170 UNTIL Position_comma=0

180 ELSE

190 Err=VAL(Err$)

200 IF Err<0 THEN

210 PRINT Err

220 ELSE

230 PRINT "NO ERRORS"

240 END IF

250 END IF

260 !end routine

270 END

1 ... 460 461 462 ... 716

Comments to this Manuals

No comments