4년, 14일, 6시간, 33분 - Togotech

"TR6143-vi.txt"의 두 판 사이의 차이

(새 문서: 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...)
 
 
1번째 줄: 1번째 줄:
 
[[Advantest TR6143]]  
 
[[Advantest TR6143]]  
 
<pre>
 
<pre>
−
20    ! 2020-01-17 TR6143-vi.txt
+
10    ! [[Advantest TR6143]] <pre>
 +
20    ! 2020-01-17
 
30    OPTION BASE 1
 
30    OPTION BASE 1
 
40    INTEGER I,Nop,Count
 
40    INTEGER I,Nop,Count
10번째 줄: 11번째 줄:
 
90  !  GOSUB Measure2  !linear
 
90  !  GOSUB Measure2  !linear
 
100 !  GOSUB Measure
 
100 !  GOSUB Measure
−
110 STOP
+
110   STOP
 
120 Measure2: !
 
120 Measure2: !
 
130    Ilimit=.1
 
130    Ilimit=.1
34번째 줄: 35번째 줄:
 
330    RETURN
 
330    RETURN
 
340 Measure1: !
 
340 Measure1: !
−
350    Ilimit=.1
+
350   OUTPUT @File;"No., Elapsed-Time[s], Applied-Volt[V], Measured-Curr[A]"
−
360   Vmin=.01
+
360   Ilimit=.1 !전류한계
−
370   Vmax=1
+
370   Vmin=.001  !시작 전압
−
380   Nop=101
+
380   Vmax=1     !종료 전압
−
390   OUTPUT @Src;"E" !on
+
390   Nop=401    !NOP
−
400   FOR I=1 TO Nop
+
400   OUTPUT @Src;"E" !on
−
410     K=(Vmax/Vmin)^(1/(Nop-1))
+
410    Cmd$="V4"    !V limit = 3.2V  V5=32V V6=110V
−
420     Vset=Vmin*K^(I-1)
+
420    OUTPUT @Src;Cmd$
−
430     Vset=PROUND(Vset,-5)
+
430    Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
−
440      Cmd$="V5"
+
440    OUTPUT @Src;Cmd$
−
450     Cmd$=Cmd$&" D "&VAL$(Vset)&"V"
+
450    T0=TIMEDATE
−
460      Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
+
460   FOR I=1 TO Nop
−
470     OUTPUT @Src;Cmd$
+
470     K=(Vmax/Vmin)^(1/(Nop-1))
−
480     WAIT .2
+
480     Vset=Vmin*K^(I-1)
−
490     GOSUB Reading
+
490     Vset=PROUND(Vset,-5)
−
500     Volt=Vset
+
500     Cmd$=" D "&VAL$(Vset)&"V"   !전압 세팅
−
510     Curr=Data
+
510     OUTPUT @Src;Cmd$
−
520     PRINT "Count=";I;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
+
520     WAIT .01
−
530     OUTPUT @File;I,Volt,Curr
+
530      T1=TIMEDATE-T0
−
540   NEXT I
+
540     GOSUB Reading
−
550   OUTPUT @Src;"H" !off
+
550     Volt=Vset
−
560   RETURN
+
560     Curr=Data
−
570 Measure:  !
+
570     PRINT "Count=";I;", T=";PROUND(T1,-4);"s, V=";Volt;"V, I=";Curr;"A"
−
580   Wait=2        !계측기 세팅을 한 후, 첫 측정에서 측정값이 0이 나오는 현상 때문에 잠시 대기 시간
+
580     OUTPUT @File;I,T1,Volt,Curr
−
590   OUTPUT @Src;"OM1"  !데이터 출력을 ascii로
+
590   NEXT I
−
600   OUTPUT @Src;"SN 0V, 10V, 0.1V"
+
600   OUTPUT @Src;"H" !off
−
610   OUTPUT @Src;"SP 10, 5, 900 SV0 T2"  !reverse OFF, Single Trig
+
610   RETURN
−
620   OUTPUT @Src;"D 2MA"                        !D2A 한계 2A
+
620 Measure:  !
−
630   OUTPUT @Src;"E"                          !ON
+
630   Wait=2        !계측기 세팅을 한 후, 첫 측정에서 측정값이 0이 나오는 현상 때문에 잠시 대기 시간
−
640   OUTPUT @Src;"T9"                          !Sweep trigger: auto
+
640   OUTPUT @Src;"OM1"  !데이터 출력을 ascii로
−
650   WAIT Wait
+
650   OUTPUT @Src;"SN 0V, 10V, 0.1V"
−
660   FOR I=1 TO 100
+
660   OUTPUT @Src;"SP 10, 5, 900 SV0 T2"  !reverse OFF, Single Trig
−
670     GOSUB Reading
+
670   OUTPUT @Src;"D 2MA"                        !D2A 한계 2A
−
680   NEXT I
+
680   OUTPUT @Src;"E"                          !ON
−
690   GOSUB Data_process
+
690   OUTPUT @Src;"T9"                          !Sweep trigger: auto
−
700 ! OUTPUT @Src;"H"      !Operate OFF
+
700   WAIT Wait
−
710   RETURN
+
710   FOR I=1 TO 100
−
720 Data_process:  !
+
720     GOSUB Reading
−
730   PRINT "Count=";Count;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
+
730   NEXT I
−
740   RETURN
+
740   GOSUB Data_process
−
750 Reading:  !
+
750 ! OUTPUT @Src;"H"      !Operate OFF
−
760   FOR J=1 TO 5
+
760   RETURN
−
770     ENTER @Src;A$
+
770 Data_process:  !
−
771     WAIT .02
+
780   PRINT "Count=";Count;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
−
780   NEXT J
+
790   RETURN
−
790   Data=VAL(A$[3,13])
+
800 Reading:  !
−
800 ! Data=PROUND(Data,-5)  !유효수자 3자리
+
810   FOR J=1 TO 1
−
810   RETURN
+
820     ENTER @Src;A$
−
820 Inst_open:  !
+
830     WAIT .01
−
830   ASSIGN @Src TO 714    !advantest TR6143
+
840   NEXT J
−
840   RETURN
+
850   Data=VAL(A$[3,13])
−
850 Fileopen: !
+
860 ! Data=PROUND(Data,-5)  !유효수자 3자리
−
860   DIM Dhms$[8]
+
870   RETURN
−
870   DIM Filename$[20]
+
880 Inst_open:  !
−
880   T=TIMEDATE
+
890   ASSIGN @Src TO 714    !advantest TR6143
−
890   Time$=TIME$(T) !하루 추가 +24*3600
+
900   RETURN
−
900   Date$=DATE$(T)
+
910 Fileopen: !
−
910   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
+
920   DIM Dhms$[8]
−
920   Filename$=Dhms$&".txt"
+
930   DIM Filename$[20]
−
930   CREATE Filename$,1
+
940   T=TIMEDATE
−
940    ASSIGN @File TO Filename$;FORMAT ON
+
950   Time$=TIME$(T) !하루 추가 +24*3600
−
950    RETURN
+
960   Date$=DATE$(T)
−
960    END
+
970   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
 +
