- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
DiNi12数字水准仪数据处理内外业一体化的探讨
DiNi12数字水准仪数据处理内外业一体化的探讨
摘 要:通过对DiNi12数字水准仪数据文件格式的分析,阐明利用VB语言如何读取数据文件与转化生成水准观测手簿及测站数据信息,并调用Microsoft Excel软件编制的外业高差与概略高程表模板,生成一个区段的水准测量外业高差与概略高程表文件与内业平差所需测段数据文件,由平差软件读入即可进行平差处理。从外业到内业无需人工输入高差数据,减少人为数据输入误差,实现真正意义的内外业数据处理一体化。
关键词:DiNi12水准仪 数据文件格式 数据处理 水准观测手簿 概略高程表 程序 模块
随着全社会现代化程度的不断提高,人们对测量系统提出了更高的要求,不仅仅要求数据精度,还要求自动化处理测量数据,使测绘产品变得更规范。DiNi12数字水准仪,易学易用,操作简便,被广泛应用于国家一、二等水准测量及工程测量中。由于它技术领先,性能稳定,精度高,数据自动存储于PCMCIA卡,可以消除人为读数误差和人为记录误差。连接微机和打印机,即可打印出测量成果。但其输出的文件格式与国家现行水准测量规范要求的格式不一致,使其作业人员和验收人员在检查数据成果时,判读速度慢,成果不美观,也不便于提交给用户①。
鉴于DiNi12数字水准仪存在以上问题,笔者通过对数据文件格式进行分析,利用VB6.0编写了“数据格式转化”及生成“外业高差与概略高程表”程序。并应用于德州市地面沉降监测水准测量工程当中,节省了大量的数据处理时间,取得了较好的效果。
1数据文件格式
DiNi12数字水准仪采集的数据输出文件格式一般有两种,即:REC E(M5)和REC 500格式②,见表1、表2。
通过对以上两种数据文件格式的研究,采用Visual Basic6.0设计可视化界面并编写了数据处理程序。以上任一格式经过处理后,均可输出国家现行水准测量规范要求的水准观测手簿,样式如表3所示。由表3和观测点点位信息及起算高程可进一步处理生成“外业高差与概略高程表”,见表4。
注:距离D=0.01 km;高差h=2.501 13m
2程序设计
分“格式转换”与“填写概略高程表”两个模块。
2.1 程序设计思想
第一模块:利用VB语言以行为单位读取原格式数据文件,根据原文件的相关标识,对行字符串进行分解,来获取测站及测段信息(点号、时间、前后尺视距及读数),检查计算相关数据(视距差、读数差及高差)。最后以纯文本形式生成“水准观测手簿”与“测段数据文件”。
第二模块:利用第一模块生成的“测段数据文件”,调用M i-crosoft Excel软件编制的外业高差与概略高程表模板(事先编写好格式及单元格计算公式),填写相应测站数据及水准点信息,生成一个区段的“水准测量外业高差与概略高程表文件”,然后从中读取输出内业平差所需测段数据,保存备用。
2.2 第一模块程序的实现
打开原数据文件(获取观测数据信息)→选择测量等级(生成测站限差)→数据转换(生成新的数据信息、计算、检查数据、生成手簿文件)→另存文件(手簿文件、测段数据文件)。测段数据文件为以后编制“概略高程表”使用。
⑴ 打开原数据文件
CommonDialong1.ShowOpen“显示打开对话框”
Open CommonDialog1.FileName For Input As #1“打开数据文件”
Line Input #1,temp “读取一行数据到变量temp”
⑵ 获取标尺读数
bcRb=Mid(temp,where3 +7,7)“根据Rb信息截取后尺读数”
bcRb=Mid(temp,where3 +24,6) “根据Rb信息截取后尺视距”
把截取的字符串数据转化为数字,以测站为单位存储于相应变量中。
⑶ 数据转换
计算检核测站视距、视距差、积累差、读数差、高差之差、测站高差、测段距离、测段高差。
If Abs(s(j,i)-s(j,(i+3))) 〈dushucha Then 判断后尺读数差
If Abs(((d(j,i)+d(j,(i+3))) /2)-((d(j,(i+1))+d(j,(i+2)))) /2) 〈shijucha Then 判断视距差
For j =1 To ceduan根据测段数循环
For j =1 to p(j) 根据每测段测站数循环
Shoubu = … 生成手簿文件
Ceduanshuju = …生成测段数据文件
Next i
Next j
⑷ 另存文件
保存手簿文件、保存测段数据文件:
CommonDialong.Sho
您可能关注的文档
最近下载
- 人教版七年级上册英语单词表2115.pdf VIP
- 台达 VFDB4132系列刹车模块说明书.pdf
- 河南省郑州市外国语学校2025-2026学年高三上学期第三次阶段检测语文试题(含答案及解析).docx VIP
- 中国马克思主义与当代知到智慧树期末考试答案题库2024年秋北京工业大学.docx VIP
- 2024最新不予立案通知书.doc VIP
- 工业网络技术教材PPT10 Modbus TCP通信及应用.pptx VIP
- 2025年中国亚克力镜面板市场调查研究报告.docx
- 账号内容打造方案.docx VIP
- 锋芒全系列笔记低吸有道系统课程.pdf VIP
- 公司企业公开招聘简章模板.pdf VIP
原创力文档


文档评论(0)