BM5A-01.txt - 편집 역사

2024년 3월 13일 (수) 07:18에 Togotech님의 편집

2024-03-13T07:18:50Z

2024년 3월 13일 (수) 02:41에 Togotech님의 편집

2024-03-13T02:41:05Z

Togotech: 새 문서: Topcon BM-5A 색채휘도계

 10     CLEAR SCREEN 20     DIM A$[55] 30     GOSUB Fileopen 40     ASSIGN @Bm5a TO 701 50     OUTPUT @Bm5a;"ST" 60     ENTER @Bm5a;A$ 70     DI...

2024-03-11T07:35:12Z

새 문서: Topcon BM-5A 색채휘도계 <pre> 10 CLEAR SCREEN 20 DIM A$[55] 30 GOSUB Fileopen 40 ASSIGN @Bm5a TO 701 50 OUTPUT @Bm5a;"ST" 60 ENTER @Bm5a;A$ 70 DI...

새 문서

[[Topcon BM-5A 색채휘도계]]
<pre>
10 CLEAR SCREEN
20 DIM A$[55]
30 GOSUB Fileopen
40 ASSIGN @Bm5a TO 701
50 OUTPUT @Bm5a;"ST"
60 ENTER @Bm5a;A$
70 DISP A$
80 OUTPUT @File;A$
90 STOP
100 Fileopen: !
110 DIM Filename$[20],Dhms$[8]
120 Time$=TIME$(TIMEDATE)
130 Date$=DATE$(TIMEDATE)
140 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
150 Filename$=Dhms$&".txt"
160 CREATE Filename$,1
170 ASSIGN @File TO Filename$;FORMAT ON
180 RETURN
190 END
</pre>

@@ 6번째 줄: / 6번째 줄: @@
      CLEAR SCREEN
      OPTION BASE 1
-     DIM A$[73],Eol$[1]
+     DIM A$[90],Eol$[1]
-     GOSUB Fileopen
+    INTEGER No,Stat,Pos1,Pos_x,Pos_y,Pos_z
-    Eol$=CHR$(13)
+    GOSUB Fileopen
-     CLEAR 7
+    Eol$=CHR$(13)
     ASSIGN @Bm5a TO 701;EOL Eol$
-    CLEAR @Bm5a
+    Meas=2 !!!!!!!!!!!!!!!!!!!!!!!
-    OUTPUT @File;"No.,Time,Range,FOV,Tc,duv,X,Y,Z,x,y,u',v'"
+    SELECT Meas
-    FOR I=1 TO 2
+    CASE 1 !순수한 측정
-     OUTPUT @Bm5a;"M2 ST"
+      OUTPUT @File;"No.,Time,Stat,Range,FOV,Tc,duv,X,Y,Z,x,y,u',v'"
-      Time$=TIME$(TIMEDATE)
+      FOR No=1 TO 10
-      WAIT 1
+        GOSUB Measure
-      ENTER @Bm5a;A$
+        OUTPUT @File;No,Time$;",";Stat,Range,Fov,Tc,Duv,X,Y,Z,Xs,Ys,U,V
-      DISP I,A$
+      NEXT No
-      IF VAL(A$[2,2])=0 THEN !측정 데이터가 정상이면 수행한다.
+    CASE 2 !AC 전압 100~220V 에 따른 측정
-       IF I=1 THEN
+      ASSIGN @Power TO 705
-          Range=VAL(A$[8,8])   ! 1,2,3,4,5
+      OUTPUT @Power;"CURR:LEV 1" !!!!!!!!!!!! 1A
-          SELECT VAL(A$[12,12])  ! 1,2,3,4
+      OUTPUT @Power;"OUTP ON"
-          CASE 1
+      OUTPUT @File;"No.,Time,ACV[V],Stat,Range,FOV,Tc,duv,X,Y,Z,x,y,u',v'"
-            Fov=.1    !degree
+      FOR No=50 TO 220
-          CASE 2
+        OUTPUT @Power;"VOLT ";No
-            Fov=.2
+        GOSUB Measure
-          CASE 3
+        OUTPUT @File;No-49,Time$;",";No,Stat,Range,Fov,Tc,Duv,X,Y,Z,Xs,Ys,U,V
-            Fov=1
+      NEXT No
-          CASE 4
+      OUTPUT @Power;"VOLT 0"
-            Fov=2
+     OUTPUT @Power;"OUTP OFF"
-          END SELECT
+    END SELECT
-       END IF
+    STOP
-       X=VAL(A$[39,47])
+Measure:    !
-       Y=VAL(A$[52,60])
+    OUTPUT @Bm5a;"M2 ST"
-       Z=VAL(A$[65,73])
+    Time$=TIME$(TIMEDATE)
-       Tc=VAL(A$[18,23])
+    WAIT .1
-       Duv=VAL(A$[29,34])
+    ENTER @Bm5a;A$
-       Xs=PROUND(X/(X+Y+Z),-4)!Xs=x
+    DISP No,Time$,A$
-        Ys=PROUND(Y/(X+Y+Z),-4)!Ys=y
+    Stat=VAL(A$[2,2])
-        U=PROUND(4*X/(X+15*Y+3*Z),-4)
+    IF Stat=0 THEN   !측정 데이터가 정상이면 수행한다.
-        V=PROUND(9*Y/(X+15*Y+3*Z),-4)
+      ! 첫측정만 유효하다. !!!!!!
-        OUTPUT @File;I,Time$;",";Range,Fov,Tc,Duv,X,Y,Z,Xs,Ys,U,V
+       Range=VAL(A$[8,8])     ! 1,2,3,4,5
-      END IF
+        SELECT VAL(A$[12,12])    ! 1,2,3,4
-   NEXT I
+        CASE 1
-    STOP
+          Fov=.1      !degree
-Fileopen:  !
+        CASE 2
-   DIM Filename$[20],Dhms$[8],Time$[8],Date$[11]
+          Fov=.2
-   Time$=TIME$(TIMEDATE)
+        CASE 3
-   Date$=DATE$(TIMEDATE)
+          Fov=1
-   Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
+        CASE 4
-   Filename$=Dhms$&".txt"
+          Fov=2
-   CREATE Filename$,1
+        END SELECT
-   ASSIGN @File TO Filename$;FORMAT ON
+      !!!!!!!!!!!!!!!!!!!!!!!!!!
-   RETURN
+      Pos1=POS(A$,"Tc =")
-   END
+      IF A$[Pos1+5,Pos1+5]="*" THEN
 </pre>