E5100a-02.bas

Togotech (토론 | 기여)님의 2021년 5월 21일 (금) 20:56 판 (새 문서: E5100A <pre> 10 !chamber SU-222 + E5100A 20 ! 2016-06-08 30 OPTION BASE 1 40 DIM Filename$[20],Dhms$[8] 50 DIM Msg$[100],R(10) 60 ! INTEGER T1 70 Time$=T...)
(차이) ← 이전 판 | 최신판 (차이) | 다음 판 → (차이)

E5100A

10     !chamber SU-222 + E5100A
20     ! 2016-06-08
30     OPTION BASE 1
40     DIM Filename$[20],Dhms$[8]
50     DIM Msg$[100],R(10)
60  !  INTEGER T1
70     Time$=TIME$(TIMEDATE)
80     Date$=DATE$(TIMEDATE)
90     Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
100    Filename$=Dhms$&".txt"
110    ASSIGN @Su TO 701
120    ASSIGN @Na TO 717
130    OUTPUT @Su;"TEMP?"
140    ENTER @Su;Temp,Tmp,Tmp,Tmp
150    PRINT Temp
160    OUTPUT @Na;"*IDN?"
170    ENTER @Na;A$
180    PRINT A$
190    T0=TIMEDATE
200    CLEAR SCREEN
210    CREATE Filename$,1
220    ASSIGN @File TO Filename$;FORMAT ON
230    OUTPUT @Na;"ANAOCH1;ANARFULL;ANAODATA"
240    Temp0=0
250    OUTPUT @File;"No, Time[m], Temp['C], peak[dB], Bw[MHz], Fc[MHz], Q"
260    Count=0
270    LOOP
280      T1=(TIMEDATE-T0)
290      T1=T1/60
300      OUTPUT @Su;"TEMP?"
310      ENTER @Su;Temp,Tmp,Tmp,Tmp
320      IF Temp0<>Temp THEN
330        Count=Count+1
340        !!!!!!!!!!!!!!!!! 필터
350        OUTPUT @Na;"OUTPFILT? -20"
360        ENTER @Na;Loss,Bw,Fc,Q,Dfl,Dfr
370        Bw=Bw/1.E+6
380        Fc=Fc/1.E+6
390        Dfl=Dfl/1.E+6
400        Dfr=Dfr/1.E+6
410        !!!!!!!!!!!!!!!!! delta marker 띄우고
420    !   OUTPUT @Na;"OUTPMWLF?"
430   !    ENTER @Na;Bw,Fc,Q,Loss,Dfl,Dfr
440        !!!!!!!!!!!!!!!!!!!
450   !    PRINT "Elsped Time=";T1;"s, Temp=";Temp;"'C"
460        PRINT Count,Temp;"'C ",PROUND(Loss,-2),PROUND(Bw,-3),PROUND(Fc,-3),PROUND(Q,-3)
470        OUTPUT @File;Count,T1,Temp,Loss,Bw,Fc,Q
480      END IF 
490      Temp0=Temp
500 !  EXIT IF T1>8100 !=135min*60sec/min
510    END LOOP 
520  ! OUTPUT @Su;"TEMP,S25"
530    OUTPUT @Su;"POWER,OFF"
540    END