2024년 5월 8일 (수) 08:05에 Togotech님의 편집

2024-05-08T08:05:58Z

2024년 5월 8일 (수) 05:02에 Togotech님의 편집

2024-05-08T05:02:31Z

Togotech: 새 문서: 2114H-01.txt

 1      ! 2114H-01.txt 10     CLEAR SCREEN 20     INTEGER No,Sec,Sec_pre 30     GOSUB Filecreate 40     OUTPUT @File;"No.,Time[s],Temp['C]" 50     T0=TIMEDAT...

2024-05-08T05:01:23Z

새 문서: 2114H-01.txt <pre> 1 ! 2114H-01.txt 10 CLEAR SCREEN 20 INTEGER No,Sec,Sec_pre 30 GOSUB Filecreate 40 OUTPUT @File;"No.,Time[s],Temp['C]" 50 T0=TIMEDAT...

새 문서

[[2114H-01.txt]]
<pre>
1 ! [[2114H-01.txt]]
10 CLEAR SCREEN
20 INTEGER No,Sec,Sec_pre
30 GOSUB Filecreate
40 OUTPUT @File;"No.,Time[s],Temp['C]"
50 T0=TIMEDATE
60 Sec_pre=-1
70 No=0
80 LOOP
90 LOOP
100 T=TIMEDATE-T0
110 Sec=INT(T)
120 IF Sec<>Sec_pre THEN
130 No=No+1
140 OUTPUT 702;"E"
150 ENTER 702;Temp
160 PRINT No;", ";Sec;"s, Temp=";Temp;"'C"
170 OUTPUT @File;No,T,Temp
180 Sec_pre=Sec
190 END IF
200 END LOOP
210 BEEP
220 EXIT IF No=1000
230 END LOOP
240 STOP
250 Filecreate: !
260 DIM Dhms$[8]
270 DIM Filename$[20]
280 T=TIMEDATE
290 Time$=TIME$(T) !하루 추가 +24*3600
300 Date$=DATE$(T)
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 END
</pre>

2114H-01.txt - 편집 역사

2024년 5월 8일 (수) 08:05에 Togotech님의 편집

2024년 5월 8일 (수) 05:02에 Togotech님의 편집

Togotech: 새 문서: 2114H-01.txt
1 ! 2114H-01.txt 10 CLEAR SCREEN 20 INTEGER No,Sec,Sec_pre 30 GOSUB Filecreate 40 OUTPUT @File;"No.,Time[s],Temp['C]" 50 T0=TIMEDAT...

@@ 1번째 줄: / 1번째 줄: @@
 [[Advantest TR2114H 디지털 멀티 온도계]]
 <pre>
-      ! [[2114H-01.txt]]
+     ! [[2114H-01.txt]]
     CLEAR SCREEN
-    INTEGER No,Sec,Sec_pre
+    INTEGER No,Meas_type
     GOSUB Filecreate
-    OUTPUT @File;"No.,Time[s],Temp['C]"
+    GOSUB Inst_setting
     T0=TIMEDATE
      No=0
-     LOOP
+     Meas_type=2    ! 1=무조건, 2=무조건+3채널, 3=1초에 한 번씩,
-      LOOP
+    SELECT Meas_type
-       T=TIMEDATE-T0
+    CASE 1
-       Sec=INT(T)
+      OUTPUT @File;"No.,Time[s],A Temp['C]"
-        IF Sec<>Sec_pre THEN
+      OUTPUT @Tc;"N01"   !CH A
-          No=No+1
+      LOOP
-          OUTPUT 702;"E"
+        No=No+1
-          ENTER 702;Temp
+        T1=TIMEDATE-T0
-          PRINT No;", ";Sec;"s, Temp=";Temp;"'C"
+        T=PROUND(T1,-2)
-          OUTPUT @File;No,T,Temp
+        OUTPUT @Tc;"E"
-          Sec_pre=Sec
+        ENTER @Tc;Temp1
-       END IF
+       PRINT No;", ";T;"s, Temp=";Temp1;"'C"
-     END LOOP
+        OUTPUT @File;No,T,Temp1
-      BEEP
+      END LOOP
-   EXIT IF No=1000
+    CASE 2
-   END LOOP
+      OUTPUT @File;"No.,Time[s],A Temp['C],B Temp['C],A-B Temp['C]"
-   STOP
+      LOOP
-Filecreate:  !
+        No=No+1
-   DIM Dhms$[8]
+        T1=TIMEDATE-T0
-   DIM Filename$[20]
+        T=PROUND(T1,-2)
-   T=TIMEDATE
+        OUTPUT @Tc;"N01"
-   Time$=TIME$(T) !하루 추가 +24*3600
+        OUTPUT @Tc;"E"
-   Date$=DATE$(T)
+        ENTER @Tc;Temp1
-   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
+        OUTPUT @Tc;"N02"
-   Filename$=Dhms$&".txt"
+        OUTPUT @Tc;"E"
-   CREATE Filename$,1
+        ENTER @Tc;Temp2
-   ASSIGN @File TO Filename$;FORMAT ON
+        OUTPUT @Tc;"N03"
-   RETURN
+        OUTPUT @Tc;"E"
-   END
+        ENTER @Tc;Temp3
 </pre>