Tcf-ibw.txt
Togotech (토론 | 기여)님의 2020년 7월 11일 (토) 12:49 판 (새 문서: Redmi Note 4X <pre> 10 !2020/07/11 20 INTEGER I,Tmp 30 GOSUB Fileopen 40 ASSIGN @Na TO 717 50 ASSIGN @Dmm TO 727 60 OUTPUT @Na;"TRIG:SOUR BUS" 70 OUTPU...)
10 !2020/07/11 20 INTEGER I,Tmp 30 GOSUB Fileopen 40 ASSIGN @Na TO 717 50 ASSIGN @Dmm TO 727 60 OUTPUT @Na;"TRIG:SOUR BUS" 70 OUTPUT @File;"No., Time[s], Temp['C], Peak[dB], Fc[MHz], BW[MHz]" 80 GOSUB Measure1 90 STOP 100 Measure1: ! 110 I=0 120 T0=TIMEDATE 130 LOOP 140 I=I+1 150 T=TIMEDATE-T0 160 GOSUB Temperature 170 GOSUB Frequency 180 DISP I;"T=";Temp;"'C, Peak=";Peak;"dB, Fc=";Fc;"Hz" 190 OUTPUT @File;I,T,Temp,Peak,Fc,Bw 200 WAIT 1 210 END LOOP 220 RETURN 230 Temperature: ! 240 Tcr=.00385 !PT=100ohm 250 ENTER @Dmm;R 260 Temp=(R-100)/Tcr/100 270 RETURN 280 Frequency: ! 290 OUTPUT @Na;"TRIG:SING" 300 OUTPUT @Na;"*OPC?" 310 ENTER @Na;Tmp 320 OUTPUT @Na;"CALC1:MARK1:BWID:DATA?" 330 ENTER @Na;Bw,Fc,Q,Peak 340 RETURN 350 Fileopen: ! 360 DIM Filename$[20],Dhms$[8] 370 Time$=TIME$(TIMEDATE) 380 Date$=DATE$(TIMEDATE) 390 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 400 Filename$=Dhms$&".txt" 410 CREATE Filename$,1 420 ASSIGN @File TO Filename$;FORMAT ON 430 RETURN 440 END