"E5100a-01.bas"의 두 판 사이의 차이
(새 문서: E5100A <pre> 200 MASS STORAGE IS ":,4" !내부 FDD 사용 220 ! MASS STORAGE IS ":,0" !내부 메모리 사용 240 ! COPY "1.txt:,0" to "1.txt:,4" !내부 메모리에...) |
|||
| 1번째 줄: | 1번째 줄: | ||
[[E5100A]] | [[E5100A]] | ||
<pre> | <pre> | ||
| + | 1차 최초 | ||
| + | |||
200 MASS STORAGE IS ":,4" !내부 FDD 사용 | 200 MASS STORAGE IS ":,4" !내부 FDD 사용 | ||
220 ! MASS STORAGE IS ":,0" !내부 메모리 사용 | 220 ! MASS STORAGE IS ":,0" !내부 메모리 사용 | ||
| 38번째 줄: | 40번째 줄: | ||
900 END LOOP | 900 END LOOP | ||
920 END | 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 | ||
</pre> | </pre> | ||
2020년 2월 12일 (수) 14:34 판
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