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