E5071c02.bas
Togotech (토론 | 기여)님의 2024년 7월 24일 (수) 09:22 판 (새 문서: DG60KE0 온도특성 <pre> 10 !2020/07/11 5071C 20 !1960MHz 30 DIM Id$[46],Dmm_model$[10] 40 INTEGER I 50 Mega=1.E+6 60 GOSUB Fileopen 70 ASSIGN @Na...)
10 !2020/07/11 5071C 20 !1960MHz 30 DIM Id$[46],Dmm_model$[10] 40 INTEGER I 50 Mega=1.E+6 60 GOSUB Fileopen 70 ASSIGN @Na TO 717 80 Temp_model$="SU-222" !!!!!!!!!!!!! 90 SELECT Temp_model$ 100 CASE "SU-222" 110 ASSIGN @Su TO 701 120 CASE "3458DMM" 130 ASSIGN @Dmm TO 722 140 CASE "3478DMM" 150 ASSIGN @Dmm TO 727 160 END SELECT 170 OUTPUT @File;"No.,Time[m],Temp['C],Peak[dB],peak-3dB Fc[MHz],peak-3dB BW[MHz],0-10dB L[MHz],0-4dB L[MHz],0-4dB R[MHz],0-25dB R[MHz]" 180 OUTPUT @Na;"*IDN?" 190 ENTER @Na;Id$ 200 CLEAR SCREEN 210 DISP Id$ 220 GOSUB Na_set 230 GOSUB Measure1 240 STOP 250 Measure1: ! 260 I=0 270 T0=TIMEDATE 280 LOOP 290 T=(TIMEDATE-T0)/60. 300 GOSUB Temperature 310 IF Temp0<>Temp THEN !직전온도와 같지 않으면 320 I=I+1 330 GOSUB Frequency 340 PRINT I;"T=";Temp;"'C, Peak=";PROUND(Peak,-2);"dB, Fc=";PROUND(Fc,-1);" F1=";PROUND(F2,-1);" F2=";PROUND(F3,-1) 350 OUTPUT @File;I,T,Temp,Peak,Fc,Bw,F1,F2,F3,F4 360 END IF 370 Temp0=Temp 380 END LOOP 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 Temperature: ! 500 SELECT Temp_model$ 510 CASE "SU-222" 520 OUTPUT @Su;"TEMP?" 530 WAIT .3 540 ENTER @Su;Temp,Tmp,Tmp,Tmp 550 CASE "3458DMM" 560 OUTPUT @Dmm;"FUNC OHMF AUTO, .0001" 570 OUTPUT @Dmm;"MATH CRTD85" 580 OUTPUT @Dmm;"TRIG SGL" 590 ENTER @Dmm;Temp 600 CASE "3478DMM" 610 Tcr=.00385 620 ENTER @Dmm;R 630 Temp=(R-100)/Tcr/100 640 END SELECT 650 RETURN 660 Na_set: ! 670 OUTPUT 717;":CALC1:MARK1 ON" 680 OUTPUT 717;":CALC1:MARK2 ON" 690 OUTPUT 717;":CALC1:MARK3 ON" 700 OUTPUT 717;":CALC1:MARK4 ON" 710 OUTPUT 717;":CALC1:MARK5 ON" 720 OUTPUT 717;":CALC1:MARK1:FUNC:TRAC ON" 730 OUTPUT 717;":CALC1:MARK1:BWID:THR -3" 740 OUTPUT 717;":CALC1:MARK:BWID ON" 750 OUTPUT @Na;"TRIG:SOUR BUS" 760 RETURN 770 Frequency: ! 780 OUTPUT @Na;"TRIG:SING" 790 OUTPUT @Na;"*OPC?" 800 ENTER @Na;Tmp 810 !피크이득, peak-3dB 중심주파수, peak-3dB 대역폭 820 OUTPUT 717;":CALC1:MARK2:FUNC:TYPE MAX" 830 OUTPUT 717;":CALC1:MARK2:FUNC:EXEC" 840 OUTPUT 717;":CALC1:MARK3:FUNC:TYPE MAX" 850 OUTPUT 717;":CALC1:MARK3:FUNC:EXEC" 860 OUTPUT 717;":CALC1:MARK4:FUNC:TYPE MAX" 870 OUTPUT 717;":CALC1:MARK4:FUNC:EXEC" 880 OUTPUT 717;":CALC1:MARK5:FUNC:TYPE MAX" 890 OUTPUT 717;":CALC1:MARK5:FUNC:EXEC" 900 !!! 910 OUTPUT 717;":CALC1:MARK1:ACT" 920 OUTPUT 717;":CALC1:MARK1:FUNC:TYPE MAX" 930 OUTPUT 717;":CALC1:MARK1:FUNC:EXEC" 940 OUTPUT @Na;"CALC1:MARK1:BWID:DATA?" 950 ENTER @Na;Bw,Fc,Q,Peak 960 Peak=Peak 970 Fc=Fc/Mega 980 Bw=Bw/Mega 990 ! 왼쪽 0-10dB 타겟 1000 OUTPUT 717;":CALC1:MARK2:ACT" 1010 OUTPUT 717;":CALC1:MARK2:FUNC:TARG -10" 1020 OUTPUT 717;":CALC1:MARK2:FUNC:TYPE LTARget" 1030 OUTPUT 717;":CALC1:MARK2:FUNC:EXEC" 1040 OUTPUT @Na;"CALC1:MARK2:X?" 1050 ENTER @Na;F1 1060 F1=F1/Mega 1070 ! 왼쪽 0-4dB 타겟 1080 OUTPUT 717;":CALC1:MARK3:ACT" 1090 OUTPUT 717;":CALC1:MARK3:FUNC:TARG -4" 1100 OUTPUT 717;":CALC1:MARK3:FUNC:TYPE LTARget" 1110 OUTPUT 717;":CALC1:MARK3:FUNC:EXEC" 1120 OUTPUT @Na;"CALC1:MARK3:X?" 1130 ENTER @Na;F2 1140 F2=F2/Mega 1150 ! 오른쪽 0-4dB 타겟 1160 OUTPUT 717;":CALC1:MARK4:ACT" 1170 OUTPUT 717;":CALC1:MARK4:FUNC:TARG -4" 1180 OUTPUT 717;":CALC1:MARK4:FUNC:TYPE RTARget" 1190 OUTPUT 717;":CALC1:MARK4:FUNC:EXEC" 1200 OUTPUT @Na;"CALC1:MARK4:X?" 1210 ENTER @Na;F3 1220 F3=F3/Mega 1230 ! 오른쪽 0-25dB 타겟 1240 OUTPUT 717;":CALC1:MARK5:ACT" 1250 OUTPUT 717;":CALC1:MARK5:FUNC:TARG -25" 1260 OUTPUT 717;":CALC1:MARK5:FUNC:TYPE RTARget" 1270 OUTPUT 717;":CALC1:MARK5:FUNC:EXEC" 1280 OUTPUT @Na;"CALC1:MARK5:X?" 1290 ENTER @Na;F4 1300 F4=F4/Mega 1320 RETURN 1330 END