E5100a-01.bas

Togotech (토론 | 기여)님의 2020년 2월 12일 (수) 15:43 판
(차이) ← 이전 판 | 최신판 (차이) | 다음 판 → (차이)

E5100A

1차 최초

200    MASS STORAGE IS ":,4"   !내부 FDD 사용
220   ! MASS STORAGE IS ":,0"  !내부 메모리 사용
240   ! COPY "1.txt:,0" to "1.txt:,4"   !내부 메모리에 저장되는 1.txt 파일을 FDD로 복사
260    PURGE "1.txt"
280    CREATE "1.txt",1
300    ASSIGN @File TO "1.txt";FORMAT ON
320    ASSIGN @E5100 TO 800    !자체 콘트롤러이므로 반드시 800번 부여
340    ASSIGN @Oven TO 701     !연결된 외부 계측기 주소는 700번대 부여
360    OUTPUT @E5100;"ANAMODE ZTRAN"
380    OUTPUT @E5100;"MEAS AR"
400    OUTPUT @E5100;"FMT MAGZP"
420    OUTPUT @E5100;"SCAY 10"
440    EXECUTE "ANAOCH1"
460    EXECUTE "ANAODATA"
480    EXECUTE "ANARFULL"
500    Count=0
520    Temp_p=0
540    T0=TIMEDATE
560    OUTPUT @File;"No., Time[s], Temp['C], Rr[ohm], Fr[Hz], Ra[ohm], Fa[Hz]"
580    LOOP
600      OUTPUT @Oven;"TEMP?"
620      ENTER @Oven;Temp,Tmp,Tmp,Tmp
640      IF Temp<>Temp_p THEN
660        T=TIMEDATE-T0
680        Count=Count+1
700        EXECUTE "SING"
720        EXECUTE "OUTPCERR?"
740        Rr=READIO(8,0)
760        Fr=READIO(8,1)
780        Ra=READIO(8,2)
800        Fa=READIO(8,3)
820        PRINT Temp,Rr,Fr
840        OUTPUT @File;Count,T,Temp,Rr,Fr,Ra,Fa
860        Temp_p=Temp
880      END IF 
900    END LOOP 
920    END

2차 개선 2020-02-12, 내부 Flash Disk는 256kB 용량뿐이므로, 저장되는 파일 용량을 줄이기 위해 유효자리수 처리

10    ! MASS STORAGE IS ":,4"   !내부 FDD 사용
20     MASS STORAGE IS ":,0" !내부 메모리 사용
30    ! COPY "1.txt:,0" to "1.txt:,4"   !내부 메모리에 저장되는 1.txt 파일을 FDD로 복사
40     PURGE "1.txt"
50     CREATE "1.txt",1
60     ASSIGN @File TO "1.txt";FORMAT ON
70     ASSIGN @E5100 TO 800    !자체 콘트롤러이므로 반드시 800번 부여
80     ASSIGN @Oven TO 701     !연결된 외부 계측기 주소는 700번대 부여
90    ! OUTPUT @E5100;"ANAMODE ZTRAN"
100   ! OUTPUT @E5100;"MEAS AR"
110   ! OUTPUT @E5100;"FMT MAGZP"
120   ! OUTPUT @E5100;"SCAY 10"
130    OUTPUT @E5100;"ANAOCH1;ANAODATA;ANARFULL"
140    Count=0
150    Temp_p=0
160    T0=TIMEDATE
170    OUTPUT @File;"No., Time[m], Temp['C], Peak Amp[dB], -3dB Fc[kHz]"
180    LOOP
190      OUTPUT @Oven;"TEMP?"
200      ENTER @Oven;Temp,Tmp,Tmp,Tmp
210      IF Temp<>Temp_p THEN
220        T=TIMEDATE-T0
230        Count=Count+1
240        OUTPUT @E5100;"SING"
250        OUTPUT @E5100;"OUTPFILT? -3"        !-3dB BW, Q 등을 측정
260        ENTER @E5100;Loss,Bw,Fc,Q,Df1,Df2
270        T=PROUND(T/60,-3)                   !시간을 분으로
280        Loss=PROUND(Loss,-3)                !이득은 .001dB 단위로
290        Fc=PROUND(Fc,-1)/1000.              !중심주파수는 .1Hz 단위로 변경한 후, kHz로
300        PRINT Count,Temp,Loss,Fc            !화면 표시
310        OUTPUT @File;Count,T,Temp,Loss,Fc   !파일에 기록
320        Temp_p=Temp
330      END IF 
340    END LOOP 
350    END