https://www.togotech.co.kr/index.php?action=history&feed=atom&title=Prober04-ibw.txt
Prober04-ibw.txt - 편집 역사
2026-04-27T03:19:04Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=Prober04-ibw.txt&diff=31789&oldid=prev
Togotech: 새 문서: 프루버 <pre> 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...
2020-05-23T04:51:43Z
<p>새 문서: <a href="/index.php/%ED%94%84%EB%A3%A8%EB%B2%84" title="프루버" data-bs-title="프루버">프루버</a> <pre> 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...</p>
<p><b>새 문서</b></p><div>[[프루버]]<br />
<pre><br />
10 !Keithley 2420 SourceMeter<br />
20 DIM Infilename$[20],Outfilename$[20],Dhms$[8]<br />
30 INTEGER X,Y,Count,Chipx,Chipy,Padr<br />
40 INTEGER Start,Stop,Step<br />
50 DIM Tmp$[2]<br />
60 Time$=TIME$(TIMEDATE)<br />
70 Date$=DATE$(TIMEDATE)<br />
80 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
90 Outfilename$=Dhms$&".txt"<br />
100 CREATE Outfilename$,1<br />
110 ASSIGN @Outfile TO Outfilename$;FORMAT ON<br />
120 ASSIGN @Probe TO 402;FORMAT ON<br />
130 ASSIGN @Sm TO 424;FORMAT ON<br />
140 OUTPUT @Sm;"FORM:ELEM VOLT, CURR"<br />
150 OUTPUT @Sm;"SOURCE:CLEAR:AUTO ON"<br />
160 OUTPUT @Outfile;"No.,Time,X,Y,Volt,Curr"<br />
170 WAIT 2<br />
180 Chipx=INT(996.1/2.5) !um<br />
190 Chipy=INT(584.3/2.5) !um<br />
200 Padd=50/2.5 !um<br />
210 Padr=INT(Padd/2.) !반지름<br />
220 Wait=.2<br />
230 Count=0<br />
240 T0=TIMEDATE<br />
250 FOR X=0 TO 50<br />
260 Cmd$="MMX"&VAL$(Chipx)&"Y0"<br />
270 OUTPUT @Probe;Cmd$<br />
280 ENTER @Probe;Tmp$<br />
290 IF X MOD 2=0 THEN !짝수이면<br />
300 Start=0<br />
310 Stop=85<br />
320 Step=1<br />
330 ELSE !홀수이면<br />
340 Start=85<br />
350 Stop=0<br />
360 Step=-1<br />
370 END IF <br />
380 FOR Y=Start TO Stop STEP Step<br />
390 Count=Count+1<br />
400 Cmd$="MMX0"&"Y"&VAL$(-(Step)*Chipy)<br />
410 OUTPUT @Probe;Cmd$<br />
420 ENTER @Probe;Tmp$<br />
430 LOOP<br />
440 OUTPUT @Sm;"READ?"<br />
450 ENTER @Sm;Volt,Curr<br />
460 EXIT IF Volt>2.7 AND Volt<2.9<br />
470 Cmd$="MMX3Y0"<br />
480 GOSUB Move_read<br />
490 EXIT IF Volt>2.7 AND Volt<2.9<br />
500 Cmd$="MMX0Y3"<br />
510 GOSUB Move_read<br />
520 EXIT IF Volt>2.7 AND Volt<2.9<br />
530 Cmd$="MMX-3Y0"<br />
540 GOSUB Move_read<br />
550 EXIT IF Volt>2.7 AND Volt<2.9<br />
560 Cmd$="MMX-3Y0"<br />
570 GOSUB Move_read<br />
580 EXIT IF Volt>2.7 AND Volt<2.9<br />
590 Cmd$="MMX0Y-3"<br />
600 GOSUB Move_read<br />
610 EXIT IF Volt>2.7 AND Volt<2.9<br />
620 Cmd$="MMX0Y-3"<br />
630 GOSUB Move_read<br />
640 EXIT IF Volt>2.7 AND Volt<2.9<br />
650 Cmd$="MMX3Y0"<br />
660 GOSUB Move_read<br />
670 EXIT IF Volt>2.7 AND Volt<2.9<br />
680 Cmd$="MMX3Y0"<br />
690 GOSUB Move_read<br />
700 EXIT IF Volt>2.7 AND Volt<2.9<br />
710 PAUSE<br />
720 Cmd$="MMX-5Y5"<br />
730 GOSUB Move_read<br />
740 EXIT IF Volt>2.7 AND Volt<2.9<br />
750 PAUSE<br />
760 EXIT IF 1=1<br />
770 END LOOP <br />
780 T1=TIMEDATE-T0<br />
790 PRINT Count,INT(T1);"sec","X=";X,"Y=";Y,"V=";Volt,"i=";Curr<br />
800 OUTPUT @Outfile;Count,T1,X,Y,Volt,Curr<br />
810 NEXT Y<br />
820 NEXT X<br />
830 STOP<br />
840 Move_read: !<br />
850 OUTPUT @Probe;Cmd$<br />
860 ENTER @Probe;Tmp$<br />
870 OUTPUT @Sm;"READ?"<br />
880 ENTER @Sm;Volt,Curr<br />
890 RETURN<br />
900 END<br />
</pre></div>
Togotech