Prober04-ibw.txt

프루버

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