电子水准仪数据的表格输出

电子水准仪数据的表格输出
【摘要】本文主要是对拓普康数字水准仪记录数据的后期处理，利用VB6.0开发的小程序，对原始观测数据进行提取，生成水准规范中要求的观测手簿格式，提高电子水准仪一体化、自动化程度的效果。

【关键词】数字水准仪观测手簿 VB
一引言
1994年蔡司厂研制出了电子水准仪DiNi10/20，同年拓普康厂也研制出了电子水准仪DL101/102。

这意味着电子水准仪也将普及，并开始了激烈的市场竞争。

同时也说明，目前还是几何水准测量的精度高，没有其它方法可以取代。

GPS技术只能确定大地高，大地高换算成工程上感兴趣的正高，还需要知道高程异常，确定高程异常还少不了精密水准测量。

二电子水准仪的原理及数据格式
数字水准仪又称数字电子水准仪，它是在自动安平水准仪的基础上发展起来的。

数字水准仪具有能减轻作业劳动强度、测量数据便于输入计算机和容易实现水准测量内外业一体化的特点。

当前数字水准仪采用了原理上相差较大的三种自动电子读数方法：
1）相关法（徕卡NA3002/3003）
2) 几何法（蔡司DiNi10/20）
3) 相位法（拓普康DL101C/102C）
它与传统仪器相比有以下共同特点：
1)读数客观。

2)精度高。

3)速度快。

4)效率高。

本文主要以拓普康DL系列电子水准仪为例，具体的仪器设定和外业操作就不再叙述，详见说明书。

外业仪器采集的数据格式如下（本文中以“后后前前(ghij)”观测数序）：
g,A8,+92121,+8412,,,,HX72,HX72,0809,?,
h,A8,+92126,+8410,,,,HX72,HX72,0809,C,
i,A8,+257668,+6790,+36734453,,,1,HX72,0809,A,
j,A8,+257677,+6791,+36734449,,,1,HX72,0809,H,
g,A8,+56810,+5976,,,,1,HX72,0811,1,
h,A8,+56835,+5970,,,,1,HX72,0811,3,
i,A8,+232108,+8894,+36559155,,,2,HX72,0811,4,
j,A8,+232109,+8892,+36559175,,,2,HX72,0811,6,
……
此格式每连续四行记录了完整一站的观测数据，本文中我们只关心有用的数据，如：测站代码，，中丝读数，视距，，，，点号或点名，，，，
三程序实现
3.1 首先提取原始数据中可用的部分
利用VB中字符串截取函数转换其中有用的数据，生成后期程序所需要的数据格式，把四行的数据合并为一行，部分程序代码如下：
运行程序生成如下数据格式：
3.2 根据上面的数据在Excel中格式化输出
在Excel中可以打开内容被TAB符或逗号分割的文件，并且能正确的分解数据到相应的单元格中。

如果文本文件具有.csv扩展名，Excel直接打开文件而不会出现导入向导。

所以我们直接根据上面的数据文件生成后缀名为.csv的文件，并根据测站数量分页，还应在输出过程中计算高差、累计高差、视距、视距差、累计视距等数据。

对于观测手簿表头我们也进行了程序自动生成。

输出的文本文件数据格式如下：
后台运行EXCEL
Dim SZExcel As Object
Dim SZBook As Object
Dim P As Integer, DygZ As String, DygP As String
Set SZExcel = CreateObject("Excel.Application")
向EXCEL中传输数据
Set SZBook = SZExcel.Workbooks.Open("C:\观测表格.csv")
在表格中设置单元格的字体、行高、对齐方式以及格式化显示等。

如
DygZ = "A1:M" + Trim(Str(PageY * 65)) 'PageY为页码的变量
.Range(DygZ).RowHeight = 11 '行高
.Range(DygZ).Font.Size = 9 '字体大小
.Range(DygZ).HorizontalAlignment = 3 '居中
.Range(DygZ).VerticalAlignment = 2 '垂直居中
……
保存文件并退出
SZBook.SaveAs MIDfile, xlWorkbookNormal 'MIDfile变量为表格存放路径及文件 SZExcel.Quit
最后生成的观测手簿如下图：
在表格中设置了红黑读数和上下丝读数，是出于对传统表格和光学仪器观测数据转换等方面的考虑，在使用中可以根据实际情况修改表格内容。

四结束语
由于篇幅有限，本文只简单介绍了程序实现的基本方法，在实际编程中还有重测测站的筛选、闭合差计算以及高程自动配赋等工作就不一一叙述。

对于表格细节设计中一些程序代码，我们可以通过调用VBA宏的方法来查看。

具体方法是：在Excel中录制一段宏，这段宏是与所编程序的操作有关系的，然后编辑此宏，就得到Visual Basic代码，再查找相对应的属性或方法，复制下来粘贴到VB程序中去。

有了这些VBA代码，就可以在VB 程序中操作相应的Office对象了，从而使我们的程序如虎添翼。

参考文献
【1】张树兵等.VisualBasic6.0中文版入门与提高.北京:清华大学出版社，1999
【2】赵栋伟,松蕊等,Excel2000中文版速成[M].北京:机械工业出版社,1999
【3】孙敬杰,Excel VBA入门与实例演练[M].北京:中国青年出版社,2005。