Topcon BM-5A 색채휘도계
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