2020년 11월 10일 (화) 02:37에 Togotech님의 편집

2020-11-10T02:37:52Z

Togotech: 새 문서: Advantest TR6143

 20     ! 2020-01-17 TR6143-vi.txt 30     OPTION BASE 1 40     INTEGER I,Nop,Count 50     DIM Cmd$[25],A$[13] 60     GOSUB Fileopen 70     GOSUB Inst_open 8...

2020-11-10T01:37:13Z

새 문서: Advantest TR6143 <pre> 20 ! 2020-01-17 TR6143-vi.txt 30 OPTION BASE 1 40 INTEGER I,Nop,Count 50 DIM Cmd$[25],A$[13] 60 GOSUB Fileopen 70 GOSUB Inst_open 8...

새 문서

[[Advantest TR6143]]
<pre>
20 ! 2020-01-17 TR6143-vi.txt
30 OPTION BASE 1
40 INTEGER I,Nop,Count
50 DIM Cmd$[25],A$[13]
60 GOSUB Fileopen
70 GOSUB Inst_open
80 GOSUB Measure1 !log
90 ! GOSUB Measure2 !linear
100 ! GOSUB Measure
110 STOP
120 Measure2: !
130 Ilimit=.1
140 Vmin=.0055
150 Vmax=.006
160 Nop=101
170 OUTPUT @Src;"E" !on
180 FOR I=1 TO Nop
190 Vset=Vmin+(Vmax-Vmin)/Nop*(I-1)
200 Vset=PROUND(Vset,-5)
210 Cmd$="V5"
220 Cmd$=Cmd$&" D "&VAL$(Vset)&"V"
230 Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
240 OUTPUT @Src;Cmd$
250 ! WAIT .5
260 GOSUB Reading
270 Volt=Vset
280 Curr=Data
290 PRINT "Count=";I;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
300 OUTPUT @File;I,Volt,Curr
310 NEXT I
320 OUTPUT @Src;"H" !off
330 RETURN
340 Measure1: !
350 Ilimit=.1
360 Vmin=.01
370 Vmax=1
380 Nop=101
390 OUTPUT @Src;"E" !on
400 FOR I=1 TO Nop
410 K=(Vmax/Vmin)^(1/(Nop-1))
420 Vset=Vmin*K^(I-1)
430 Vset=PROUND(Vset,-5)
440 Cmd$="V5"
450 Cmd$=Cmd$&" D "&VAL$(Vset)&"V"
460 Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
470 OUTPUT @Src;Cmd$
480 WAIT .2
490 GOSUB Reading
500 Volt=Vset
510 Curr=Data
520 PRINT "Count=";I;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
530 OUTPUT @File;I,Volt,Curr
540 NEXT I
550 OUTPUT @Src;"H" !off
560 RETURN
570 Measure: !
580 Wait=2 !계측기 세팅을 한 후, 첫 측정에서 측정값이 0이 나오는 현상 때문에 잠시 대기 시간
590 OUTPUT @Src;"OM1" !데이터 출력을 ascii로
600 OUTPUT @Src;"SN 0V, 10V, 0.1V"
610 OUTPUT @Src;"SP 10, 5, 900 SV0 T2" !reverse OFF, Single Trig
620 OUTPUT @Src;"D 2MA" !D2A 한계 2A
630 OUTPUT @Src;"E" !ON
640 OUTPUT @Src;"T9" !Sweep trigger: auto
650 WAIT Wait
660 FOR I=1 TO 100
670 GOSUB Reading
680 NEXT I
690 GOSUB Data_process
700 ! OUTPUT @Src;"H" !Operate OFF
710 RETURN
720 Data_process: !
730 PRINT "Count=";Count;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
740 RETURN
750 Reading: !
760 FOR J=1 TO 5
770 ENTER @Src;A$
771 WAIT .02
780 NEXT J
790 Data=VAL(A$[3,13])
800 ! Data=PROUND(Data,-5) !유효수자 3자리
810 RETURN
820 Inst_open: !
830 ASSIGN @Src TO 714 !advantest TR6143
840 RETURN
850 Fileopen: !
860 DIM Dhms$[8]
870 DIM Filename$[20]
880 T=TIMEDATE
890 Time$=TIME$(T) !하루 추가 +24*3600
900 Date$=DATE$(T)
910 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
920 Filename$=Dhms$&".txt"
930 CREATE Filename$,1
940 ASSIGN @File TO Filename$;FORMAT ON
950 RETURN
960 END
</pre>

TR6143-vi.txt - 편집 역사

2020년 11월 10일 (화) 02:37에 Togotech님의 편집

Togotech: 새 문서: Advantest TR6143
20 ! 2020-01-17 TR6143-vi.txt 30 OPTION BASE 1 40 INTEGER I,Nop,Count 50 DIM Cmd$[25],A$[13] 60 GOSUB Fileopen 70 GOSUB Inst_open 8...

@@ 1번째 줄: / 1번째 줄: @@
 [[Advantest TR6143]]
 <pre>
-     ! 2020-01-17 TR6143-vi.txt
+     ! [[Advantest TR6143]] <pre>
      OPTION BASE 1
      INTEGER I,Nop,Count
@@ 10번째 줄: / 11번째 줄: @@
   !  GOSUB Measure2  !linear
 !  GOSUB Measure
-STOP
+   STOP
 Measure2: !
     Ilimit=.1