980   Filename$=Dhms$&".txt"
 +
990   CREATE Filename$,1
 +
1000  ASSIGN @File TO Filename$;FORMAT ON
 +
1010  RETURN
 +
1020  END
 
</pre>
 
</pre>

2020년 11월 10일 (화) 11:37 기준 최신판

Advantest TR6143 

10     ! [[Advantest TR6143]] <pre>
20     ! 2020-01-17
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    OUTPUT @File;"No., Elapsed-Time[s], Applied-Volt[V], Measured-Curr[A]"
360    Ilimit=.1  !전류한계
370    Vmin=.001  !시작 전압
380    Vmax=1     !종료 전압
390    Nop=401    !NOP
400    OUTPUT @Src;"E" !on
410    Cmd$="V4"    !V limit = 3.2V   V5=32V V6=110V
420    OUTPUT @Src;Cmd$
430    Cmd$=Cmd$&" D "&VAL$(Ilimit)&"A"
440    OUTPUT @Src;Cmd$
450    T0=TIMEDATE
460    FOR I=1 TO Nop
470      K=(Vmax/Vmin)^(1/(Nop-1))
480      Vset=Vmin*K^(I-1)
490      Vset=PROUND(Vset,-5)
500      Cmd$=" D "&VAL$(Vset)&"V"   !전압 세팅
510      OUTPUT @Src;Cmd$
520      WAIT .01
530      T1=TIMEDATE-T0
540      GOSUB Reading
550      Volt=Vset
560      Curr=Data
570      PRINT "Count=";I;", T=";PROUND(T1,-4);"s, V=";Volt;"V, I=";Curr;"A"
580      OUTPUT @File;I,T1,Volt,Curr
590    NEXT I
600    OUTPUT @Src;"H" !off
610    RETURN
620 Measure:  !
630    Wait=2         !계측기 세팅을 한 후, 첫 측정에서 측정값이 0이 나오는 현상 때문에 잠시 대기 시간
640    OUTPUT @Src;"OM1"  !데이터 출력을 ascii로
650    OUTPUT @Src;"SN 0V, 10V, 0.1V"
660    OUTPUT @Src;"SP 10, 5, 900 SV0 T2"  !reverse OFF, Single Trig
670    OUTPUT @Src;"D 2MA"                         !D2A 한계 2A
680    OUTPUT @Src;"E"                           !ON
690    OUTPUT @Src;"T9"                           !Sweep trigger: auto
700    WAIT Wait
710    FOR I=1 TO 100
720      GOSUB Reading
730    NEXT I
740    GOSUB Data_process
750  ! OUTPUT @Src;"H"      !Operate OFF
760    RETURN
770 Data_process:  !
780    PRINT "Count=";Count;", T=";PROUND(Time_elapsed,-4);"m, V=";Volt;"V, I=";Curr;"A"
790    RETURN
800 Reading:  !
810    FOR J=1 TO 1
820      ENTER @Src;A$
830      WAIT .01
840    NEXT J
850    Data=VAL(A$[3,13])
860  ! Data=PROUND(Data,-5)  !유효수자 3자리
870    RETURN
880 Inst_open:  !
890    ASSIGN @Src TO 714    !advantest TR6143
900    RETURN
910 Fileopen: !
920    DIM Dhms$[8]
930    DIM Filename$[20]
940    T=TIMEDATE
950    Time$=TIME$(T) !하루 추가 +24*3600
960    Date$=DATE$(T)
970    Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
980    Filename$=Dhms$&".txt"
990    CREATE Filename$,1
1000   ASSIGN @File TO Filename$;FORMAT ON
1010   RETURN
1020   END
원본 주소 "http://www.togotech.co.kr/index.php?title=TR6143-vi.txt&oldid=37384"