Agilent Technologies 54503A Guia do Utilizador descarregar pdf (Página 461)

Chapter 7 461

Language Reference

10 DIM Err$[200]

20 OUTPUT 718;"ERR?;"

30 ENTER 718;Err$

40 PRINT Err$

50 !the following routine removes the comma between error

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]

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

190 Err=VAL(Err$)

200 IF Err<0 THEN

210 PRINT Err

230 PRINT "NO ERRORS"

260 !end routine

Sem comentários

Agilent Technologies 54503A Guia do Utilizador Página 461