@@ 34번째 줄: / 35번째 줄: @@
     RETURN
 Measure1: !
-    Ilimit=.1
+   OUTPUT @File;"No., Elapsed-Time[s], Applied-Volt[V], Measured-Curr[A]"
-   Vmin=.01
+   Ilimit=.1  !전류한계
-   Vmax=1
+   Vmin=.001  !시작 전압
-   Nop=101
+   Vmax=1     !종료 전압
-   OUTPUT @Src;"E" !on
+   Nop=401    !NOP
-   FOR I=1 TO Nop
+   OUTPUT @Src;"E" !on
-     K=(Vmax/Vmin)^(1/(Nop-1))
+    Cmd$="V4"    !V limit = 3.2V   V5=32V V6=110V
-     Vset=Vmin*K^(I-1)
+    OUTPUT @Src;Cmd$
-     Vset=PROUND(Vset,-5)
+    Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
-      Cmd$="V5"
+    OUTPUT @Src;Cmd$
-     Cmd$=Cmd$&" D "&VAL$(Vset)&"V"
+    T0=TIMEDATE
-      Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
+   FOR I=1 TO Nop
-     OUTPUT @Src;Cmd$
+     K=(Vmax/Vmin)^(1/(Nop-1))
-     WAIT .2
+     Vset=Vmin*K^(I-1)
-     GOSUB Reading
+     Vset=PROUND(Vset,-5)
-     Volt=Vset
+     Cmd$=" D "&VAL$(Vset)&"V"   !전압 세팅
-     Curr=Data
+     OUTPUT @Src;Cmd$
-     PRINT "Count=";I;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
+     WAIT .01
-     OUTPUT @File;I,Volt,Curr
+      T1=TIMEDATE-T0
-   NEXT I
+     GOSUB Reading
-   OUTPUT @Src;"H" !off
+     Volt=Vset
-   RETURN
+     Curr=Data
-Measure:  !
+     PRINT "Count=";I;", T=";PROUND(T1,-4);"s, V=";Volt;"V, I=";Curr;"A"
-   Wait=2         !계측기 세팅을 한 후, 첫 측정에서 측정값이 0이 나오는 현상 때문에 잠시 대기 시간
+     OUTPUT @File;I,T1,Volt,Curr
-   OUTPUT @Src;"OM1"  !데이터 출력을 ascii로
+   NEXT I
-   OUTPUT @Src;"SN 0V, 10V, 0.1V"
+   OUTPUT @Src;"H" !off
-   OUTPUT @Src;"SP 10, 5, 900 SV0 T2"  !reverse OFF, Single Trig
+   RETURN
-   OUTPUT @Src;"D 2MA"                         !D2A 한계 2A
+Measure:  !
-   OUTPUT @Src;"E"                           !ON
+   Wait=2         !계측기 세팅을 한 후, 첫 측정에서 측정값이 0이 나오는 현상 때문에 잠시 대기 시간
-   OUTPUT @Src;"T9"                           !Sweep trigger: auto
+   OUTPUT @Src;"OM1"  !데이터 출력을 ascii로
-   WAIT Wait
+   OUTPUT @Src;"SN 0V, 10V, 0.1V"
-   FOR I=1 TO 100
+   OUTPUT @Src;"SP 10, 5, 900 SV0 T2"  !reverse OFF, Single Trig
-     GOSUB Reading
+   OUTPUT @Src;"D 2MA"                         !D2A 한계 2A
-   NEXT I
+   OUTPUT @Src;"E"                           !ON
-   GOSUB Data_process
+   OUTPUT @Src;"T9"                           !Sweep trigger: auto
-! OUTPUT @Src;"H"      !Operate OFF
+   WAIT Wait
-   RETURN
+   FOR I=1 TO 100
-Data_process:  !
+     GOSUB Reading
-   PRINT "Count=";Count;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
+   NEXT I
-   RETURN
+   GOSUB Data_process
-Reading:  !
+! OUTPUT @Src;"H"      !Operate OFF
-   FOR J=1 TO 5
+   RETURN
-     ENTER @Src;A$
+Data_process:  !
-     WAIT .02
+   PRINT "Count=";Count;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
-   NEXT J
+   RETURN
-   Data=VAL(A$[3,13])
+Reading:  !
-! Data=PROUND(Data,-5)  !유효수자 3자리
+   FOR J=1 TO 1
-   RETURN
+     ENTER @Src;A$
-Inst_open:  !
+     WAIT .01
-   ASSIGN @Src TO 714    !advantest TR6143
+   NEXT J
-   RETURN
+   Data=VAL(A$[3,13])
-Fileopen: !
+! Data=PROUND(Data,-5)  !유효수자 3자리
-   DIM Dhms$[8]
+   RETURN
-   DIM Filename$[20]
+Inst_open:  !
-   T=TIMEDATE
+   ASSIGN @Src TO 714    !advantest TR6143
-   Time$=TIME$(T) !하루 추가 +24*3600
+   RETURN
-   Date$=DATE$(T)
+Fileopen: !
-   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
+   DIM Dhms$[8]
-   Filename$=Dhms$&".txt"
+   DIM Filename$[20]
-   CREATE Filename$,1
+   T=TIMEDATE
-    ASSIGN @File TO Filename$;FORMAT ON
+   Time$=TIME$(T) !하루 추가 +24*3600
-    RETURN
+   Date$=DATE$(T)
-    END
+   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
 </pre>