2023년 5월 12일 (금) 02:49에 Togotech님의 편집

2023-05-12T02:49:49Z

Togotech: 새 문서: Extech 7440

 10     CLEAR SCREEN 20     DIM A$[40],A1$[20],A2$[20] 30     INTEGER Count 40     INTEGER Volt_start,Volt_stop,Volt_step,Volt_set 50     ASSIGN @With TO 710 60...

2023-05-11T05:20:29Z

새 문서: Extech 7440 <pre> 10 CLEAR SCREEN 20 DIM A$[40],A1$[20],A2$[20] 30 INTEGER Count 40 INTEGER Volt_start,Volt_stop,Volt_step,Volt_set 50 ASSIGN @With TO 710 60...

새 문서

[[Extech 7440]]
<pre>
10 CLEAR SCREEN
20 DIM A$[40],A1$[20],A2$[20]
30 INTEGER Count
40 INTEGER Volt_start,Volt_stop,Volt_step,Volt_set
50 ASSIGN @With TO 710
60 GOSUB Fileopen
70 OUTPUT @With;"FD" !DCW function
80 OUTPUT @With;"SL 0.1" !ramp time min=0.1
90 OUTPUT @With;"SM 0.4" !dwell time min=0.4
100 OUTPUT @With;"SK 0.0" !LO-limit 0.0~999.9uA
110 OUTPUT @With;"SJ 2" !HI-limit 0 ~3500 uA
120 WAIT 1
130 OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]"
140 Count=0
150 Volt_start=1000
160 Volt_stop=6000
170 Volt_step=10
180 T0=TIMEDATE
190 LOOP
200 Count=Count+1
210 Volt_set=Volt_start+(Count-1)*Volt_step
220 OUTPUT @With;"SI";Volt_set
230 OUTPUT @With;"FA"
240 WAIT 1
250 OUTPUT @With;"?K"
260 ENTER @With;A$
270 A1$=A$[1,20]
280 A2$=A$[21,40]
290 Volt=VAL(A2$[7,10]) !kV
300 Curr=VAL(A2$[13,18]) !uA
310 ! NUM(A$[39,39])=230 =u
320 T=TIMEDATE-T0
330 OUTPUT @File;Count,T,Volt,Curr
340 PRINT Count,Volt,Curr
350 EXIT IF Volt_set=Volt_stop
360 END LOOP
370 GOSUB Fileclose
380 STOP
390 Fileopen: !
400 DIM Filename$[20],Dhms$[8]
410 Time$=TIME$(TIMEDATE)
420 Date$=DATE$(TIMEDATE)
430 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
440 Filename$=Dhms$&".txt"
450 CREATE Filename$,1
460 ASSIGN @File TO Filename$;FORMAT ON
470 RETURN
480 Fileclose: !
490 ASSIGN @File TO *
500 RETURN
510 END
</pre>

Ibw7440-01.txt - 편집 역사

2023년 5월 12일 (금) 02:49에 Togotech님의 편집

Togotech: 새 문서: Extech 7440
10 CLEAR SCREEN 20 DIM A$[40],A1$[20],A2$[20] 30 INTEGER Count 40 INTEGER Volt_start,Volt_stop,Volt_step,Volt_set 50 ASSIGN @With TO 710 60...

@@ 7번째 줄: / 7번째 줄: @@
      ASSIGN @With TO 710
      GOSUB Fileopen
-     OUTPUT @With;"FD"     !DCW function
+     OUTPUT @With;"FD"       !DCW function
-     OUTPUT @With;"SL 0.1"   !ramp  time min=0.1
+     OUTPUT @With;"SL 0.5"   !ramp time 0.4~999.9 s
-     OUTPUT @With;"SM 0.4"   !dwell time min=0.4
+     OUTPUT @With;"SM 2.0"   !dwell time 0, 0.3~999.9 s
-    OUTPUT @With;"SK 0.0"   !LO-limit 0.0~999.9uA
+    OUTPUT @With;"SK 0.0"   !LO-limit 0.0~999.9 uA
-    OUTPUT @With;"SJ 2"   !HI-limit 0  ~3500 uA
+    OUTPUT @With;"SJ 2000"  !HI-limit 0  ~3500 uA
     WAIT 1
     OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]"
     Count=0
-    Volt_start=1000
+    Volt_start=3000
-    Volt_stop=6000
+    Volt_stop=4500
     Volt_step=10
     T0=TIMEDATE
@@ 24번째 줄: / 24번째 줄: @@
       OUTPUT @With;"SI";Volt_set
       OUTPUT @With;"FA"
-     WAIT 1
+     WAIT 3
      OUTPUT @With;"?K"
       ENTER @With;A$
       A1$=A$[1,20]
       A2$=A$[21,40]
-      Volt=VAL(A2$[7,10])             !kV
+      Volt_unit$=A2$[11,12]  !kV
-     Curr=VAL(A2$[13,18])            !uA
+      Volt_str$=A2$[7,10]    !x.xx
-  !  NUM(A$[39,39])=230 =u
+      Curr_unit$=A2$[19,20]  !uV
-     T=TIMEDATE-T0
+      Curr_str$=A2$[14,18]   ! xxxx
-     OUTPUT @File;Count,T,Volt,Curr
+      Volt=VAL(Volt_str$)               !kV
-     PRINT Count,Volt,Curr
+     Curr=VAL(Curr_str$)               !uA
-   EXIT IF Volt_set=Volt_stop
+  !  NUM(A$[39,39])=230     !그리스문자 micro로 나온다.
-   END LOOP
+     T=TIMEDATE-T0
-   GOSUB Fileclose
+     OUTPUT @File;Count,T,Volt,Curr
-   STOP
+     PRINT "No.=";Count;" ,V=";Volt;"kV, I=";Curr;"uA"
-Fileopen:  !
+   EXIT IF Volt_set=Volt_stop
-   DIM Filename$[20],Dhms$[8]
+   END LOOP
-   Time$=TIME$(TIMEDATE)
+   GOSUB Fileclose
-   Date$=DATE$(TIMEDATE)
+   STOP
-   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
+Fileopen:  !
-   Filename$=Dhms$&".txt"
+   DIM Filename$[20],Dhms$[8]
-   CREATE Filename$,1
+   Time$=TIME$(TIMEDATE)
-   ASSIGN @File TO Filename$;FORMAT ON
+   Date$=DATE$(TIMEDATE)
-   RETURN
+   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
-Fileclose: !
+   Filename$=Dhms$&".txt"
-   ASSIGN @File TO *
+   CREATE Filename$,1
-   RETURN
+   ASSIGN @File TO Filename$;FORMAT ON
-   END
+   RETURN
 </pre>