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...)
(차이) ← 이전 판 | 최신판 (차이) | 다음 판 → (차이)

Redmi Note 4X

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