Prober01-ibw.txt - 편집 역사

2020년 5월 21일 (목) 03:49에 Togotech님의 편집

2020-05-21T03:49:30Z

2020년 4월 28일 (화) 05:57에 Togotech님의 편집

2020-04-28T05:57:52Z

Togotech: 새 문서:

 10     !저항만 읽어들이는 프로그램 2016/09/06 김명기 11     !KEITHLEY 2612B 20     DIM Infilename$[20],Outfilename$[20],Dhms$[8] 30     INTEGER I,J,Diex,Diey 40...

2020-04-19T07:08:57Z

새 문서: <pre> 10 !저항만 읽어들이는 프로그램 2016/09/06 김명기 11 !KEITHLEY 2612B 20 DIM Infilename$[20],Outfilename$[20],Dhms$[8] 30 INTEGER I,J,Diex,Diey 40...

새 문서

<pre>
10 !저항만 읽어들이는 프로그램 2016/09/06 김명기
11 !KEITHLEY 2612B
20 DIM Infilename$[20],Outfilename$[20],Dhms$[8]
30 INTEGER I,J,Diex,Diey
40 DIM Tmp$[1]
50 Time$=TIME$(TIMEDATE)
60 Date$=DATE$(TIMEDATE)
70 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
80 Infilename$="XY-01.txt"
90 Outfilename$=Dhms$&".txt"
100 CREATE Outfilename$,1
110 ASSIGN @Probe TO 402
120 ASSIGN @Sm TO 426
130 ASSIGN @Infile TO Infilename$;FORMAT ON
140 ASSIGN @Outfile TO Outfilename$;FORMAT ON
150 GOSUB Infile_retrieve
160 T0=TIMEDATE
170 FOR I=1 TO Total_count
180 Diex=X(I)
190 Diey=-Y(I)
200 OUTPUT @Probe;"MOX"&VAL$(Diex)&"Y"&VAL$(Diey)
210 ENTER @Probe;Tmp$
220 WAIT .2
230 OUTPUT @Sm;"print(smua.measure.iv())"
240 ENTER @Sm;Curr,Volt
250 T1=TIMEDATE-T0
260 PRINT Count,INT(T1);"sec","X=";X(I),"Y=";Y(I),"V=";Volt,"I=";Curr
270 OUTPUT @Outfile;Count,T1,X(I),Y(I),Volt,Curr
280 NEXT I
290 STOP
300 Infile_retrieve: !
310 INTEGER Nod,Total_count
320 Nod=3000
330 ALLOCATE INTEGER X(Nod),Y(Nod)
340 ENTER @Infile;Total_count
350 FOR I=1 TO Total_count
360 ENTER @Infile;X(I),Y(I)
370 NEXT I
380 ASSIGN @Infile TO *
390 RETURN
400 END
</pre>

← 이전 판		2020년 5월 21일 (목) 03:49 판
1번째 줄:		1번째 줄:
		+	[[프루버]]
	<pre>		<pre>
	20 !hp 3478A DMM !코일 저항만 읽어들이는 프로그램 2020/04/19 김명기		20 !hp 3478A DMM !코일 저항만 읽어들이는 프로그램 2020/04/19 김명기

@@ 1번째 줄: / 1번째 줄: @@
 <pre>
-    !저항만 읽어들이는 프로그램 2016/09/06 김명기
+    !hp 3478A DMM !코일 저항만 읽어들이는 프로그램 2020/04/19 김명기
-    !KEITHLEY 2612B
+    !hp 4284A LCR !LCR 미터 추가 2020/04/28 김명기
     DIM Infilename$[20],Outfilename$[20],Dhms$[8]
     INTEGER I,J,Diex,Diey
     DIM Tmp$[1]
     Time$=TIME$(TIMEDATE)
     Date$=DATE$(TIMEDATE)
     Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
-     Infilename$="XY-01.txt"
+    Infilename$="XY-01.txt"
-     Outfilename$=Dhms$&".txt"
+    Outfilename$=Dhms$&".txt"
    CREATE Outfilename$,1
     ASSIGN @Infile TO Infilename$;FORMAT ON
     ASSIGN @Outfile TO Outfilename$;FORMAT ON
-    GOSUB Infile_retrieve
+   ASSIGN @Probe TO 402
-   T0=TIMEDATE
+    Inst=2
-   FOR I=1 TO Total_count
+    SELECT Inst
-     Diex=X(I)
+    CASE 1  !3478A
-     Diey=-Y(I)
+      ASSIGN @Dmm TO 427
-     OUTPUT @Probe;"MOX"&VAL$(Diex)&"Y"&VAL$(Diey)
+      OUTPUT @Outfile;"No.,Time,X,Y,R"
-     ENTER @Probe;Tmp$
+    CASE 2  !4284A
-     WAIT .2
+      ASSIGN @Lcr TO 417
-     OUTPUT @Sm;"print(smua.measure.iv())"
+      OUTPUT @Lcr;"TRIG:SOUR BUS"
-      ENTER @Sm;Curr,Volt
+      OUTPUT @Lcr;"ABORT;:INIT"
-      T1=TIMEDATE-T0
+      OUTPUT @Outfile;"No.,Time,X,Y,A-value,B-value"
-      PRINT Count,INT(T1);"sec","X=";X(I),"Y=";Y(I),"V=";Volt,"I=";Curr
+    END SELECT
-      OUTPUT @Outfile;Count,T1,X(I),Y(I),Volt,Curr
+   GOSUB Infile_retrieve
-   NEXT I
+   T0=TIMEDATE
-   STOP
+   FOR I=1 TO Total_count
-Infile_retrieve:    !
+     Diex=X(I)
-   INTEGER Nod,Total_count
+     Diey=-Y(I)
-   Nod=3000
+     OUTPUT @Probe;"MOX"&VAL$(Diex)&"Y"&VAL$(Diey)
-   ALLOCATE INTEGER X(Nod),Y(Nod)
+     ENTER @Probe;Tmp$
-   ENTER @Infile;Total_count
+     WAIT 1
-   FOR I=1 TO Total_count
+      T1=TIMEDATE-T0
-     ENTER @Infile;X(I),Y(I)
+      SELECT Inst
-   NEXT I
+     CASE 1!3478A
-   ASSIGN @Infile TO *
+        ENTER @Dmm;R
-   RETURN
+        PRINT I,INT(T1);"sec","X=";X(I),"Y=";Y(I),"R=";R
-   END
+        OUTPUT @Outfile;I,T1,X(I),Y(I),R
 </pre>