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차 개선
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[s], Temp['C], Amp[dB], Fc[Hz]"
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"
260 ENTER @E5100;Loss,Bw,Fc,Q,Df1,Df2
270 PRINT Count,Temp,Loss,Fc
280 OUTPUT @File;Count,T,Temp,Loss,Fc
290 Temp_p=Temp
300 END IF
310 END LOOP
320 END