文档介绍：卡西欧 5800 计算器道路程序精简版卡西欧 5800 计算器道路程序精简版----------------------------------------------------------- --------------------- 发布时间: 2008-11-29 17:17:21 发布人: bofei 阅读次数: 2483 (坐标正反算,程序模块化设计, 可自行升级,扩展功能) 建议录入程序次序 KEYLOCK 锁键程序可独立测试能正常运行 1 DISPLAYXYZ 主程序可独立测试能正常运行 2 READDAT 要素数据库文件(请改为自已路线的要素) 3 ZBJS 坐标计算程序 4 INZHANDZBJS 桩号、横距输入程序 5 TURNZH 坐标反算 6 INNEZ 实测坐标输入程序 7 如正确输入以上程序,运行 DISPLAYXYZ ,按“0”进行坐标反算,按“.”进行坐标正算。技术支持: Q285507730 FileName:INZHANDZBJS //: 桩号、横距输入程序:// Lbl S Cls:Norm 1 "ZH"?G ; 桩求桩号"JL"?B ; 输入横向距离"JJ"?W ; 输入斜桩角,一般为 90 W π÷ 180 →W Prog"ZBJS" ;080702 晚添加 Return FileName : ZBJS 坐标计算程序 Prog"READDAT" Rad G-M →Q (R-A) ÷L→K AQ→I KQ2 →J → P:H+IP+JP2 →O → P:H+IP+JP2 →T →P :H+IP+JP2 →D → P:H+IP+JP2 →F → P:H+IP+JP2 →P →I →J →Y N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)) →X E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P)) →Y H+AQ+KQ2 →F X+BCos(F+W) →X Y+BSin(F+W) →Y Return FileName:TURNZH( 坐标反算) Prog"INNEZ" 0→B: M+L ÷2→G: Prog"ZBJS" Lbi S:Rad U-X → I:V-Y →J If I=0 And J=0 :Then Goto A:IfEnd Pol(I,J) Lbi A:Rec(I,J-F) G+I → G:IF Abs(I)> :Then Prog"ZBJS":Goto S↙ J→B FileName : INNEZ 实测坐标输入程序 Lbl S Norm 1:Cls "DQD-N"?U 输入待求点 N 坐标"DQD-E"?V 输入待求点 E 坐标 Return FileName:KEYLOCK //: 本程序用于锁定键盘大部分按键,设定时间内无按键则反回默认健。只有“0”,“.”,“ x10x ”,“(-) ”这四个键可用,为了更方便说明程序,以后将分别定义这四个键为热键“0”===F1 “.”===F2 “ x10x ”===F3