5800道路程序终极版 附件为隧道版 .doc
5800道路程序终极版(附件为隧道版)附件(点击下载)：功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.帮助文件未完成程序浏览:FileName:RESET 初始化程序Norm 1:50C:12345J"RESET PW"?I:I=J=>500DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50ZC+22"PASSWORDS"?I:IZC+39 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50C "PASSWORDS"?J:Cls:JZC+39=>Stop 2008-08-07修改FileName:SHELL(外壳程序)50C ;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致ZC+35I:"STATION-N"?I:IZC+35 设置测站N坐标ZC+36I:"STATION-E"?I:IZC+36 设置测站E坐标ZC+44I:"STATION-Z"?I:IZC+44设置测站Z坐标ZC+45I:"STATION-HI"?I:IZC+45 设置仪高ZC+41I:"GC-DH"?I:IZC+41 放样点高差常数Norm 1ZC+23N当前分段要素N坐标ZC+24E当前分段要素E坐标ZC+25M当前分段要素起点桩号ZC+26H当前分段要素起点方位角（正北）单位：弧度ZC+27A当前分段要素起点曲率有左偏负右偏正（注意不半径）ZC+28R当前分段要素终点曲率有左偏负右偏正（注意不半径）ZC+29L当前分段要素长度ZC+3WZC+32I:"DAT1 2 3"?I:IZC+32 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值) 0IZC+4I:"1 2 3"?I:IZC+4 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi 1ZC+4II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"Lbi ADeg:Norm 1:ClsZC+1G:"ZH"?G:GZC+1 ;G桩求桩号ZC+2B:"JL"?B:BZC+2 ;B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Prog "GCJS" ;高程计算Fix 3:Cls 设置三位小数"ZH":Locate 4,1,G 第一行显示桩号"X":Locate 3,2,X 第二行显示X(N)坐标"Y":Locate 3,3,Y；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+ZC+41 ；第四行显示Z坐标Locate 10,4,ZC+2 ；第四行显示横向距离0IDo:I+1I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1Z+ZC+41+ZC+49-ZC+44-ZC+45ZC+48Pol(ZC+35-X,ZC+36-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,ZC+45"DH":Locate 3,2,ZC+48:Locate 12,2,ZC+49"FWJ"J<0=>J+360J:JDMS 2008-08-07 修改JZC+46IZC+47Goto 1FileName：ZBJS 坐标计算程序Prog"READDAT"RadG-MQIF AR=0 :Then If A=R :Then 1J:Else 3J :IfEnd:Else If A=R :Then 2J:Else 3J:IfEnd:IfEndIf J=1 :Then HF:N+QCos(H)X:E+QSin(H)Y:IfEnd 直线段直接计算If J=2 :Then H+QRF:Rec(Abs(2Sin(Abs(0.5QR)÷R),H+QR÷2):N+IX:E+JY:IfEnd 圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)XY+BSin(F+W)YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段0.5(R-A)÷LKAQIKQ2J0.0469100770P:H+IP+JP2U 0.2307653449P:H+IP+JP2V0.5P :H+IP+JP2D 0.7692346551P:H+IP+JP2F 0.9530899230P:H+IP+JP2T 0.1184634425I0.2393143352J0.2844444444ON+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T)XE+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISin(T)YH+AQ+KQ2FX+BCos(F+W)XY+BSin(F+W)YDeg:ReturnFileName:TURNZH(坐标反算) Norm 1ZC+37I:"DQD-N"?I:IZC+37 输入待求点N坐标I=-1=>Prog"INFWJDLDH"ZC+38I:"DQD-E"?I:IZC+38 输入待求点E坐标0B：M+L÷2G：Prog"ZBJS"Lbi S:RadZC+37-XI:ZC+38-YJIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):JZC+2G+IG:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S GZC+1FileName：INFWJDLDH实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZC+46J:"DQD-FWJ"?J:JZC+46ZC+47I:"DQD-DL"?I:IZC+47ZC+48K:"DQD-DZ"?K:KZC+48ZC+49P:"RHT"?P:PZC+49Rec(I,J)ZC+35+IZC+37ZC+36+JZC+38ZC+44+ZC+45+K-PZC+43FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1ZC+40I:"QPD-DL"?I:IZC+40 输入起坡点与中桩距离常数ZC+41I:"QPD-DZ"?I:IZC+41 输入起坡点与中桩高差常数ZC+42I:"i"?I:IZC+42 输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:ZC+43I:"DQD-Z"?I:IZC+43 输入实测高程Prog"TURNZH"Prog "GCJS"(ZC+43-Z-ZC+41)ZC+42+ZC+40BFix 3:B-ZC+2 显示与上一次测点的偏差BZC+2FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:ZC+33I:"QPD-ZH"?I:IZC+33 输入起坡点桩号ZC+34I:"QPD-Z"?I:IZC+34 输入起坡点高程ZC+42I:"i"?I:IZC+42 仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:ZC+43I:"DQD-Z"?I:IZC+43 输入实测高程Prog"TURNZH"ZC+42(ZC+43-ZC+34)+ZC+33GFix 3:G-ZC+1 显示与上一次测点的偏差GZC+1FileName:SET 设置程序1Lbi S2Norm 1350C450ZC+2250K6ZC+5I:"1 Or 2"?I:IZC+5 选择1线或者2线7180ZC+3÷J:"XZJJ"?J:J÷180ZC+3;斜桩夹角8If I=1:Then ZC+8ZC+6:ZC+9ZC+79ZC+12ZC+16:ZC+13ZC+17:ZC+18ZC+2010Else ZC+10ZC+6:ZC+11ZC+711ZC+14ZC+16:ZC+15ZC+17:ZC+19ZC+2012IfEnd 13ZC+7+3ZC+31140I:"1PQX,2SQX,3YSDS"?I ;1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序15I0=>Prog"DATLOCK" 2008-07-28 18：23修改16I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3 2008-07-28 18：23修改17Prog"SETPFDYS"18Stop19Lbi 1 ;平曲线要素输入部分20ZC+6D21-1ZD+322For 1J To ZC+1623Cls:"PQX":Locate 9,1,J24ZD+1I:"N"?I:IZD+1 请输入N坐标25ZD+2I:"E"?I:IZD+2 ;请输入E坐标26ZD+3I:"R"?I:IZD+3 请输入半径R27ZD+4I:"LS1"?I:IZD+4 ;请输入缓和曲线1长度28ZD+5I:"LS2"?I:IZD+5 请输入缓和曲线2长度29D+5D30Next311ZD-232Goto S33Lbi 2 ;竖曲线要素输入部分34ZC+7D35-1ZD+336For 1J To ZC+1737Cls:"SQX":Locate 9,1,J38ZD+1I:"BPDZH"?I:IZD+1 ;请输入变坡点桩号 2008-08-07修改39ZD+2I:"BPDGC"?I:IZD+2 ;请输入变坡点高程 2008-08-07修改40ZD+3I:"R"?I:IZD+3 ;请输入半径R 2008-08-07修改41D+3D42Next431ZD44Goto S45Lbi 3 ;要素点数输入部分46ZC+12I:"1PQXDS"?I:IZC+12 输入1线平曲线点数,最小值为347ZC+13I:"1SQXDS"?I:IZC+13 输入1线竖曲线点数,最小值为348ZC+18I:"1JDZH"?I:IZC+18 ;输入1线平曲线第一个交点的交点桩号49ZC+14I:"2PQXDS"?I:IZC+14 输入2线平曲线点数,最小值为350ZC+15I:"2SQXDS"?I:IZC+15 输入2线竖曲线点数,最小值为351ZC+19I:"2JDZH"?I:IZC+19 输入2线平曲线第一个交点的交点桩号52C+ZC+22ZC+8 1线路平曲线要素指针偏移基数53ZC+8+5ZC+12ZC+9 1线路竖曲线要素指针偏移基数54ZC+9+3ZC+13ZC+10 2线路平曲线要素指针偏移基数 55ZC+10+5ZC+14ZC+11 2线路竖曲线要素指针偏移基数56ZC+11+3ZC+15ZC+21 要素数据库结束指针57ZC+21+1ZC+3058ZC+21DimZ 增加额外变量59-1K60Goto SFileName:SETPFDYS 交点要素=>分段要素1Norm 1250C3Rad4ZC+6+5D5ZC+21+1F6F+6DimZ7-1ZF 设置分段要素开始标志8ZC+20V ; 从数据库读入当前线第一个平曲线交点桩号90G10Pol(ZD+1-ZD-4,ZD+2-ZD-3) ；计算第一条直线的距离I，计算方位角J11JH 12ZD-4ZF+1 直线段13ZD-3ZF+214V-IZF+315For 1G To ZC+16-2 16Pol(ZD+1-ZD-4,ZD+2-ZD-3) ；计算第本交点与下一交点的距离I，计算方位角J17JH 2008-08-07 修改18Pol(ZD+6-ZD+1,ZD+7-ZD+2)19IW:J-HK ；计算转角K，负值是左转角，正值是右转角 2008-08-07 修改20IF Abs(K)>:Then If K>0:Then K-2K:Else K+2K:IfEnd:IfEnd21ZD+3R 从数据库读入半径R22ZD+4L 从数据库读入缓和曲线1长度23ZD+5M 从数据库读入缓和曲线2长度24L÷2÷RB 计算缓和曲线1的B0角25M÷2÷RO 计算缓和曲线2的B0角26(Abs(K)-B-O)RP 计算圆曲线长度27L2÷24÷R-L(4) ÷2384÷R(3) Q 内移值计算方法228L÷2-L(3) ÷240÷R2S ;切线增长值计算方法229M2÷24÷R-M(4) ÷2384÷R(3) J 内移值计算方法230M÷2-M(3) ÷240÷R2I ;切线增长值计算方法231Abs(÷2- Abs(K) A32Rtan(Abs(K÷2)+S+J÷Cos(A)-QTan(A)T 计算切线133Rtan(Abs(K÷2)+I+Q÷Cos(A)-JTan(A)U 计算切线234H<0=>H+2H351A36K<0 =>-1A37HZF+4380ZF+5390ZF+640F+6F41F+6DimZ42Rec(T,H)缓和段143ZD+1-IN44ZD+2-JE45NZF+146EZF+247V-TZF+348L=0=>Goto A49HZF+4500ZF+551A÷RZF+652F+6F53F+6DimZ54Lbi A圆弧段550I:0J56L=0=>Goto B57Pol(L-L(3)÷40÷R2,L2÷6÷R-L(4)÷336÷R(4)58Lbi B59Rec(I,H+AJ)60N+IN61E+JE62NZF+163EZF+264V-T+LZF+365H+ABZF+466A÷RZF+567A÷RZF+668F+6F69F+6DimZ70M=0=>Goto C 缓和段271Rec(2RSin(0.5P÷R),H+AB+AP÷R÷2)72N+IN73E+JE74NZF+175EZF+276V-T+L+PZF+377H+AB+AP÷RZF+478A÷RZF+5790ZF+6 此处删除2008-08-06 修改80F+6F81F+6DimZ82Lbi C 此处插入2008-08-06 修改83Rec(U,H+K)84ZD+1+IZF+1 此处2008-08-07 修改85ZD+2+JZF+2 此处2008-08-07 修改86V-T+L+P+MZF+387V-T+L+P+M-U+WV 此处2008-08-07 修改88D+5D89Next90H+KZF+4910ZF+5920ZF+693F+9DimZ941ZF+795VZF+9 要素终点桩号96DegFileName：READDATZC+32II=3=>Prog"READDAT3" If G<M Or G>M+L :Then ;验证要素是否可用，否则重设要素I=1=>Prog"READDAT1" I=2=>Prog"READDAT2" Prog"REALDAT3" IfEndFileName:READDAT1 平曲线分段要素读取程序1ZC+30F0JLbi 1 搜索要素If G<ZF+3:Then -1=ZF=>Goto E:F-6F:-1J:Goto 1Else 1=ZF+1=>Goto E:-1=J=>Goto 2:1J:F+6F:Goto 1IfEndLbi 2FZC+30ZF+1ZC+23当前分段要素N坐标ZF+2ZC+24当前分段要素E坐标ZF+3ZC+25当前分段要素起点桩号ZF+4C+26当前分段要素起点方位角（正北）ZF+5ZC+27当前分段要素起点曲率有左偏负右偏正（注意不半径）ZF+6ZC+28 当前分段要素终点曲率有左偏负右偏正（注意不半径）ZF+9-ZF+3ZC+29 当前分段要素长度ReturnLbi ECls "ERROR"StopREADDAT2文件请输入内容为以下内容以便测试结果与本文一致。÷180JGoto 1Lbi 1If G<30008.396:Then Cls:Stop:IfEnd ;判断待求桩号是否小于本要素起点，如小于就停止运行程序If G<30661.038(终点里程):Then 2851422.090(起点X)N:513896.440(起点Y)E:30008.396M:213°3252J(起点方位角)H:0(起点曲率)A:0(终点曲率)R:652.642起点至终点长度L:Goto E:IfEndIf G<30921.038:Then 2850878.162N:513535.768E:30661.038M:213°3252JH:0A:1÷1300R:260L:Goto E:IfEndIf G<31426.367:Then 2850666.478N:513385.004E:30921.038M:219°1639JH:1÷1300A:1÷1300R:505.328L:Goto E:IfEndIf G<31686.367:Then 2850346.483N:512998.015E:31426.367M:241°3256JH:1÷1300A:0R:260L:Goto E:IfEndIf G>31686.367:Then Cls:Stop:IfEnd ;判断待求桩号是否大于本要素终点，如大于就停止运行程序Lbi ENZC+23:EZC+24:MZC+25:HZC+26:AZC+27:RZC+28:LZC+29FileName:READDAT3 平曲线分段要素读取程序3Norm 1ZC+23N:?N:NZC+23 当前分段要素N坐标ZC+24E:?E:EZC+24 当前分段要素E坐标ZC+25M:"SZH"?M:MZC+25 当前分段要素起点桩号180ZC+26÷H:HDMS"FWJ"?H:H÷180H:HZC+26 当前分段要素起点方位角（正北）单位：度分秒ZC+27A:"SR"?A:AZC+27 当前分段要素起点曲率有左偏负右偏正（注意是半径的倒数）ZC+28R:"ER"?R:RZC+28当前分段要素终点曲率有左偏负右偏正（注意是半径倒数）ZC+29L:?L:LZC+29当前分段要素长度ReturnFileName:GCJS高程计算ZC+31D0JLbi SDZC+31ZD-2I ZD-1V ZD+1K ZD+2O (O-V)÷(K-I)UZD+4IZD+5V (V-O)÷(J-K)VU-VZ 为正时是凸型竖曲线,负是时为凹竖曲线ZD+3I 读入半径Abs(IZ)÷2T 切线长If G<K-T:Then ;点在切点前If J=1 Or ZD=-1 :Then UG-UK+OZ :Return:IfEnd 计算高程Z-1J:D-3D:Goto SElse If G<K:Then 点在本交点的切点1和变坡点之间G-K+TQQ2÷2÷IIZ>0=>-IIO-UT+UQ+IZ 计算高程ZReturn Else If G<K+T:Then 点在本交点的变坡和切点2之间G-K-TQQ2÷2÷II Z>0=>-IIO+VT+VQ+IZ 计算高程ZReturn Else If J=-1 Or ZD+3=1 :Then O+VG-VKZ 计算高程ZReturnElse 1J:D+3D:Goto SIfEnd :IfEnd:IfEnd:IfEnd谢谢发贴：+72 分 【测量空间】Is_END_Re本文可共享补充New!以下内容为本站网友共同修正补充，欢迎大家也能参与修改共享补充（无须登陆）. . 蛮好的本文可共享补充 点击修改共享补充New! 查看楼主其它文章 <<返回 回复内容 只查看楼主与本人回复沙发：leerongjie08-1-20 20:24 回code 测量先支持一下。2 楼：'hippo08-1-20 13:42 回评：+8 分5800的结构化要好很多，更像一个语言编出来的东西。做的不错。3 楼：woaidan08-1-21 10:51 回我只会4850的编程，对5800还没有开始了解。谢谢楼主发贴啦，我要努力学习5800的编程了。4 楼：'新手08-1-22 5:1 回5800都不是很好了,现在是9860较好.5 楼：'刘文元08-1-23 15:2 回评：+2 分有没有更简单点的可以用6 楼：woaidan08-1-23 15:28 回9860更好是不错，但你要看看是什么价位的计算器相比。7 楼：傻傻08-2-26 21:7 回我的是5800，主要就是传输程序太麻烦，不能接电脑，很崩溃啊。8 楼：背着TOPCON行走的男人08-3-6 17:56 回 呵呵 5800 快用了一年了 ，都是自己编的程序，用起来比较散。今天刚刚进这个网站，看了楼主的这个程序，可以更加简化我的过程了。感谢。9 楼：背着TOPCON行走的男人08-3-6 17:56 回 呵呵 5800 快用了一年了 ，都是自己编的程序，用起来比较散。今天刚刚进这个网站，看了楼主的这个程序，可以更加简化我的过程了。感谢。10 楼：'580008-3-6 22:45 回请问下:READDAT2里的 曲率,起点至终点长度 代表的具体含意?11 楼：'游客08-3-15 18:49 回看来在程序编辑时是没少费心思，但是，步骤太繁琐，最好是进行简化一下。12 楼：'9194808-3-17 23:1 回评：+10 分这套程序需要多大内存啊 14 楼：yu00608-3-20 17:2 回评：+10 分给我说说吧这套程序，我输进5800计算器了怎么不运行呀！显示Memoyy ERROR 试图调用不存在的数据，是怎么回事拜托了，我急需用，谢谢15 楼：yu00608-3-22 15:57 回8楼:背着TOPCON行走的男人你能把你的5800程序发一套给我么？我现在急需使用。谢了先！16 楼：zhouzhou290808-3-26 13:42 回刚刚接触这个5800,也许很好用吧,但是不会编程17 楼：'新手ZJ08-3-27 16:12 回在5800计算器里怎么利用坐标反算其桩号和左右距离的，求求哪为高手指点一下呀 。19 楼：'无言08-3-28 15:54 回此程序里面需要建立数据库？怎么建立？20 楼：二阵风08-3-30 22:11 回程序太好了!感谢不尽!21 楼：zcj00708-4-2 19:18 回顶 ！22 楼：'格石08-4-18 17:1 回评：+8 分楼主。你好。我是刚接触公路施工测量，我们这里全线13公里。我只会用4500。好麻烦。难度大了！能发一分5800程序给我么，跪求了。我的QQ45708357923 楼：lc.208-4-24 19:54 回14 楼：yu006： 这是你的计算器没有进行变量扩展的原因。执行DEMF加上你想扩展的变量数目可能消除你所说的现像。24 楼：lc.208-4-24 19:59 回貌似5800并没有4850的编程语言简洁，与BASIC语言也有较大出入，有点像搞工程，大家都用的国家规范，而这个5800用的却是企业内部的规范。25 楼：'lhuang200808-4-25 14:5 回评：+10 分比我弄的简洁多了，希望楼主发个程序包来谢谢，lhuang00026 楼：yu00608-4-28 18:47 回谢谢了 我在弄这套程序，它怎么调不了子程序呀！请在给我指点一下好吗？我现在急需要用谢谢 我的 QQ72720243227 楼：'黄08-5-2 9:55 回评：+10 分刚来 看看 顶你下28 楼：yu00608-5-2 12:29 回评：+10 分怎么算出来不对呀！再有Pol(ZD+1-ZD-4,ZD+2-ZD-3)的ZD-4和ZD-3，ZD-1，ZD-2是什么意思给说一说好吗 29 楼：yu00608-5-5 14:53 回评：+6 分这套程序是不是要进行修改才能用33 楼：zzpsky199708-6-8 12:33 回下了。谢谢拉34 楼：zuozhongwen08-6-11 11:3 回请问楼主:casio5800中扩展变量如何操作呀35 楼：'luoweiran08-6-18 7:47 回请问“Norm” 如何输入？36 楼：'packen08-6-22 9:12 回最后一个"高程计算"的程序不能运行,请检查改正37 楼：wzhongg08-6-22 16:16 回回35楼，在编程时，按shift再mood就可以找到38 楼：wzhongg08-6-22 16:20 回楼主为什么我运行程序每次，到额外变量时就运行，不下去39 楼：'初学者08-6-25 17:21 回初学CASIO5800,哪位大哥能把"高程计算"程序改正一下?不知道哪里不对,不能运行.40 楼：xxkkxx08-7-2 22:10 回谢谢楼主!141 楼：'李洪08-7-7 18:25 回变量怎么扩展了?搞忘了!42 楼：tuzhyu 楼主 08-7-9 16:37 回回42楼初次扩展变量数为500个500DimZ 在交点要素数量设置好后扩展ZC+11+3ZC+15ZC+21 ZC+21+1ZC+30ZC+21DimZ最后把交点要素转为分段要素一段再加6个ZC+21+1FF+6FF+6DimZ本程序自行包含了变量扩展功能。程序会根椐要素数量自行计算扩展多少变量，同时也给了别的程序50个扩展变量使43 楼：李洪08-7-15 7:51 回评：+2 分不知咋回事,还是运行不了.运行到ZC+32这种变量就出现变量错误.谢谢指点一下啊?44 楼：tuzhyu 楼主 08-7-15 13:17 回变量错误ZC+32有两种原因，1是扩展变里数目不够(运行一下RESET就可恢复)，2是C值没有正确赋值，请检查程序。45 楼：belstone08-7-16 12:27 回碰上断链和左右幅分幅的怎么办啊？楼主！46 楼：tuzhyu 楼主 08-7-18 22:51 回断链部分不加入其中了，因为现在已经很复杂了。右左幅不是问题。因为这个程序同存两线路的要素，运行SET程序，选1就用1线要素，选择2就用2线的要素。还有这个程序还支持文件式的要素，所有应该说可以同时存三条线的要素。还有一个应急的直接输入要素模式。47 楼：fhrlcjj08-7-24 22:11 回35楼:luoweiran按SHIFT再按MODE48 楼：fhrlcjj08-7-24 22:39 回你好楼主！首先感谢你把这个程序发出来，给大家带来了很大方便！我现在把程序输到一半，有几个问题搞不懂：1、那个Lbi应该是Lbl吧？；2、里面的“-”都是减号吗？（例如“STATION-N”）；3、我发现有两的IF（是大写的），是条件转换符号还是两个数相乘？；4、这个由右到左斜降的箭号，是回车吗？5800找不到这个。fhrl-cjj 谢谢！小弟是新手49 楼：'12308-7-25 9:31 回50 楼：tuzhyu 楼主 08-7-25 17:43 回回48楼：1、Lbi 是Lbl2、“STATION-N”,中负号减号无所谓的。因为被在双引号里的内容是是用来显示的。3、IF是If4、是换行符。我许多都没有写换行符的，但该换行的还是要换行。(这种语法错误最难检查的哦)51 楼：yu00608-7-25 18:18 回评：+6 分你好楼主问你一个问题5800计算器里是不是不能同时有两套程序呀!运行的时候SET的时候总是出现Argument ERROR52 楼：fhrlcjj08-7-25 23:53 回晚上好啊！这里哪个是主程序哪个是子程序？程序输入完毕后应该先运行哪个？再运行哪个？请楼主简术一下刚开始运行程序步骤和意义。谢谢！53 楼：fhrlcjj08-7-26 23:14 回51楼:yu006Argument ERROR 是变更错误54 楼：YU00608-7-26 23:40 回怎么变更! 给 我行说说行吗？我不大懂 谢谢55 楼：fhrlcjj08-7-27 1:53 回自变量错误，打错了。我也是看5
