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