"BM5A-01.txt"의 두 판 사이의 차이
(새 문서: 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...) |
잔글 |
||
1번째 줄: | 1번째 줄: | ||
[[Topcon BM-5A 색채휘도계]] | [[Topcon BM-5A 색채휘도계]] | ||
<pre> | <pre> | ||
− | 10 CLEAR SCREEN | + | 10 ! 1 2 3 4 5 6 7 8 |
− | + | 20 !12345678901234567890123456789012345678901234567890123456789012345678901234567890 | |
− | + | 30 !D0TFRAR2UCF2 Tc = 8202 duv= 0.017 X= 2.609E+01 Y= 3.003E+01 Z= 3.551E+01 | |
− | + | 40 CLEAR SCREEN | |
− | + | 50 OPTION BASE 1 | |
− | + | 60 DIM A$[73],Eol$[1] | |
− | + | 70 GOSUB Fileopen | |
− | + | 80 Eol$=CHR$(13) | |
− | + | 90 CLEAR 7 | |
− | + | 100 ASSIGN @Bm5a TO 701;EOL Eol$ | |
− | + | 110 CLEAR @Bm5a | |
− | + | 120 OUTPUT @File;"No.,Time,Range,FOV,Tc,duv,X,Y,Z,x,y,u',v'" | |
− | + | 130 FOR I=1 TO 2 | |
− | + | 140 OUTPUT @Bm5a;"M2 ST" | |
− | + | 150 Time$=TIME$(TIMEDATE) | |
− | + | 160 WAIT 1 | |
− | + | 170 ENTER @Bm5a;A$ | |
− | + | 180 DISP I,A$ | |
− | + | 190 IF VAL(A$[2,2])=0 THEN !측정 데이터가 정상이면 수행한다. | |
+ | 200 IF I=1 THEN | ||
+ | 210 Range=VAL(A$[8,8]) ! 1,2,3,4,5 | ||
+ | 220 SELECT VAL(A$[12,12]) ! 1,2,3,4 | ||
+ | 230 CASE 1 | ||
+ | 240 Fov=.1 !degree | ||
+ | 250 CASE 2 | ||
+ | 260 Fov=.2 | ||
+ | 270 CASE 3 | ||
+ | 280 Fov=1 | ||
+ | 290 CASE 4 | ||
+ | 300 Fov=2 | ||
+ | 310 END SELECT | ||
+ | 320 END IF | ||
+ | 330 X=VAL(A$[39,47]) | ||
+ | 340 Y=VAL(A$[52,60]) | ||
+ | 350 Z=VAL(A$[65,73]) | ||
+ | 360 Tc=VAL(A$[18,23]) | ||
+ | 370 Duv=VAL(A$[29,34]) | ||
+ | 380 Xs=PROUND(X/(X+Y+Z),-4)!Xs=x | ||
+ | 390 Ys=PROUND(Y/(X+Y+Z),-4)!Ys=y | ||
+ | 400 U=PROUND(4*X/(X+15*Y+3*Z),-4) | ||
+ | 410 V=PROUND(9*Y/(X+15*Y+3*Z),-4) | ||
+ | 420 OUTPUT @File;I,Time$;",";Range,Fov,Tc,Duv,X,Y,Z,Xs,Ys,U,V | ||
+ | 430 END IF | ||
+ | 440 NEXT I | ||
+ | 450 STOP | ||
+ | 460 Fileopen: ! | ||
+ | 470 DIM Filename$[20],Dhms$[8],Time$[8],Date$[11] | ||
+ | 480 Time$=TIME$(TIMEDATE) | ||
+ | 490 Date$=DATE$(TIMEDATE) | ||
+ | 500 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] | ||
+ | 510 Filename$=Dhms$&".txt" | ||
+ | 520 CREATE Filename$,1 | ||
+ | 530 ASSIGN @File TO Filename$;FORMAT ON | ||
+ | 540 RETURN | ||
+ | 550 END | ||
</pre> | </pre> |
2024년 3월 13일 (수) 11:41 판
10 ! 1 2 3 4 5 6 7 8 20 !12345678901234567890123456789012345678901234567890123456789012345678901234567890 30 !D0TFRAR2UCF2 Tc = 8202 duv= 0.017 X= 2.609E+01 Y= 3.003E+01 Z= 3.551E+01 40 CLEAR SCREEN 50 OPTION BASE 1 60 DIM A$[73],Eol$[1] 70 GOSUB Fileopen 80 Eol$=CHR$(13) 90 CLEAR 7 100 ASSIGN @Bm5a TO 701;EOL Eol$ 110 CLEAR @Bm5a 120 OUTPUT @File;"No.,Time,Range,FOV,Tc,duv,X,Y,Z,x,y,u',v'" 130 FOR I=1 TO 2 140 OUTPUT @Bm5a;"M2 ST" 150 Time$=TIME$(TIMEDATE) 160 WAIT 1 170 ENTER @Bm5a;A$ 180 DISP I,A$ 190 IF VAL(A$[2,2])=0 THEN !측정 데이터가 정상이면 수행한다. 200 IF I=1 THEN 210 Range=VAL(A$[8,8]) ! 1,2,3,4,5 220 SELECT VAL(A$[12,12]) ! 1,2,3,4 230 CASE 1 240 Fov=.1 !degree 250 CASE 2 260 Fov=.2 270 CASE 3 280 Fov=1 290 CASE 4 300 Fov=2 310 END SELECT 320 END IF 330 X=VAL(A$[39,47]) 340 Y=VAL(A$[52,60]) 350 Z=VAL(A$[65,73]) 360 Tc=VAL(A$[18,23]) 370 Duv=VAL(A$[29,34]) 380 Xs=PROUND(X/(X+Y+Z),-4)!Xs=x 390 Ys=PROUND(Y/(X+Y+Z),-4)!Ys=y 400 U=PROUND(4*X/(X+15*Y+3*Z),-4) 410 V=PROUND(9*Y/(X+15*Y+3*Z),-4) 420 OUTPUT @File;I,Time$;",";Range,Fov,Tc,Duv,X,Y,Z,Xs,Ys,U,V 430 END IF 440 NEXT I 450 STOP 460 Fileopen: ! 470 DIM Filename$[20],Dhms$[8],Time$[8],Date$[11] 480 Time$=TIME$(TIMEDATE) 490 Date$=DATE$(TIMEDATE) 500 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 510 Filename$=Dhms$&".txt" 520 CREATE Filename$,1 530 ASSIGN @File TO Filename$;FORMAT ON 540 RETURN 550 END