https://www.togotech.co.kr/index.php?action=history&feed=atom&title=4338-01.txt
4338-01.txt - 편집 역사
2026-04-26T19:21:43Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=4338-01.txt&diff=75096&oldid=prev
Togotech: 새 문서: 4338B 밀리오옴미터 <pre> 10 !Agilent 4338B milliohmmeter 20 INTEGER I,Stat,Count 30 GOSUB Fileopen 40 ASSIGN @Lowr TO 716 50 OUTPUT @Lowr;"*IDN?" 60...
2024-05-11T01:33:46Z
<p>새 문서: <a href="/index.php/4338B" class="mw-redirect" title="4338B" data-bs-title="4338B">4338B</a> 밀리오옴미터 <pre> 10 !Agilent 4338B milliohmmeter 20 INTEGER I,Stat,Count 30 GOSUB Fileopen 40 ASSIGN @Lowr TO 716 50 OUTPUT @Lowr;"*IDN?" 60...</p>
<p><b>새 문서</b></p><div>[[4338B]] 밀리오옴미터<br />
<pre><br />
10 !Agilent 4338B milliohmmeter<br />
20 INTEGER I,Stat,Count<br />
30 GOSUB Fileopen<br />
40 ASSIGN @Lowr TO 716<br />
50 OUTPUT @Lowr;"*IDN?"<br />
60 ENTER @Lowr;Id$<br />
70 PRINT Id$<br />
80 !STOP<br />
90 !OUTPUT @Lowr;"*RST;*CLS"<br />
100 OUTPUT @Lowr;":INIT:CONT ON" ! Initiating trigger system<br />
110 OUTPUT @Lowr;":CALC1:FORM REAL" ! Primary parameter: REAL,MLINear(absolute value of impedance) 중 택일<br />
120 OUTPUT @Lowr;":CALC2:FORM IMAG"! Secondary parameter: NONE, IMAG, LS, PHAS 중 택일<br />
130 OUTPUT @Lowr;":SOUR:CURR:AUTO ON" ! Test Signal Level = auto level mode<br />
140 OUTPUT @Lowr;":TRIG:SOUR BUS" ! Trigger source: Bus<br />
150 Count=0<br />
160 T0=TIMEDATE<br />
170 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
180 Meas_type=1 ! 1:샘플이 꼽히면 측정 2:무조건 측정<br />
190 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
200 SELECT Meas_type<br />
210 CASE 2<br />
220 OUTPUT @File;"No.,Time[m],R[ohm],Ls[uH]"<br />
230 LOOP<br />
240 Count=Count+1<br />
250 GOSUB Reading<br />
260 T=TIMEDATE-T0<br />
270 T=T/60.<br />
280 PRINT Count,A,B<br />
290 OUTPUT @File;Count,T,A,B<br />
300 OUTPUT @Lowr;":SYST:BEEP"<br />
310 END LOOP <br />
320 CASE 1<br />
330 OUTPUT @File;"No., R[ohm], Ls[uH]"<br />
340 LOOP<br />
350 !샘플이 꼽혔나?<br />
360 REPEAT<br />
370 GOSUB Reading<br />
380 UNTIL A>.01 AND A<20<br />
390 Count=Count+1<br />
400 FOR I=1 TO 2<br />
410 GOSUB Reading<br />
420 NEXT I<br />
430 PRINT Count,A,B<br />
440 OUTPUT @File;Count,A,B<br />
450 OUTPUT @Lowr;":SYST:BEEP"<br />
460 !샘플이 빠져 있나?<br />
470 REPEAT<br />
480 GOSUB Reading<br />
490 UNTIL A>100<br />
500 END LOOP <br />
510 CASE 2<br />
520 END SELECT <br />
530 STOP<br />
540 Reading: !<br />
550 OUTPUT @Lowr;"*TRG"<br />
560 ENTER @Lowr;Stat,A,B<br />
570 A=A*1<br />
580 B=B*1<br />
590 RETURN<br />
600 Fileopen: !<br />
610 DIM Filename$[20],Dhms$[8]<br />
620 Time$=TIME$(TIMEDATE)<br />
630 Date$=DATE$(TIMEDATE)<br />
640 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
650 Filename$=Dhms$&".txt"<br />
660 CREATE Filename$,1<br />
670 ASSIGN @File TO Filename$;FORMAT ON<br />
680 RETURN<br />
690 END<br />
</pre></div>
Togotech