"4284all-bas"의 두 판 사이의 차이

(새 문서: 10 !LCR-4284A.bas 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 GO...)
 
1번째 줄: 1번째 줄:
10    ![[LCR-4284A.bas]] 4284A, 2017/03/10
+
10    ![[LCR-4284A]] 4284A, 2017/03/10
 +
<pre>
 
20    OPTION BASE 1
 
20    OPTION BASE 1
 
30    INTEGER I,Count,Btn
 
30    INTEGER I,Count,Btn
375번째 줄: 376번째 줄:
 
3750    ENABLE INTR 7;2
 
3750    ENABLE INTR 7;2
 
3760  SUBEND
 
3760  SUBEND
 +
</pre>

2020년 4월 6일 (월) 12:43 판

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