"E5071c01.bas"의 두 판 사이의 차이
(새 문서: E5071C <pre> 10 CLEAR SCREEN 20 I=0 30 GOSUB Fileopen 40 OUTPUT @File;"No.,Peak[dB],Fc[MHz],BW[MHz],Q[-]" 50 ASSIGN @Na TO 717 60 OUTPUT @Na;":TRIG:SOUR BU...) |
잔글 |
||
| 1번째 줄: | 1번째 줄: | ||
| − | [[E5071C]] | + | [[E5071C GPIB 프로그래밍]] |
<pre> | <pre> | ||
10 CLEAR SCREEN | 10 CLEAR SCREEN | ||
2022년 5월 27일 (금) 10:57 판
10 CLEAR SCREEN 20 I=0 30 GOSUB Fileopen 40 OUTPUT @File;"No.,Peak[dB],Fc[MHz],BW[MHz],Q[-]" 50 ASSIGN @Na TO 717 60 OUTPUT @Na;":TRIG:SOUR BUS" 70 LOOP 80 I=I+1 90 OUTPUT @Na;":CALC1:MARK:BWID OFF" 100 !샘플이 꼽혔는가? 110 FOR J=1 TO 10 !여러번 확인 120 REPEAT 130 GOSUB Sweep 140 GOSUB Peak 150 UNTIL Peak>-6 160 NEXT J 170 OUTPUT @Na;":SYST:BEEP:COMP:IMM" 180 OUTPUT @Na;":CALC1:MARK:BWID ON" 190 OUTPUT @Na;":CALC1:MARK1:BWID:DATA?" 200 ENTER @Na;Bw,Fc,Q,Peak 210 Bw=Bw/1.E+6 220 Fc=Fc/1.E+6 230 PRINT I,PROUND(Bw,-3),PROUND(Fc,-4),PROUND(Q,-2),PROUND(Peak,-3) 240 OUTPUT @File;I,Peak,Fc,Bw,Q 250 !샘플을 제거했는가? 260 REPEAT 270 GOSUB Sweep 280 GOSUB Peak 290 UNTIL Peak<-10 300 END LOOP 310 Sweep: ! 320 OUTPUT @Na;":TRIG:SING" 330 OUTPUT @Na;"*OPC?" 340 ENTER @Na;Tmp 350 RETURN 360 Peak: ! 370 OUTPUT @Na;":CALC1:MARK1:Y?" 380 ENTER @Na;Peak 390 RETURN 400 Fileopen: ! 410 DIM Filename$[20],Dhms$[8] 420 Time$=TIME$(TIMEDATE) 430 Date$=DATE$(TIMEDATE) 440 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 450 Filename$=Dhms$&".txt" 460 CREATE Filename$,1 470 ASSIGN @File TO Filename$;FORMAT ON 480 RETURN 490 END