https://www.togotech.co.kr/index.php?action=history&feed=atom&title=SU-3458.txt
SU-3458.txt - 편집 역사
2026-04-26T14:58:34Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=SU-3458.txt&diff=37753&oldid=prev
Togotech: 새 문서: Espec SU-222 <pre> 10 !chamber SU-222 + 3458A DMM 20 ! 2019-4-1 30 OPTION BASE 1 40 INTEGER Count 50 DIM Filename$[20],Dhms$[8] 60 DIM Msg$[100] 70 Tim...
2020-11-20T00:01:19Z
<p>새 문서: <a href="/index.php/Espec_SU-222" class="mw-redirect" title="Espec SU-222" data-bs-title="Espec_SU-222">Espec SU-222</a> <pre> 10 !chamber SU-222 + 3458A DMM 20 ! 2019-4-1 30 OPTION BASE 1 40 INTEGER Count 50 DIM Filename$[20],Dhms$[8] 60 DIM Msg$[100] 70 Tim...</p>
<p><b>새 문서</b></p><div>[[Espec SU-222]]<br />
<pre><br />
10 !chamber SU-222 + 3458A DMM<br />
20 ! 2019-4-1<br />
30 OPTION BASE 1<br />
40 INTEGER Count<br />
50 DIM Filename$[20],Dhms$[8]<br />
60 DIM Msg$[100]<br />
70 Time$=TIME$(TIMEDATE)<br />
80 Date$=DATE$(TIMEDATE)<br />
90 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
100 Filename$=Dhms$&".txt"<br />
110 ASSIGN @Su TO 701<br />
120 ASSIGN @Dmm TO 722<br />
130 CLEAR SCREEN<br />
140 CREATE Filename$,1<br />
150 ASSIGN @File TO Filename$;FORMAT ON<br />
160 OUTPUT @File;"Count, Time[m], Temp['C], Meas Value"<br />
170 Count=0<br />
180 T0=TIMEDATE<br />
190 ! GOSUB Measure1 ! 온도에서 0.1도 변하면<br />
200 GOSUB Measure2 ! 측정값에서 오차 발생<br />
210 ! GOSUB Measure3 ! 5초마다 온도, 측정값에서 오차<br />
220 ! OUTPUT @Su;"TEMP,S25"<br />
230 OUTPUT @Su;"POWER,OFF"<br />
240 STOP<br />
250 Measure1: !온도 오차<br />
260 Temp0=0<br />
270 OUTPUT @Dmm;"NPLC 10"<br />
280 LOOP<br />
290 T1=(TIMEDATE-T0)<br />
300 GOSUB Meas_temp<br />
310 IF Temp0<>Temp THEN !온도 변화가 0.1 발생되면<br />
320 Count=Count+1<br />
330 OUTPUT @Dmm;"TRIG SGL"<br />
340 ENTER @Dmm;Value<br />
350 PRINT "Count=";Count;", Elapsed Time=";DROUND(T1,3);"s, Temp=";Temp;"'C,";" Meas=";DROUND(Value,6)<br />
360 OUTPUT @File;Count,T1/60.,Temp,Value<br />
370 Temp0=Temp<br />
380 END IF <br />
390 EXIT IF (T1/60.)>360 ! 360=6 hours<br />
400 END LOOP <br />
410 RETURN<br />
420 Measure2: !측정값 오차, 온도까지 읽으면 샘플링이 늦어진다.<br />
430 Value0=0<br />
440 OUTPUT @Dmm;"NPLC 1"<br />
450 LOOP<br />
460 T1=(TIMEDATE-T0)<br />
470 OUTPUT @Dmm;"TRIG SGL"<br />
480 ENTER @Dmm;Value<br />
490 Diff=ABS((Value0-Value)/Value)<br />
500 IF Diff>.001 THEN !측정값에서 .1% 차이가 발생되면<br />
510 Count=Count+1<br />
520 GOSUB Meas_temp<br />
530 PRINT "Count=";Count;", Elapsed Time=";PROUND(T1,-4);"s, Temp=";Temp;"'C,";" Meas=";PROUND(Value,-4)<br />
540 OUTPUT @File;Count,T1/60.,Temp,Value<br />
550 Value0=Value<br />
560 END IF <br />
570 EXIT IF (T1/60.)>360 ! 360=6 hours<br />
580 END LOOP <br />
590 RETURN<br />
600 Measure3: !측정값 오차 및 온도 오차<br />
610 Value0=0<br />
620 Temp0=0<br />
630 OUTPUT @Dmm;"NPLC 1"<br />
640 ON CYCLE 5 GOSUB Meas_temp2<br />
650 LOOP<br />
660 T1=(TIMEDATE-T0)<br />
670 OUTPUT @Dmm;"TRIG SGL"<br />
680 ENTER @Dmm;Value<br />
690 Diff=ABS((Value0-Value)/Value)<br />
700 IF Diff>.005 THEN !측정값에서 .5% 차이가 발생되면<br />
710 Count=Count+1<br />
720 PRINT "Count=";Count;", Elapsed Time=";PROUND(T1,-4);"s, Temp=";Temp;"'C,";" Meas=";PROUND(Value,-4)<br />
730 OUTPUT @File;Count,T1/60.,Temp,Value<br />
740 Value0=Value<br />
750 END IF <br />
760 EXIT IF (T1/60.)>360 ! 360=6 hours<br />
770 END LOOP <br />
780 RETURN<br />
790 Meas_temp: !<br />
800 OUTPUT @Su;"TEMP?"<br />
810 WAIT .1<br />
820 ENTER @Su;Temp,Tmp,Tmp,Tmp<br />
830 RETURN<br />
840 Meas_temp2: !<br />
850 OUTPUT @Su;"TEMP?"<br />
860 WAIT .1<br />
870 ENTER @Su;Temp,Tmp,Tmp,Tmp<br />
880 IF Temp0<>Temp THEN !온도 변화가 0.1 발생되면<br />
890 Count=Count+1<br />
900 PRINT "Count=";Count;", Elapsed Time=";PROUND(T1,-4);"s, Temp=";Temp;"'C,";" Meas=";PROUND(Value,-4)<br />
910 OUTPUT @File;Count,T1/60.,Temp,Value<br />
920 Temp0=Temp<br />
930 END IF <br />
940 RETURN<br />
950 END<br />
</pre></div>
Togotech