"Prober02-ibw.txt"의 두 판 사이의 차이
(새 문서: 프루버 <pre> 10 !파일로 존재하는 XY 좌표대로, 특성값을 읽어들이는 프로그램 2020/04/19 김명기, 20 !hp 3478A DMM 30 !hp 4284A LCR 40 !...) |
(차이 없음)
|
2020년 5월 23일 (토) 13:50 기준 최신판
10 !파일로 존재하는 XY 좌표대로, 특성값을 읽어들이는 프로그램 2020/04/19 김명기, 20 !hp 3478A DMM 30 !hp 4284A LCR 40 !Keithley 2420 SourceMeter 50 DIM Infilename$[20],Outfilename$[20],Dhms$[8] 60 INTEGER I,J,Diex,Diey 70 DIM Tmp$[1] 80 Time$=TIME$(TIMEDATE) 90 Date$=DATE$(TIMEDATE) 100 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 110 Infilename$="XY-01.txt" 120 Outfilename$=Dhms$&".txt" 130 CREATE Outfilename$,1 140 ASSIGN @Infile TO Infilename$;FORMAT ON 150 ASSIGN @Outfile TO Outfilename$;FORMAT ON 160 ASSIGN @Probe TO 402 170 Inst=3 180 SELECT Inst 190 CASE 1 !3478A 200 ASSIGN @Dmm TO 427 210 OUTPUT @Outfile;"No.,Time,X,Y,R" 220 CASE 2 !4284A 230 ASSIGN @Lcr TO 417 240 OUTPUT @Lcr;"TRIG:SOUR BUS" 250 OUTPUT @Lcr;"ABORT;:INIT" 260 OUTPUT @Outfile;"No.,Time,X,Y,A-value,B-value" 270 CASE 3 !2420 280 ASSIGN @Sm TO 424 290 OUTPUT @Sm;"FORM:ELEM VOLT, CURR" 300 OUTPUT @Sm;"SOURCE:CLEAR:AUTO ON" 310 OUTPUT @Outfile;"No.,Time,X,Y,Volt,Curr" 320 END SELECT 330 GOSUB Infile_retrieve 340 T0=TIMEDATE 350 FOR I=1 TO Total_count 360 Diex=X(I) 370 Diey=-Y(I) 380 OUTPUT @Probe;"MOX"&VAL$(Diex)&"Y"&VAL$(Diey) 390 ENTER @Probe;Tmp$ 400 WAIT 1 410 T1=TIMEDATE-T0 420 SELECT Inst 430 CASE 1 !3478A 440 ENTER @Dmm;R 450 PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"R=";R 460 OUTPUT @Outfile;I,T1,X(I),Y(I),R 470 CASE 2 !4284A 480 OUTPUT @Lcr;"TRIGGER:IMMEDIATE" 490 OUTPUT @Lcr;"FETCH?" 500 ENTER @Lcr;A,B,C 510 PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"A=";A,"B=";B 520 OUTPUT @Outfile;I,T1,X(I),Y(I),A,B 530 CASE 3 !2420 540 OUTPUT @Sm;"READ?" 550 ENTER @Sm;Volt,Curr 560 PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"V=";Volt,"i=";Curr 570 OUTPUT @Outfile;I,T1,X(I),Y(I),Volt,Curr 580 END SELECT 590 NEXT I 600 STOP 610 Infile_retrieve: ! 620 INTEGER Nod,Total_count 630 Nod=3000 640 ALLOCATE INTEGER X(Nod),Y(Nod) 650 ENTER @Infile;Total_count 660 FOR I=1 TO Total_count 670 ENTER @Infile;X(I),Y(I) 680 NEXT I 690 ASSIGN @Infile TO * 700 RETURN 710 END