坐標(biāo)法測圖系統(tǒng)設(shè)計(jì)優(yōu)化
(作者未知) 2009/5/21
(接上頁)>
558 *EE:BEEP 1,4:LOCATE 15,1:USING "########.###":PRINT "X=";MDF X;:USING "########.#":PRINT K*(X-X0)
560 LOCATE 15,2:USING "########.###":PRINT "Y=";MDF Y;:USING "########.#":PRINT K*(Y-Y0)
562 LOCATE 15,3:USING "########.##":PRINT "H=";MDF H;:USING "#########.##":PRINT MDF H
570 LOCATE 20,0:INPUT "SAVE=?(0/1-9) ";WI
572 IF WI=0 THEN GOTO 514
584 RR$="*":LOCATE 16,0:INPUT " D.M=? ";RR$
586 OPEN (NA$+STR$ (WI)) FOR APPEND AS #5
588 X=INT (X*1000+0.5)/1000:Y=INT (Y*1000+0.5)/1000:H=INT (H*100+0.5)/100
590 PRINT #5,RR$;",";X;",";Y;",";H
592 LOCATE 20,0:PAUSE " OK ! ";RR$;" ":CLOSE #5
594 GOTO 514
|