Prober01-ibw.txt

10     !저항만 읽어들이는 프로그램 2016/09/06 김명기
11     !KEITHLEY 2612B
20     DIM Infilename$[20],Outfilename$[20],Dhms$[8]
30     INTEGER I,J,Diex,Diey
40     DIM Tmp$[1]
50     Time$=TIME$(TIMEDATE)
60     Date$=DATE$(TIMEDATE)
70     Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
80     Infilename$="XY-01.txt"
90     Outfilename$=Dhms$&".txt"
100    CREATE Outfilename$,1
110    ASSIGN @Probe TO 402
120    ASSIGN @Sm TO 426
130    ASSIGN @Infile TO Infilename$;FORMAT ON
140    ASSIGN @Outfile TO Outfilename$;FORMAT ON
150    GOSUB Infile_retrieve
160    T0=TIMEDATE
170    FOR I=1 TO Total_count
180      Diex=X(I)
190      Diey=-Y(I)
200      OUTPUT @Probe;"MOX"&VAL$(Diex)&"Y"&VAL$(Diey)
210      ENTER @Probe;Tmp$
220      WAIT .2
230      OUTPUT @Sm;"print(smua.measure.iv())"
240      ENTER @Sm;Curr,Volt
250      T1=TIMEDATE-T0
260      PRINT Count,INT(T1);"sec","X=";X(I),"Y=";Y(I),"V=";Volt,"I=";Curr
270      OUTPUT @Outfile;Count,T1,X(I),Y(I),Volt,Curr
280    NEXT I
290    STOP
300 Infile_retrieve:    !
310    INTEGER Nod,Total_count
320    Nod=3000
330    ALLOCATE INTEGER X(Nod),Y(Nod)
340    ENTER @Infile;Total_count
350    FOR I=1 TO Total_count
360      ENTER @Infile;X(I),Y(I)
370    NEXT I
380    ASSIGN @Infile TO *
390    RETURN
400    END