https://www.togotech.co.kr/index.php?action=history&feed=atom&title=Prober02-ibw.txt
Prober02-ibw.txt - 편집 역사
2026-04-27T03:12:09Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=Prober02-ibw.txt&diff=31787&oldid=prev
Togotech: 새 문서: 프루버 <pre> 10 !파일로 존재하는 XY 좌표대로, 특성값을 읽어들이는 프로그램 2020/04/19 김명기, 20 !hp 3478A DMM 30 !hp 4284A LCR 40 !...
2020-05-23T04:50:45Z
<p>새 문서: <a href="/index.php/%ED%94%84%EB%A3%A8%EB%B2%84" title="프루버" data-bs-title="프루버">프루버</a> <pre> 10 !파일로 존재하는 XY 좌표대로, 특성값을 읽어들이는 프로그램 2020/04/19 김명기, 20 !hp 3478A DMM 30 !hp 4284A LCR 40 !...</p>
<p><b>새 문서</b></p><div>[[프루버]]<br />
<pre><br />
10 !파일로 존재하는 XY 좌표대로, 특성값을 읽어들이는 프로그램 2020/04/19 김명기, <br />
20 !hp 3478A DMM<br />
30 !hp 4284A LCR<br />
40 !Keithley 2420 SourceMeter<br />
50 DIM Infilename$[20],Outfilename$[20],Dhms$[8]<br />
60 INTEGER I,J,Diex,Diey<br />
70 DIM Tmp$[1]<br />
80 Time$=TIME$(TIMEDATE)<br />
90 Date$=DATE$(TIMEDATE)<br />
100 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
110 Infilename$="XY-01.txt"<br />
120 Outfilename$=Dhms$&".txt"<br />
130 CREATE Outfilename$,1<br />
140 ASSIGN @Infile TO Infilename$;FORMAT ON<br />
150 ASSIGN @Outfile TO Outfilename$;FORMAT ON<br />
160 ASSIGN @Probe TO 402<br />
170 Inst=3<br />
180 SELECT Inst<br />
190 CASE 1 !3478A<br />
200 ASSIGN @Dmm TO 427<br />
210 OUTPUT @Outfile;"No.,Time,X,Y,R"<br />
220 CASE 2 !4284A<br />
230 ASSIGN @Lcr TO 417<br />
240 OUTPUT @Lcr;"TRIG:SOUR BUS"<br />
250 OUTPUT @Lcr;"ABORT;:INIT"<br />
260 OUTPUT @Outfile;"No.,Time,X,Y,A-value,B-value"<br />
270 CASE 3 !2420<br />
280 ASSIGN @Sm TO 424<br />
290 OUTPUT @Sm;"FORM:ELEM VOLT, CURR"<br />
300 OUTPUT @Sm;"SOURCE:CLEAR:AUTO ON"<br />
310 OUTPUT @Outfile;"No.,Time,X,Y,Volt,Curr"<br />
320 END SELECT <br />
330 GOSUB Infile_retrieve<br />
340 T0=TIMEDATE<br />
350 FOR I=1 TO Total_count<br />
360 Diex=X(I)<br />
370 Diey=-Y(I)<br />
380 OUTPUT @Probe;"MOX"&VAL$(Diex)&"Y"&VAL$(Diey)<br />
390 ENTER @Probe;Tmp$<br />
400 WAIT 1<br />
410 T1=TIMEDATE-T0<br />
420 SELECT Inst<br />
430 CASE 1 !3478A<br />
440 ENTER @Dmm;R<br />
450 PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"R=";R<br />
460 OUTPUT @Outfile;I,T1,X(I),Y(I),R<br />
470 CASE 2 !4284A<br />
480 OUTPUT @Lcr;"TRIGGER:IMMEDIATE"<br />
490 OUTPUT @Lcr;"FETCH?"<br />
500 ENTER @Lcr;A,B,C<br />
510 PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"A=";A,"B=";B<br />
520 OUTPUT @Outfile;I,T1,X(I),Y(I),A,B<br />
530 CASE 3 !2420<br />
540 OUTPUT @Sm;"READ?"<br />
550 ENTER @Sm;Volt,Curr<br />
560 PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"V=";Volt,"i=";Curr<br />
570 OUTPUT @Outfile;I,T1,X(I),Y(I),Volt,Curr<br />
580 END SELECT <br />
590 NEXT I<br />
600 STOP<br />
610 Infile_retrieve: !<br />
620 INTEGER Nod,Total_count<br />
630 Nod=3000<br />
640 ALLOCATE INTEGER X(Nod),Y(Nod)<br />
650 ENTER @Infile;Total_count<br />
660 FOR I=1 TO Total_count<br />
670 ENTER @Infile;X(I),Y(I)<br />
680 NEXT I<br />
690 ASSIGN @Infile TO *<br />
700 RETURN<br />
710 END<br />
</pre></div>
Togotech