https://www.togotech.co.kr/index.php?action=history&feed=atom&title=Stol-01-ibw.txt
Stol-01-ibw.txt - 편집 역사
2026-04-26T11:51:02Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=Stol-01-ibw.txt&diff=53604&oldid=prev
Togotech: 새 문서: STOL 시험 <pre> 10 INTEGER X,Y,Count,Type,Inst 20 DIM Tmp$[2],Cmd$[15] 30 Type=1 !1은 정사각형 0,0에서 Y축 순서대로 40 Inst=2 !1=3478DMM 2=...
2022-01-16T12:57:00Z
<p>새 문서: <a href="/index.php/STOL_%EC%8B%9C%ED%97%98" title="STOL 시험" data-bs-title="STOL_시험">STOL 시험</a> <pre> 10 INTEGER X,Y,Count,Type,Inst 20 DIM Tmp$[2],Cmd$[15] 30 Type=1 !1은 정사각형 0,0에서 Y축 순서대로 40 Inst=2 !1=3478DMM 2=...</p>
<p><b>새 문서</b></p><div>[[STOL 시험]]<br />
<pre><br />
10 INTEGER X,Y,Count,Type,Inst<br />
20 DIM Tmp$[2],Cmd$[15]<br />
30 Type=1 !1은 정사각형 0,0에서 Y축 순서대로<br />
40 Inst=2 !1=3478DMM 2=3457DMM 3=2420SM<br />
50 ! GOSUB Prober_setup<br />
60 GOSUB Filesave<br />
70 ! GOSUB Inst_setup<br />
80 ! GOSUB Save_head<br />
90 ! GOSUB Run<br />
100 ASSIGN @Ps TO 404<br />
110 ASSIGN @Sw TO 405<br />
120 ASSIGN @Dmm TO 403<br />
130 OUTPUT @Dmm;"OHMF"<br />
140 OUTPUT @Dmm;"NPLC 10"<br />
150 OUTPUT @Sw;"CMON 1"<br />
160 ! DMM 측정<br />
170 DIM Switch$[23]<br />
180 Switch$="100,101,102,103,104,105"<br />
190 OUTPUT @Sw;"OPEN ";Switch$<br />
200 OUTPUT @Dmm;"TRIG SGL"<br />
210 ENTER @Dmm;R0<br />
220 PRINT "R0=";R0<br />
230 W=1/16. !P=IV V=sqrt(WR), I=sqrt(W/R)<br />
240 V=SQRT(W*R0)<br />
250 PRINT "V=";V<br />
260 IF (V>20) THEN<br />
270 PRINT "전압 20V 초과"<br />
280 STOP<br />
290 END IF <br />
300 A=SQRT(W/R0)<br />
310 PRINT "A=";A<br />
320 IF (A>2) THEN<br />
330 PRINT "전류 2A 초과"<br />
340 STOP<br />
350 END IF <br />
360 OUTPUT @Ps;"CURR ";2<br />
370 ! loop 시작<br />
380 Count=0<br />
390 OUTPUT @Outfile;"No., V[V], R0[ohm], R[ohm], R-delta[%]"<br />
400 OUTPUT @Outfile;Count,0,R0<br />
410 LOOP<br />
420 Count=Count+1<br />
430 OUTPUT @Sw;"CLOSE ";Switch$<br />
440 OUTPUT @Ps;"VOLT ";V<br />
450 OUTPUT @Ps;"OUTP ON"<br />
460 WAIT 5 !전압 5초간 인가<br />
470 OUTPUT @Ps;"OUTP OFF"<br />
480 WAIT 5 !5초간 전압 끊고<br />
490 OUTPUT @Sw;"OPEN ";Switch$<br />
500 OUTPUT @Dmm;"TRIG SGL"<br />
510 ENTER @Dmm;R<br />
520 R_delta=(R-R0)/R0*100<br />
530 PRINT "No=";Count;" V=";V;" R=";R;" delta=";PROUND(R_delta,-4)<br />
540 OUTPUT @Outfile;Count,V,R,R_delta<br />
550 EXIT IF ABS(R_delta)>5<br />
560 V=V*(1+.1)<br />
561 I=V/R0<br />
563 EXIT IF I>2<br />
570 EXIT IF V>20<br />
580 END LOOP <br />
590 ! loop 끝<br />
600 STOP<br />
610 Run: !<br />
620 Count=0<br />
630 T0=TIMEDATE<br />
640 SELECT Type<br />
650 CASE 1<br />
660 FOR X=0 TO 29 !X 개수-1<br />
670 FOR Y=0 TO 29 !Y 개수-1<br />
680 Cmd$="MOX"&VAL$(X)&"Y-"&VAL$(Y)<br />
690 GOSUB Move<br />
700 Count=Count+1<br />
710 T=TIMEDATE-T0<br />
720 GOSUB Read<br />
730 GOSUB Save<br />
740 NEXT Y<br />
750 NEXT X<br />
760 CASE 2<br />
770 END SELECT <br />
780 GOSUB Inst_init<br />
790 RETURN<br />
800 Prober_setup: !<br />
810 ASSIGN @Probe TO 402<br />
820 RETURN<br />
830 Filesave: !<br />
840 DIM Outfilename$[20],Dhms$[8]<br />
850 Time$=TIME$(TIMEDATE)<br />
860 Date$=DATE$(TIMEDATE)<br />
870 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
880 Outfilename$=Dhms$&".txt"<br />
890 CREATE Outfilename$,1<br />
900 ASSIGN @Outfile TO Outfilename$;FORMAT ON<br />
910 RETURN<br />
920 Inst_setup: !!! 계측기 셋업<br />
930 SELECT Inst<br />
940 CASE 1<br />
950 ASSIGN @Dmm TO 427 !hp 3478 dmm<br />
960 CASE 2<br />
970 ASSIGN @Dmm TO 403 !hp 3457 dmm<br />
980 OUTPUT @Dmm;"NPLC 10"<br />
990 CASE 3<br />
1000 ASSIGN @Sm TO 424 !Keithley 2420 SourceMeter<br />
1010 OUTPUT @Sm;"ROUT:TERM FRON" !front terminal<br />
1020 OUTPUT @Sm;"SYST:RSEN ON" !4-wire<br />
1030 OUTPUT @Sm;"SOUR:FUNC CURR" !i-source<br />
1040 OUTPUT @Sm;"SOUR:CURR:MODE FIX"<br />
1050 OUTPUT @Sm;"SOUR:CURR:RANG:AUTO ON"<br />
1060 OUTPUT @Sm;"SOUR:CURR:LEV 0.10" !10mA<br />
1070 OUTPUT @Sm;"SENS:FUNC ""VOLT""" !v-measure<br />
1080 OUTPUT @Sm;"SENS:VOLT:PROT 10" !compliance V=10V<br />
1090 OUTPUT @Sm;"VOLT:RANG 10"<br />
1100 OUTPUT @Sm;"FORM:ELEM VOLT,CURR"!출력 데이터는 전압,전류만<br />
1110 OUTPUT @Sm;"SOUR:CLE:AUTO ON" !측정할 때만 출력 ON/OFF 자동으로<br />
1120 END SELECT <br />
1130 RETURN<br />
1140 Inst_init: !!! 계측기 초기화<br />
1150 SELECT Inst<br />
1160 CASE 1<br />
1170 CASE 2<br />
1180 OUTPUT @Dmm;"TRIG AUTO"<br />
1190 CASE 3<br />
1200 END SELECT <br />
1210 RETURN<br />
1220 Move:!<br />
1230 OUTPUT @Probe;Cmd$<br />
1240 ENTER @Probe;Tmp$<br />
1250 RETURN<br />
1260 Read:!<br />
1270 SELECT Inst<br />
1280 CASE 1<br />
1290 GOSUB Read_3478<br />
1300 CASE 2<br />
1310 GOSUB Read_3457<br />
1320 CASE 3<br />
1330 GOSUB Read_2420<br />
1340 END SELECT <br />
1350 RETURN<br />
1360 Save:!<br />
1370 SELECT Inst<br />
1380 CASE 1,2<br />
1390 GOSUB Save_dmm<br />
1400 CASE 3<br />
1410 GOSUB Save_2420<br />
1420 END SELECT <br />
1430 RETURN<br />
1440 Read_3478: !<br />
1450 WAIT 1<br />
1460 ENTER @Dmm;R<br />
1470 RETURN<br />
1480 Read_3457: !<br />
1490 IF Count=1 THEN<br />
1500 OUTPUT @Dmm;"TRIG SGL"<br />
1510 ENTER @Dmm;R<br />
1520 END IF <br />
1530 OUTPUT @Dmm;"TRIG SGL"<br />
1540 ENTER @Dmm;R<br />
1550 ! OUTPUT @Dmm;"RMATH HIRES"<br />
1560 ! ENTER @Dmm;R1<br />
1570 R=R+R1<br />
1580 RETURN<br />
1590 Save_head: !<br />
1600 SELECT Inst<br />
1610 CASE 1,2 !dmm<br />
1620 OUTPUT @Outfile;"No.,Time[s],X,Y,R[ohm]"<br />
1630 CASE 3 !source meter<br />
1640 OUTPUT @Outfile;"No.,Time[s],X,Y,Volt[V],Curr[A]"<br />
1650 END SELECT <br />
1660 RETURN<br />
1670 Save_dmm: !<br />
1680 PRINT Count,INT(T);"sec","X=";X,"Y=";Y,"R=";R<br />
1690 OUTPUT @Outfile;Count,T,X,Y,R<br />
1700 RETURN<br />
1710 Read_2420: !<br />
1720 OUTPUT @Sm;"READ?"<br />
1730 ENTER @Sm;Volt,Curr<br />
1740 RETURN<br />
1750 Save_2420: !<br />
1760 PRINT Count,INT(T);"sec","X=";X,"Y=";Y,"V=";Volt,"i=";Curr<br />
1770 OUTPUT @Outfile;Count,T,X,Y,Volt,Curr<br />
1780 RETURN<br />
1790 END<br />
</pre></div>
Togotech