프루버
10 !Keithley 2420 SourceMeter
20 DIM Infilename$[20],Outfilename$[20],Dhms$[8]
30 INTEGER X,Y,Count,Chipx,Chipy,Padr
40 INTEGER Start,Stop,Step
50 DIM Tmp$[2]
60 Time$=TIME$(TIMEDATE)
70 Date$=DATE$(TIMEDATE)
80 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
90 Outfilename$=Dhms$&".txt"
100 CREATE Outfilename$,1
110 ASSIGN @Outfile TO Outfilename$;FORMAT ON
120 ASSIGN @Probe TO 402;FORMAT ON
130 ASSIGN @Sm TO 424;FORMAT ON
140 OUTPUT @Sm;"FORM:ELEM VOLT, CURR"
150 OUTPUT @Sm;"SOURCE:CLEAR:AUTO ON"
160 OUTPUT @Outfile;"No.,Time,X,Y,Volt,Curr"
170 WAIT 2
180 Chipx=INT(996.1/2.5) !um
190 Chipy=INT(584.3/2.5) !um
200 Padd=50/2.5 !um
210 Padr=INT(Padd/2.) !반지름
220 Wait=.2
230 Count=0
240 T0=TIMEDATE
250 FOR X=0 TO 50
260 Cmd$="MMX"&VAL$(Chipx)&"Y0"
270 OUTPUT @Probe;Cmd$
280 ENTER @Probe;Tmp$
290 IF X MOD 2=0 THEN !짝수이면
300 Start=0
310 Stop=85
320 Step=1
330 ELSE !홀수이면
340 Start=85
350 Stop=0
360 Step=-1
370 END IF
380 FOR Y=Start TO Stop STEP Step
390 Count=Count+1
400 Cmd$="MMX0"&"Y"&VAL$(-(Step)*Chipy)
410 OUTPUT @Probe;Cmd$
420 ENTER @Probe;Tmp$
430 LOOP
440 OUTPUT @Sm;"READ?"
450 ENTER @Sm;Volt,Curr
460 EXIT IF Volt>2.7 AND Volt<2.9
470 Cmd$="MMX3Y0"
480 GOSUB Move_read
490 EXIT IF Volt>2.7 AND Volt<2.9
500 Cmd$="MMX0Y3"
510 GOSUB Move_read
520 EXIT IF Volt>2.7 AND Volt<2.9
530 Cmd$="MMX-3Y0"
540 GOSUB Move_read
550 EXIT IF Volt>2.7 AND Volt<2.9
560 Cmd$="MMX-3Y0"
570 GOSUB Move_read
580 EXIT IF Volt>2.7 AND Volt<2.9
590 Cmd$="MMX0Y-3"
600 GOSUB Move_read
610 EXIT IF Volt>2.7 AND Volt<2.9
620 Cmd$="MMX0Y-3"
630 GOSUB Move_read
640 EXIT IF Volt>2.7 AND Volt<2.9
650 Cmd$="MMX3Y0"
660 GOSUB Move_read
670 EXIT IF Volt>2.7 AND Volt<2.9
680 Cmd$="MMX3Y0"
690 GOSUB Move_read
700 EXIT IF Volt>2.7 AND Volt<2.9
710 PAUSE
720 Cmd$="MMX-5Y5"
730 GOSUB Move_read
740 EXIT IF Volt>2.7 AND Volt<2.9
750 PAUSE
760 EXIT IF 1=1
770 END LOOP
780 T1=TIMEDATE-T0
790 PRINT Count,INT(T1);"sec","X=";X,"Y=";Y,"V=";Volt,"i=";Curr
800 OUTPUT @Outfile;Count,T1,X,Y,Volt,Curr
810 NEXT Y
820 NEXT X
830 STOP
840 Move_read: !
850 OUTPUT @Probe;Cmd$
860 ENTER @Probe;Tmp$
870 OUTPUT @Sm;"READ?"
880 ENTER @Sm;Volt,Curr
890 RETURN
900 END