4284all-bas
10 !LCR-4284A 4284A, 2017/03/10
20 OPTION BASE 1
30 INTEGER I,Count,Btn
40 DIM Msg$[50],Id$[50],String$[50]
50 CLEAR SCREEN
60 GOSUB Fileopen
70 GOSUB Setup
80 GOSUB Funcselect
90 GOSUB Typeselect
100 OUTPUT @Lcr;"TRIG:SOUR INT"
110 STOP
120 Setup: !
130 ASSIGN @Lcr TO 717
140 REMOTE @Lcr
150 !OUTPUT @Lcr;"*RST"
160 OUTPUT @Lcr;"*CLS"
170 OUTPUT @Lcr;"*ESE 60"
180 OUTPUT @Lcr;"*SRE 32"
190 ON INTR 7 CALL Errors
200 ENABLE INTR 7;2
210 OUTPUT @Lcr;"*IDN?"
220 ENTER @Lcr;Id$
230 PRINT Id$
240 OUTPUT @Lcr;"TRIG:SOUR BUS"
250 OUTPUT @Lcr;"ABORT;:INIT"
260 RETURN
270 Fileopen: !
280 DIM Filename$[20],Dhms$[8]
290 Time$=TIME$(TIMEDATE)
300 Date$=DATE$(TIMEDATE)
310 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
320 Filename$=Dhms$&".txt"
330 CREATE Filename$,1
340 ASSIGN @File TO Filename$;FORMAT ON
350 RETURN
360 Typeselect: !
370 INTEGER Type_size,Type_length,Typeno
380 Type_size=8 !문자열 배열의 크기
390 Type_length=15 !문자열의 길이
400 ALLOCATE Type$(Type_size)[Type_length]
410 Type$(1)="Norm"
420 Type$(2)="Freq Sweep"
430 Type$(3)="Freq-48 Sweep"
440 Type$(4)="DC Bias Sweep"
450 Type$(5)="Osc Level Sweep"
460 Type$(6)="Time Sweep"
470 Type$(7)="Freq St-Sp"
480 Type$(8)="Freq 1k-1M"
490 Msg$="테스트 종류를 선택하십시오."
500 DIALOG "LIST",Msg$,Btn;SET("ITEMS":Type$(*),"COLUMNS":Type_length,"ROWS":Type_size),RETURN("SELECTION":Typeno)
510 Typeno=Typeno+1
520 SELECT Type$(Typeno)
530 CASE "Norm" !샘플이 있는지 없는지 자동 인식
540 INTEGER Go_count
550 Msg$="A-value lower limit"
560 DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
570 IF Btn=-1 OR Btn=1 THEN A_lcl=2.5E-11
580 A_lcl=VAL(String$)
590 Msg$="A-value upper limit"
600 DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
610 IF Btn=-1 OR Btn=1 THEN A_ucl=3.5E-11
620 A_ucl=VAL(String$)
630 Msg$="유효값 연속 횟수"
640 DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
650 IF Btn=-1 OR Btn=1 THEN Go_limit=5
660 Go_limit=VAL(String$)
670 Msg$="허용오차 [%]"
680 DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
690 IF Btn=-1 OR Btn=1 THEN A_err=.1
700 A_err=VAL(String$)
710 OUTPUT @File;"No, A, B, Vm[V], Im[A]"
720 Count=0
730 LOOP
740 Count=Count+1
750 REPEAT!샘플이 있나?
760 GOSUB Reading
770 UNTIL A>A_lcl AND A<A_ucl !LCL=lower control limit, UCL=upper control limit
780 Go_count=0
790 A_pre=A
800 REPEAT
810 GOSUB Reading
820 A_cur=A
830 IF A_cur=0 THEN STOP
840 A_delta=ABS((A_cur-A_pre)/A_cur)*100
850 IF A_delta<A_err THEN
860 Go_count=Go_count+1
870 ELSE
880 Go_count=0
890 END IF
900 A_pre=A_cur
910 UNTIL Go_count=Go_limit
920 PRINT "No.=";Count;",A=";A;",B=";B
930 OUTPUT @File;Count,A,B,Vm,Im
940 BEEP
950 REPEAT!샘플이 없나?
960 GOSUB Reading
970 UNTIL A<A_lcl OR A>A_ucl
980 END LOOP
990 CASE "Freq Sweep"
1000 GOSUB Oscselect
1010 OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1020 OUTPUT @Lcr;"FREQ:CW? MIN"
1030 ENTER @Lcr;Freq_min !20Hz
1040 OUTPUT @Lcr;"FREQ:CW? MAX"
1050 ENTER @Lcr;Freq_max !1MHz
1060 Freq_octv=20 !20:std 50:nexvel spk:50
1070 ! Freq_min=1000!nexvel=20 spk=100 !!!!!!!!!!!!!!!!!!!!!!!!!
1080 ! Freq_max=10000 !nexvel=20,000 spk=10,000 !!!!!!!!!!!!!!!!!!!!
1090 Freq=Freq_min
1100 Count=0
1110 LOOP
1120 Count=Count+1
1130 IF Freq>Freq_max THEN Freq=Freq_max
1140 OUTPUT @Lcr;"FREQ:CW ";Freq !command
1150 Freq=Freq*10^(1/Freq_octv)
1160 OUTPUT @Lcr;"FREQ:CW?"
1170 ENTER @Lcr;Freq_level
1180 GOSUB Reading
1190 PRINT "No.=";Count;",Freq=";Freq_level;"Hz,A=";A;",B=";B
1200 OUTPUT @File;Count,Freq_level,A,B,Vm,Im
1210 BEEP
1220 EXIT IF Freq>=Freq_max*1.01
1230 END LOOP
1240 OUTPUT @Lcr;"VOLT:LEV 1V" !init
1250 CASE "Freq St-Sp"
1260 GOSUB Oscselect
1270 OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1280 Freq_min=1000
1290 Freq_max=5000
1300 Freq=Freq_min
1310 Count=0
1320 FOR Freq=Freq_min TO Freq_max STEP 10
1330 Count=Count+1
1340 OUTPUT @Lcr;"FREQ:CW ";Freq !command
1350 OUTPUT @Lcr;"FREQ:CW?"
1360 ENTER @Lcr;Freq_level
1370 GOSUB Reading
1380 PRINT "No.=";Count;",Freq=";Freq_level;"Hz,A=";A;",B=";B
1390 OUTPUT @File;Count,Freq_level,A,B,Vm,Im
1400 BEEP
1410 NEXT Freq
1420 OUTPUT @Lcr;"VOLT:LEV 1V" !init
1430 CASE "Freq-48 Sweep"
1440 GOSUB Oscselect
1450 GOSUB Freq48
1460 OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1470 FOR I=1 TO 48
1480 OUTPUT @Lcr;"FREQ:CW ";Freq48(I)
1490 GOSUB Reading
1500 PRINT "No.=";I;",Freq=";Freq48(I);"Hz,A=";A;",B=";B
1510 OUTPUT @File;I,Freq48(I),A,B,Vm,Im
1520 BEEP
1530 NEXT I
1540 OUTPUT @Lcr;"VOLT:LEV 1V" !init
1550 CASE "Freq 1k-1M"
1560 GOSUB Oscselect
1570 GOSUB Freq1k1m_read
1580 OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1590 FOR I=1 TO 279
1600 OUTPUT @Lcr;"FREQ:CW ";Freq1k1m(I)
1610 GOSUB Reading
1620 PRINT "No.=";I;",Freq=";Freq1k1m(I);"Hz,A=";A;",B=";B
1630 OUTPUT @File;I,Freq1k1m(I),A,B,Vm,Im
1640 BEEP
1650 NEXT I
1660 OUTPUT @Lcr;"VOLT:LEV 1V" !init
1670 CASE "DC Bias Sweep"
1680 GOSUB Freqselect
1690 GOSUB Oscselect
1700 OUTPUT @File;"No, DC-Bias[V], A, B, Vm[V], Im[A]"
1710 OUTPUT @Lcr;"BIAS:VOLT:LEV? MIN"
1720 ENTER @Lcr;Bias_min
1730 OUTPUT @Lcr;"BIAS:VOLT:LEV? MAX"
1740 ENTER @Lcr;Bias_max
1750 OUTPUT @Lcr;"BIAS:STAT ON" ! DC BIAS ON
1760 Count=0
1770 ! FOR Bias=Bias_min TO Bias_max STEP .5 !0~40V
1780 FOR Bias=-40 TO +40 STEP .2 !0~5V NOP=100
1790 Count=Count+1
1800 OUTPUT @Lcr;"BIAS:VOLT:LEV ";Bias !command
1810 GOSUB Reading
1820 PRINT "No.=";Count;",Bias=";Bias;"V,A=";A;",B=";B
1830 OUTPUT @File;Count,Bias,A,B,Vm,Im
1840 BEEP
1850 NEXT Bias
1860 OUTPUT @Lcr;"BIAS:VOLT:LEV 0V" !command
1870 OUTPUT @Lcr;"BIAS:STAT OFF" ! DC BIAS OFF
1880 CASE "Osc Level Sweep"
1890 GOSUB Freqselect
1900 OUTPUT @File;"No, Osc-Level[V], A, B, Vm[V], Im[A]"
1910 OUTPUT @Lcr;"VOLT:LEV? MIN"
1920 ENTER @Lcr;Osc_min !5mV
1930 OUTPUT @Lcr;"VOLT:LEV? MAX"
1940 ENTER @Lcr;Osc_max !20V
1950 Osc_octv=20
1960 Osc=Osc_min
1970 Count=0
1980 LOOP
1990 Count=Count+1
2000 OUTPUT @Lcr;"VOLT:LEV ";Osc !command
2010 Osc=Osc*10^(1/Osc_octv)
2020 OUTPUT @Lcr;"VOLT:LEV?"
2030 ENTER @Lcr;Osc_level
2040 GOSUB Reading
2050 PRINT "No.=";Count;",Osc=";Osc_level;"V,A=";A;",B=";B
2060 OUTPUT @File;Count,Osc_level,A,B,Vm,Im
2070 BEEP
2080 EXIT IF Osc>Osc_max
2090 END LOOP
2100 OUTPUT @Lcr;"VOLT:LEV 1V" !init
2110 CASE "Time Sweep" !몇 초 간격으로 몇 회
2120 INTEGER Nop,L1,L2
2130 Msg$="시간간격 [ms]"
2140 DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
2150 IF Btn=-1 OR Btn=1 THEN STOP
2160 Period=VAL(String$)
2170 Msg$="측정횟수 "
2180 DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
2190 IF Btn=-1 OR Btn=1 THEN STOP
2200 Nop=VAL(String$)
2210 GOSUB Freqselect
2220 OUTPUT @File;"No, Time[S], A, B, Vm[V], Im[A]"
2230 Count=0
2240 T0=TIMEDATE
2250 T=TIMEDATE-T0 !second.
2260 LOOP
2270 Count=Count+1
2280 GOSUB Reading
2290 T1=Period/1000.*(Count-1)
2300 PRINT "No.=";Count;",Time=";T1;"s,A=";A;",B=";B
2310 OUTPUT @File;Count,T,A,B,Vm,Im
2320 BEEP
2330 LOOP
2340 T=TIMEDATE-T0 !second.
2350 IF T>3276.7 THEN
2360 L1=INT(T)
2370 L2=INT(Period/1000)
2380 ELSE
2390 L1=INT(T*10)
2400 L2=INT(Period/100)
2410 END IF
2420 EXIT IF (L1 MOD L2)=0
2430 END LOOP
2440 EXIT IF Count=Nop
2450 END LOOP
2460 END SELECT
2470 RETURN
2480 Funcselect:!
2490 INTEGER Func_size,Func_length,Funcno
2500 Func_size=20 !문자열 배열의 크기
2510 Func_length=5 !문자열의 길이
2520 ALLOCATE Funcdis$(Func_size)[Func_length]
2530 DATA "Cp-D","Cp-Q","Cp-G","Cp-Rp","Cs-D","Cs-Q","Cs-Rs"
2540 DATA "Lp-Q","Lp-D","Lp-G","Lp-Rp","Ls-D","Ls-Q","Ls-Rs"
2550 DATA "R-X","Z-deg","Z-rad","G-B","Y-deg","Y-rad"
2560 FOR I=1 TO Func_size
2570 READ Funcdis$(I)
2580 NEXT I
2590 ALLOCATE Func$(Func_size)[Func_length]
2600 DATA "CPD","CPQ","CPG","CPRP","CSD","CSQ","CSRS"
2610 DATA "LPQ","LPD","LPG","LPRP","LSD","LSQ","LSRS"
2620 DATA "RX","ZTD","ZTR","GB","YTD","YTR"
2630 FOR I=1 TO Func_size
2640 READ Func$(I)
2650 NEXT I
2660 Msg$="테스트 종류를 선택하십시오."
2670 DIALOG "LIST",Msg$,Btn;SET("ITEMS":Funcdis$(*),"COLUMNS":Func_length,"ROWS":Func_size),RETURN("SELECTION":Funcno)
2680 IF Btn=-1 OR Btn=1 THEN STOP
2690 Funcno=Funcno+1
2700 OUTPUT @Lcr;"FUNC:IMP:TYPE ";TRIM$(Func$(Funcno))
2710 RETURN
2720 Oscselect: !
2730 INTEGER Osc_size,Osc_length,Oscno
2740 Osc_size=5 !문자열 배열의 크기
2750 Osc_length=5 !문자열의 길이
2760 ALLOCATE Oscdis$(Osc_size)[Osc_length]
2770 Oscdis$(1)="0.02V" !diode
2780 Oscdis$(2)="0.05V"
2790 Oscdis$(3)="0.1V"
2800 Oscdis$(4)="0.5V"
2810 Oscdis$(5)="1V"
2820 Msg$="측정 전압을 선택하십시요"
2830 DIALOG "LIST",Msg$,Btn;SET("ITEMS":Oscdis$(*),"COLUMNS":Osc_length,"ROWS":Osc_size),RETURN("SELECTION":Oscno)
2840 IF Btn=-1 OR Btn=1 THEN STOP
2850 Oscno=Oscno+1
2860 OUTPUT @Lcr;"VOLT ";TRIM$(Oscdis$(Oscno))
2870 RETURN
2880 Freqselect: !
2890 INTEGER Freq_size,Freq_length,Freqno
2900 Freq_size=2 !문자열 배열의 크기
2910 Freq_length=4 !문자열의 길이
2920 ALLOCATE Freqdis$(Freq_size)[Freq_length]
2930 Freqdis$(1)="1KHZ"
2940 Freqdis$(2)="1MHZ"
2950 Msg$="주파수를 선택하십시오."
2960 DIALOG "LIST",Msg$,Btn;SET("ITEMS":Freqdis$(*),"COLUMNS":Freq_length,"ROWS":Freq_size),RETURN("SELECTION":Freqno)
2970 IF Btn=-1 OR Btn=1 THEN STOP
2980 Freqno=Freqno+1
2990 OUTPUT @Lcr;"FREQ ";TRIM$(Freqdis$(Freqno))
3000 RETURN
3010 Freq48: !
3020 DIM Freq48(48)
3030 DATA 20,25,30,40,50,60,80
3040 DATA 100,120,150,200,250,300,400,500,600,800
3050 DATA 1000,1200,1500,2000,2500,3000,4000,5000,6000,8000
3060 DATA 10000,12000,15000,20000,25000,30000,40000,50000,60000,80000
3070 DATA 100000,120000,150000,200000,250000,300000,400000,500000,600000,800000
3080 DATA 1000000
3090 FOR I=1 TO 48
3100 READ Freq48(I)
3110 NEXT I
3120 RETURN
3130 Freq1k1m_read: !
3140 DIM Freq1k1m(279)
3150 DATA 1,1.00806,1.01351,1.01695,1.02459,1.0274,1.03448,1.04167,1.05263,1.05634
3160 DATA 1.05932,1.07143,1.07759,1.08696,1.0909,1.09649,1.10294,1.11111,1.11607,1.1194
3170 DATA 1.13208,1.13637,1.15385,1.15741,1.17188,1.17647,1.17925,1.19048,1.2,1.20192
3180 DATA 1.20968,1.22449,1.22549,1.22951,1.25,1.27119,1.27551,1.2766,1.2931,1.30208
3190 DATA 1.30435,1.31579,1.32979,1.33929,1.3587,1.36364,1.38889,1.39535,1.41509,1.42045
3200 DATA 1.42857,1.44231,1.45349,1.46341,1.47059,1.4881,1.5,1.52439,1.53061,1.53846
3210 DATA 1.5625,1.57895,1.59574,1.60256,1.62612,1.63043,1.64474,1.66667,1.68919,1.70455
3220 DATA 1.71429,1.73611,1.74419,1.76471,1.78571,1.81818,1.82927,1.83824,1.875,1.89394
3230 DATA 1.92308,1.93548,1.95313,1.97368,2,2.01613,2.02703,2.06897,2.08333,2.14286
3240 DATA 2.15517,2.20588,2.22222,2.23214,2.27273,2.30769,2.31481,2.34375,2.4,2.40385
3250 DATA 2.41935,2.5,2.58621,2.60417,2.6087,2.67857,2.71739,2.72727,2.77778,2.84091
3260 DATA 2.85714,2.88462,2.97619,3,3.125,3.15789,3.26087,3.28947,3.33333,3.40909
3270 DATA 3.47222,3.52942,3.57143,3.67647,3.75,3.90625,3.94737,4,4.16667,4.28571
3280 DATA 4.41176,4.46429,4.61538,4.6875,4.80769,5,5.17241,5.20833,5.21739,5.35714
3290 DATA 5.43478,5.45455,5.55556,5.68182,5.71429,5.76923,5.95238,6,6.25,6.31579
3300 DATA 6.52174,6.57895,6.66666,6.81818,6.94444,7.05882,7.14286,7.35294,7.5,7.8125
3310 DATA 7.89474,8,8.33333,8.57243,8.82352,8.92857,9.23077,9.375,9.61538,10
3320 DATA 10.3448,10.4167,10.4348,10.7143,10.8696,10.9091,11.1111,11.3636,11.4286,11.5385
3330 DATA 11.9048,12,12.5,12.6316,13.0435,13.1579,13.3333,13.6364,13.8889,14.1176
3340 DATA 14.2857,14.7059,15,15.625,15.7895,16,16.6667,17.1429,17.6471,17.8571
3350 DATA 18.4615,18.75,19.2308,20,20.6897,20.8333,20.8696,21.4286,21.7391,21.8182
3360 DATA 22.2222,22.7272,22.8571,23.0769,23.8095,24,25,25.2632,26.087,26.3158
3370 DATA 26.6667,27.2727,27.7778,28.2353,28.5714,29.4118,30,31.25,31.5789,32
3380 DATA 33.3333,34.2857,35.2941,35.7143,36.9231,37.5,38.4615,40,41.6667,42.8571
3390 DATA 43.6364,45.4545,46.1538,48,50,53.3333,54.5455,55.5556,60,62.5
3400 DATA 66.6666,68.5714,72.4286,75,80,83.3333,85.7143,96,100,120
3410 DATA 125,150,160,166.667,200,240,250,300,320,333.333
3420 DATA 400,480,500,600,640,666.667,800,960,1000
3430 RESTORE 3150
3440 FOR I=1 TO 279
3450 READ Freq1k1m(I)
3460 Freq1k1m(I)=Freq1k1m(I)*1000.
3470 PRINT Freq1k1m(I)
3480 NEXT I
3490 RETURN
3500 Reading: !
3510 OUTPUT @Lcr;"TRIGGER:IMMEDIATE"
3520 OUTPUT @Lcr;"FETC:IMP?"
3530 ENTER @Lcr;A,B,Status
3540 OUTPUT @Lcr;"FETC:SMON:VAC?"
3550 ENTER @Lcr;Vm
3560 OUTPUT @Lcr;"FETC:SMON:IAC?"
3570 ENTER @Lcr;Im
3580 RETURN
3590 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3600 END
3610 SUB Errors
3620 DIM Err$[50]
3630 Sp=SPOLL(717)
3640 IF BIT(Sp,5) THEN
3650 OUTPUT 717;"*ESR?"
3660 ENTER 717;Esr
3670 PRINT "Event Status Resister = ";Esr
3680 LOOP
3690 OUTPUT 717;"SYST:ERR?"
3700 ENTER 717;Err$
3710 EXIT IF VAL(Err$)=0
3720 PRINT Err$
3730 END LOOP
3740 END IF
3750 ENABLE INTR 7;2
3760 SUBEND