150
GOTO End
160
Kaboom: PRINT ""
170
PRINT ERRM$
180
PRINT "HERE IS THE E13XX ERROR STATUS"
190
E13xx_errors
200
End: END
210
!
This sub reads all errors from E13xx instruments.
220
SUB E13xx_errors
230
COM @Sys,@Dmm,@Dmm_bin
240
DIM A$[128]
250
ABORT 7
260
CLEAR @Dmm
270
REPEAT
280
OUTPUT @Dmm;"SYST:ERR?"
290
ENTER @Dmm;A,A$
300
PRINT "DMM ERROR ";A$
310
UNTIL A=0
320
!
330
CLEAR @Sys
340
REPEAT
350
OUTPUT @Sys;"SYST:ERR?"
360
ENTER @Sys;A,A$
370
PRINT "SYSTEM ERROR ";A$
380
UNTIL A=0
390
SUBEND
400
!
This subroutine is treated as the main line.
410
SUB Main
420
COM @Sys,@Dmm,@Dmm_bin
430
!
Put application code here.
440
!
Program the DMM to take 10000 readings FAST.
450
OUTPUT @Dmm;"CONF:VOLT:DC;:VOLT:RANGE:AUTO
OFF;:CAL:ZERO:AUTO OFF;:VOLT:APER MIN"
460
OUTPUT @Dmm;"SAMP:SOUR TIM;SAMP:TIM 76E-6;SAMP:COUNT 10000"
470
!
Take the readings now
480
OUTPUT @Dmm;"INIT;*OPC?"
490
ENTER @Dmm;A
500
!
Now time taking the 10000 readings out in ASCII
510
OUTPUT @Dmm;"FORMAT ASCII"
520
DIM Readings(1:10000)
530
OUTPUT @Dmm;"FETCH?"
540
Start=TIMEDATE
Continued on Next Page
272 Measurement Speed and Accuracy Tradeoffs
Appendix D
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com