Hioki 9518-02, Instruction Manual, Page: 79 / 86

73
────────────────────────────────────────────────────
────────────────────────────────────────────────────
(4) Testing at five positions and outputting of a text data file
After test settings, five tests are made, and their results are outputted in a
text data file.
Program List
100 DIM R$[10],T$[40],Te$[10],K$[10],Res$[40]
110 N=0
120 CREATE ASCII "FILE1",100
130 ASSIGN @Path TO "FILE1"
140 Stateready: !
150 OUTPUT 701;":STAT?"
160 ENTER 701;R$
170 IF R$="READY" THEN GOTO Setting
180 OUTPUT 701;":STOP"
190 GOTO Stateready
200 Setting: !
210
OUTPUT 701;":HEAD OFF"
220 OUTPUT 701;":CONF:CURR 25.0"
230 OUTPUT 701;":UNIT OHM"
240 OUTPUT 701;":UPP ON"
250 OUTPUT 701;":CONF:RUPP 0.100"
260 OUTPUT 701;":TIM ON"
270 OUTPUT 701;":CONF:TIM 5.0"
280 Testing: !
290 INPUT "PRESS ANY KEY TO START",A$
300 OUTPUT 701;":STAR"
310 Statetest: !
320 OUTPUT 701;":STAT?"
330 ENTER 701;T$
340 IF T$="TEST" THEN Statetestend
350 GOTO Statetest
360 Statetestend: !
370 OUTPUT 701;":STAT?"
380 ENTER 701;Te$
390 IF Te$="TEST" THEN GOTO Statetestend
400 Result: !
410 N=N+1
420 OUTPUT 701;":MEAS:RES:RES?"
430 ENTER 701;Res$
440 PRINT Res$
450 OUTPUT @Path;Res$
460 IF Te$="UFAIL" THEN OUTPUT 701;":STOP"
470 IF N=5 THEN GOTO Exit1
480 GOTO Testing
490 Exit1: !
500 ASSIGN @Path TO *
510 END
Program comments
Line Comment
120-130
Open a file
140-190
Confirm that the 3157 is in the READY state.
200-270
Make test settings.
280-300
Check that a test has started.
310-350
Confirm that the 3157 is in the TEST state.
360-390
Check that a test has finished.
400-480
Display the test results and outputs them to a file.