【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了基于徕卡DNA03水准仪数据预处理程序设计 - 其它论文相关资料，希望对各位网友有所帮助!

基于徕卡DNA03水准仪数据预处理程序设计信息技术 韦国和李应超高建尽居向明 约2763字 摘要:通过对徕卡DNA03数字水准仪数据文件格式的分析阐明利用VB语言如何读取数据文件与转化生成水准观测手簿及测站数据信息并调用Excel概略高程表模板生成一个测段的水准测量外业高差与概略高程表由平差软件读入即可进行平差处理。

    从外业到内业无需人工输入高差数据减少人为数据输入误差实现真正意义的内外业数据处理一体化。

     关键词:DNA03数字水准仪数据格式程序设计水准测量预处理 1前言 近年来随着测量仪器的发展徕卡DNA03数字水准仪日益广泛地应用于各种测量中。

    虽然它已经帮助人们实现了读数自动化、记录电子化相比传统的光学水准仪减少了人为读数误差降低了外业劳动强度但仍存在一些使用上的缺陷。

    如原始数据格式与现有的数据处理软件要求的格式不一致读取的数据无法自动生成与“国家水准测量规范”相一致的水准测量手簿在实际工作中还需要较多的人工数据编辑影响水准测量数据处理内外业一体化的实现。

     本文结合实际工作需要针对徕卡DNA03数字水准仪的数据观测文件格式特点采用VB 6.0编写程序对数字水准仪的观测数据文件进行预处理使测量数据能够自动生成Txt格式外业规范水准手簿并调用Excel概略高程表模板将测段数据填进表格最后再利用海岸地形软件进行平差处理从而实现水准测量从外业观测到内业平差的一体化。

     2 原始数据格式 所有徕卡仪器测量数据均可输出为GSI Geo Serial Interface串行接口数据格式结构根据字符的位数又有两种存储格式:GSI88位字符格式、GSI1616位字符格式。

    本次数据处理过程中采用GSI8格式: WI-字索引AI-附加信息DA-数据BL-空格分隔符。

    编码块的块编号位于块的第一个字里测量块的第一个字是点号WI11数据块的第一个字是编码号WI-41。

     如:某一水准段的部分数据GSI8格式如下: 数据块数据 410001????4 测量块数据 11000253095307 83??5800000000 测量点号 索引信息 11000353095307 32??802918455 后视距离1 331.2800106270后视读数1 11000400000002 32??802948769前视距离1 332.2800069226前视读数1 11000500000002 32??802948972前视距离2 336.2800069239前视读数2 11000653095307 32??802917773后视距离2 335.2800106266后视读数2 11000700000002 571.2800000017 572.2800000017 573.8-00030756 574.805866984 83??2800037035 累积视距差累距累积高差 每一数据块由记录装置分配一个块编号。

    从1开始自动累加。

    关于编码块的每一个字的详细意义可以查看相关资料.上面仅列出部分字的简单内容。

     3 程序设计思路 3.1 数据文件分析 数字水准仪原始数据文件一般含有以下信息: 文件头包含测量模式、观测者、仪器、测量条件等信息 测段每个测段有多个测站构成含有测段起始标志测量模式代码测段距离和高差测段结束标志 测站信息一般按照测量先后顺序存储在不同的数据行内含有前后尺读数和距离。

    奇偶测站分别交替采用“后前前后”BFFB和“前后后前”FBBF的测量模式aBFFB是常用的观测和记录格式。

    B表示“Back”即后视F表示“Forward”即前视。

    其他的模式有BF、BFFB、aBF等。

    a指代“alternate”交替。

    凡带a的一般都是奇偶站交替前后视不带a的则是奇偶站前后视观测顺序不变。

     3.2 技术要点分析 仔细阅读徕卡GSI格式说明文件正确理解徕卡DNA03水准仪的各项数据代码在具体设计时要注意以下三点: 1文件头获取的时间仪器型号观测者等信息2测段起始和结束符3测段处理异常包括以下情况:一是整站重测的处理以及一次观测重测的处理可以通过“if/else”选择结构利用关键字符对读取的数据流进行筛选二是如何实现测站数据信息到测段数据信息的合并采用“while”循环设置好循环结束条件和选择。

     3.3 程序设计简略步骤 3.3.1 设计流程图: 3.3.2 Txt格式水准手簿的实现 1读取原始数据 CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As l 2获取标尺读数 Line Input1temp 读取一行数据到变量temp把截取的字符串数据转化为数字以测站为单位存储于相应变量中。

     3数据转换 计算检核测站视距、视距差、积累差、读数差、高差之差、测站高差、测段距离、测段高差。

    这里主要采用“if”条件判断语句实现。

     3.3.3Excel概略高程表填写 1Excel 对象的创建 Set xlApp Create Object〃Excel.Application〃 Set xlBook xlApp.Workbooks.Add Set xlSheet xlBook.Worksheets XlApp.Visible True 创建Excel 工作表并且设置为可见。

     2 Excel 单元格的写入 表头的写入 XlSheet.Cells 4 1 34时间34 XlSheet.Cells XX392 YY i 1 3 通过循环和选择将数组YY中的数据输入到表格中相应的单元格中。

     3设置Excel 单元格格式 Range 34J1 :J534.Select With Selection......End With对单元格进行合并、居中显示等格式的设置。

     4 结论 通过对徕卡DNA03数字水准仪数据文件格式的探讨解决了“水准观测手簿”格式与“国家水准测量规范”格式的统一。

    同时也为内业资料处理做好了数据准备真正做到了内外业数据处理一体化。

    利用该程序处理数据节省了大量时间减少了内业工作量和数据错误几率取得了较好的效果。

     参考文献 1徐育康秦志远.测量学M.北京:解放军出版社1999. 2赵琼.Visual Basic程序设计M.北京:中国劳动社会保障出版社2003. 3何征坤.应用Excel批量处理测量数据J.城市勘测20064:P49. 4余加勇邹峥嵘朱建军等.电子水准仪与计算机的数据通讯J.测绘通报:2002157-59. 5徕卡DNA03数字水准仪说明书S. 作者简介:韦国和1980-江苏大丰人本科助理讲师主要从事海道测量、地形测量工作。