段第二十九 次QC 成果发表材料
标高快算
V2
——水准测量标高计算之Microsoft Excel编程
发表人：***
***段***车间QC小组 20**年4月2日
第1页共18页
标高快算V2
——水准测量标高计算之Mrcrosoft Excel编程
一、 小组概况：
小组名称 ***段***车间QC小组 成立时间 2005年5月10日日 课题名称 2005年6月10日 登记时间 2007年11月10日 活动期限 20**.5.1~20**. 12.30 注 册 号 课题类型 登 记 号 活动次数 攻关型 22次/月 小 组 人 员 情 况 顺姓名 号 1 2 3 4 5 6 7 *** *** *** *** *** *** *** 接受QC 教育情况 接受QC 教育情况 年龄 性别 46 35 47 39 28 28 24 男 男 男 男 男 男 男 职务 领工员 助工 材料员 计工员 线路工 线路工 实习生 文化程度 中专 大专 大专 大专 中专 中专 大本 组内职务 负责课题布置 技术咨询 测量用具供应 生活后勤保障 程序编制 试用 技术咨询 人均接受TQC教育72小时以上并获考试合格证书 2001年“*****基床病害”获一等奖 2007年“****防护的工程实践” 图 表 1 制 表 人：*** 时 间：2008.3.25
第2页共18页
二、 可行性分析
***段现辖**、**、**、**、**和**六线，累计正线延长917.594km，站线全长418.456km，在长达数千公里的线路维修中，经常需要对纵断面进行抄平，观察其纵断面的坡度。除了线路抄平，在路基防水工程中施工时也要用水准测量，以设计出合理的排水坡度。在执行这些任务的过程中，一天测量下来累积的数据量非常大，这使得资料的整理和数据的计算变成一项非常繁重的工作。 原来用手工的方法直接在记录本上计算出标高，有如下几个缺点：?非常耗费时间，通常要2~3个小时的时间；?计算过程中难免读错数字、错按计算器的键等等，出现错误数据；?现场记录的格式、书写的清晰程度不一，影响数据的统一利用；?测量记录薄积累多了，保存起来也占有宝贵的办公空间。 利用计算机计算标高、整理抄平数据有如下优点：?比较有发展前途，随着电子水准仪的推广使用，有利于与电子水准协同工作，更全面和更深层的分析数据；?有可能将计算结果导入到**段现正使用的纵断面计算软件中去，减少录入人力；?用文字清晰、格式统一、成本廉价的方法保存标高资料，有利于数据再次利用，提高了测量任务的价值；?利用电子计算机的高速运算能力代替现实中简单而重复的计算是世界科学技术发展的趋势。
事实要求一种计算程序的出现，不仅能快速计算出结果，更有利于将结果保存成电子文件，提高水准抄平工作的实施质量。
三、 设计依据及程序简介
1、本程序的原名称叫“水准测量标高计算程序”，该程序已经经过了二~三年的试用，事实证明计算结果准确、可靠。本程序采用了原“水准测量标高计算程序”的核心算法，优化了原程序代码、增加了若干个功能，修正了一些错误。为了跟原程序相区别并简化名称，所以变更名称为“标高快算V2”（V是英文Version的意思，V2表示同一程序第二次升级版）。
2、因为Microsoft公司办公软件功能强大，普及面相当广，铁路工务的资料整理和技术工作中也大量使用到了Microsoft Office软件。其中，Microsoft Office Excel中有宏及Visual Basic编辑器，能够实现更复杂的计算，利用Microsoft Office Excel的Visual Basic编辑器进行标高计算有很多优势：?减小程序体积；?制作
第3页共18页
以后的程序免去安装这一步骤，移植起来很方便；?能够复制现有数据，横性兼容性很好；?能够利用Excel的打印、存储、图表等功能，提高了程序的效率。 3、程序的算法原理与手工计算的方法相同，闭合差校核依据是——两个水准点校核误差≥30√L（两个水准点之间的距离的平方根乘以30倍），平差采用了按置镜数平差。
4、软件环境。操作系统：要求是Windows XP或以上版本的系统；Office版本：完整安装了Microsoft Office Excel 2000或更高版本。
5、程序使用Visual basic语言编写，代码行数为约为727行，参考了Microsoft Visual Basci帮助。
四、功能介绍
1、 填写点号：在填写完测量起点里程和终点里程后能自动填写中间点的里程和点号。
2、 自动生成一张具有边框和格式的表格，表格大于适用于用A4纸进行打印，表格设计工整、紧凑，既保存了关键的信息（每个测段的允许差闭合差、测量日期人员、计算日期人员、页号等），又节约了纸张。
3、 自动计算标高：按表格内容填入各点的测量数据，以及前后两个水准点的里程与实际标高，执行指定的菜单项，只要闭合差合格，就可以迅速在表格的后三列生成标高数值；可以同时、连续地闭合计算多个水准点标高。
4、可以进行多种校核：如从当前选中的水准点校核到下一个水准点、从当前选中的水准点校核到最后一个水准点。
5、可以从另一个水准点表中搜索BM点的标高与里程。选中一个BM点，执行相应菜单项，如果水准点存在，并有当前水准点的标高与里程，就可以自动将水准点表中的BM点的里程与标高复制过来。
6、插入梭头、BM点、岔尖、岔跟等特殊点：原来插入一个特殊点需要点击3、4次鼠标，并还可能录入文字，现在将此操作集成在一个菜单项里，一步就可以实现，插入点号以后自动生成一个该点的里程（默认为前后点的里程的平均值）。 7、其它功能，可以汇总显示所有转点的数据。
第4页共18页
五、使用说明
1、
图 1
计算之前需要填写9项基本资料，分别为线别、行别、起点里程、终点里程、
测量日期、测量人员、计算日期、计算人员、测量间隔。其中起点里程、终点里程、测量间隔3项为必填资料，是程序计算的依据。如果你希望减少键盘录入工作量的话，可以单击线别或行别右边单元格的下拉箭头，程序内置了**段所管辖的所有正线，以及“上行”、“下行”、“单行”三个行别。起点里程和终点里程必须输入数值，不能输入“K### + ###”的形式，“K10+500”应输成“10.5”。测量日期和计算日期也要输入成数值的形式，如“2008年4月26日”应为“2008-4-26”，注意分隔年月日的是英文状态下的短横杠（也就是减号），另外年必须完整地输入4位，只输入后两位是不行的。测点间隔只有50米和25米两种情况，输入其它的数字会发生错误。
各项目输入完毕以后，请检查是否正确，因为以后的操作是不可恢复的。确认无误后将鼠标移动到写有“好”字的按钮上，单击鼠标左键。 2、
第5页共18页