论文部分内容阅读
【摘 要】近年来，随着科学技术的发展，很多水利测绘工作都投入了数字化和自动化处理数据，虽然工作效率得到了提升，但一些细致数据仍不能用目前的数据处理软件和制图软件完成，还需要大量的人工统计。本文主要以Visual Basic 6.0开发语言为切入点，探究其在水利测绘断面内业处理中的应用，并结合相关水利案例分析其应用效果。
【关键词】Visual Basic 6.0；水利测绘；断面内业处理；应用
工程测量指工程建设中所有测绘工作，服务于各种建设项目的勘测、设计、施工及监测。断面测量是其中一个主要内容，电力、交通及水利等设计部门会根据断面测量所提供的断面资料进行设计。尽管先进的处理软件和测量仪器提高了工作效率，但每个步骤数据接口需要对转换数据，为此，本文结合生产实际特将Visual Basic 6.0开发语言应用至水利测绘断面内业处理当中，满足不同工作步骤需求，提高需要统计数据效率。
一、Visual Basic 6.0开发语言相关概述
Visual Basic是一种包含协助开发环境的事件驱动编程语言，它源自于BASIC编程语言，拥有快速应用程序开发系统和图形用户界面，程序员可以轻松的创建ActiveX控件并使用VB提供的组件构建一个应用程序。VB程序是一种基于窗体的可视化组件安排的联合，指定组件的属性和方法通过增加代码的方式便可实现。由于在组件内有一部分默认的属性和方法，程序员不用编写过多的代码便可完成一个简单的程序。VB语言具有除了能进行是科学计算和数据处理外，还适用于科学计算、计算机辅助教学或游戏编程等方面。
VB窗体控件的增加和改变可实现拖放技术，可通过一个排列满控件的工具箱显示一些如文本框或按钮等可用控件，这些控件都有自身属性。相关默认的属性值会在创建控件时自动显示并提供给程序员，但程序员也可以对系统对提供的默认属性值进行修改，随着用户修改的动作很多时候默认属性值会有所改动，在改动的过程中形成动态程序。目前，水利断面测量外业使用的测绘软件为GPSRTK，采集野外数据后还需进一步处理内业计算，才能达到成团软件所需的数据格式，除此之外，还需统计和分析数据处理之后的数据。Visual Basic 6.0开发语言可以实现测量成果数据库管理，测量数据采集自动化，把水利测绘的各项处理数据设置在系统中，实时自动检查，保证了原始观测数据的质量，降低测量人员的劳动强度。
二、Visual Basic 6.0 开发语言程序实现步骤部分如下
Public str As String
Public WorkName As String
Public WorkPath As String
…………
Public fso As New FileSystemObject，ts As，TextStream
Private Sub Command1 _Click ( ) 选取文件按钮
str = cdltxt. FileName
cdltxt. InitDir = WorkPath
cdltxt. FileName =
cdltxt. ShowOpen
End Sub
Name As String读取文件按钮
Dim fil As String，str As String
Dim i As Integer，j As Integer，m As Integer
…………
Dim maxh As Double最高點
逐渐减少文件名
zi = zi－pi
pi = Len( WorkPath)
ts2. WriteLine（文件名、左端点、右断点、零点、最低点……）
End If
str = ts. ＲeadLine 读取桩号或开始行
If str ＜ ＞ “END”And str ＜ ＞Then
If h ＞ maxh Then maxh = h
If s = 0 Then h0 = h
…………
…………
ts2. Close
MsgBox 横断数据统计完毕
StatusBar1. Panels( 1) . Text =统计左、右端点、最高点、最低点、端面长
End Sub
三、Visual Basic 6.0开发语言在水利测绘断面内业处理中的应用
（一）工程放样：本文所采用程序通过运用Visual Basic 6.0开发语言编写具有以下功能：线放样和公里桩放样，前者是在实地放出根据两点坐标位于延长线上任意一点，后者在实地位置放置任意里程桩号。
（二）数据处理系统：本文所采用的VB.6.0语言程序中包括数据预预处理、数据转换及成果输出等。如数据转换，将断面转换数据传输到计算机里并转换成标准的数据格式。标准断面数据文本格式如下：
1：1600.000①，0.000②，0.000③；
2：,1800,000④，2002,1102⑤………
…………
5，-0.500，-15.000，-0.790
其中①，②，③，④，⑤等指桩号、桩点代码、桩点高程等，其断面数据文件后缀为*.TXP。
（三）数据预处理：点击“数据检查”菜单打开设置按钮，在对话框中设置允许最大高差，最大点距，断面的纵比例尺，横比例尺。把需要检查的断面数据文件通过“断面图形检查”视窗界面来检查其断面数据，之后把错误的数据输出可选择保存或不保存的记事本文件里（具体操作见图1）。
（四）成果输出：断面成果输出有以下几种，①断面图的磁盘文件和生成；②生产断面结果；③打印断面图及成果表；断面图中还包括纵、横断面图，具体的项目名称、施测单位、施测日期及纵、横比例尺都可以对话框的形式输入，信息输入完毕后调用CAD生成横断面图。（如图2所示）。
（五）实例应用：滦河流域，是河北省北部东部的主要水源，有著名的引滦入津工程，沿途接纳了众多支流，其中流域面积大于1000平方公里的有9条，即小滦河、兴洲河、伊逊河、武烈河、老牛河、柳河、瀑河、潵河及青龙河，近期对其规划测量中，需要检查其大断面及统计内业工作量，本文则采用Visual Basic 6.0开发语言进行计算。具体如（图3，图4）
图3 选择3个断面数据文件进行计算，计算结果如图4，完全正确。
图4 计算结果
四、结语
总之，Visual Basic 6.0开发语言解决了常规数据处理软件统计困难问题，在水利测绘断面内业处理发挥了积极的作用，有效的缩短了工程设计工期，尤其是针对一些紧急处理任务，通过网络邮件的方式便可将断面结果直接发送相关部门，提高了工作效率。同时还避免了人工干预错误的发生几率，对后续报告的完成和任务量统计起到了关键的作用，值得在水利测绘中应用和推广。
【参考文献】
[1]许兆华,李红.Visual Basic 6.0开发语言在水利测绘断面内业处理中的应用[J].黑龙江水利科技,2013,(12):14-16
[2]陈海兵,李文格,尹欣等.信息化测绘成果在水利工程设计中的应用[J].水利规划与设计,2013,(3):36-37,43
[3]姜凤和,吕胜宾.从河道横断面测绘看测绘技术在水利行业的发展[J].水利科技与经济,2012,18(1):44-45
【关键词】Visual Basic 6.0；水利测绘；断面内业处理；应用
工程测量指工程建设中所有测绘工作，服务于各种建设项目的勘测、设计、施工及监测。断面测量是其中一个主要内容，电力、交通及水利等设计部门会根据断面测量所提供的断面资料进行设计。尽管先进的处理软件和测量仪器提高了工作效率，但每个步骤数据接口需要对转换数据，为此，本文结合生产实际特将Visual Basic 6.0开发语言应用至水利测绘断面内业处理当中，满足不同工作步骤需求，提高需要统计数据效率。
一、Visual Basic 6.0开发语言相关概述
Visual Basic是一种包含协助开发环境的事件驱动编程语言，它源自于BASIC编程语言，拥有快速应用程序开发系统和图形用户界面，程序员可以轻松的创建ActiveX控件并使用VB提供的组件构建一个应用程序。VB程序是一种基于窗体的可视化组件安排的联合，指定组件的属性和方法通过增加代码的方式便可实现。由于在组件内有一部分默认的属性和方法，程序员不用编写过多的代码便可完成一个简单的程序。VB语言具有除了能进行是科学计算和数据处理外，还适用于科学计算、计算机辅助教学或游戏编程等方面。
VB窗体控件的增加和改变可实现拖放技术，可通过一个排列满控件的工具箱显示一些如文本框或按钮等可用控件，这些控件都有自身属性。相关默认的属性值会在创建控件时自动显示并提供给程序员，但程序员也可以对系统对提供的默认属性值进行修改，随着用户修改的动作很多时候默认属性值会有所改动，在改动的过程中形成动态程序。目前，水利断面测量外业使用的测绘软件为GPSRTK，采集野外数据后还需进一步处理内业计算，才能达到成团软件所需的数据格式，除此之外，还需统计和分析数据处理之后的数据。Visual Basic 6.0开发语言可以实现测量成果数据库管理，测量数据采集自动化，把水利测绘的各项处理数据设置在系统中，实时自动检查，保证了原始观测数据的质量，降低测量人员的劳动强度。
二、Visual Basic 6.0 开发语言程序实现步骤部分如下
Public str As String
Public WorkName As String
Public WorkPath As String
…………
Public fso As New FileSystemObject，ts As，TextStream
Private Sub Command1 _Click ( ) 选取文件按钮
str = cdltxt. FileName
cdltxt. InitDir = WorkPath
cdltxt. FileName =
cdltxt. ShowOpen
End Sub
Name As String读取文件按钮
Dim fil As String，str As String
Dim i As Integer，j As Integer，m As Integer
…………
Dim maxh As Double最高點
逐渐减少文件名
zi = zi－pi
pi = Len( WorkPath)
ts2. WriteLine（文件名、左端点、右断点、零点、最低点……）
End If
str = ts. ＲeadLine 读取桩号或开始行
If str ＜ ＞ “END”And str ＜ ＞Then
If h ＞ maxh Then maxh = h
If s = 0 Then h0 = h
…………
…………
ts2. Close
MsgBox 横断数据统计完毕
StatusBar1. Panels( 1) . Text =统计左、右端点、最高点、最低点、端面长
End Sub
三、Visual Basic 6.0开发语言在水利测绘断面内业处理中的应用
（一）工程放样：本文所采用程序通过运用Visual Basic 6.0开发语言编写具有以下功能：线放样和公里桩放样，前者是在实地放出根据两点坐标位于延长线上任意一点，后者在实地位置放置任意里程桩号。
（二）数据处理系统：本文所采用的VB.6.0语言程序中包括数据预预处理、数据转换及成果输出等。如数据转换，将断面转换数据传输到计算机里并转换成标准的数据格式。标准断面数据文本格式如下：
1：1600.000①，0.000②，0.000③；
2：,1800,000④，2002,1102⑤………
…………
5，-0.500，-15.000，-0.790
其中①，②，③，④，⑤等指桩号、桩点代码、桩点高程等，其断面数据文件后缀为*.TXP。
（三）数据预处理：点击“数据检查”菜单打开设置按钮，在对话框中设置允许最大高差，最大点距，断面的纵比例尺，横比例尺。把需要检查的断面数据文件通过“断面图形检查”视窗界面来检查其断面数据，之后把错误的数据输出可选择保存或不保存的记事本文件里（具体操作见图1）。
（四）成果输出：断面成果输出有以下几种，①断面图的磁盘文件和生成；②生产断面结果；③打印断面图及成果表；断面图中还包括纵、横断面图，具体的项目名称、施测单位、施测日期及纵、横比例尺都可以对话框的形式输入，信息输入完毕后调用CAD生成横断面图。（如图2所示）。
（五）实例应用：滦河流域，是河北省北部东部的主要水源，有著名的引滦入津工程，沿途接纳了众多支流，其中流域面积大于1000平方公里的有9条，即小滦河、兴洲河、伊逊河、武烈河、老牛河、柳河、瀑河、潵河及青龙河，近期对其规划测量中，需要检查其大断面及统计内业工作量，本文则采用Visual Basic 6.0开发语言进行计算。具体如（图3，图4）
图3 选择3个断面数据文件进行计算，计算结果如图4，完全正确。
图4 计算结果
四、结语
总之，Visual Basic 6.0开发语言解决了常规数据处理软件统计困难问题，在水利测绘断面内业处理发挥了积极的作用，有效的缩短了工程设计工期，尤其是针对一些紧急处理任务，通过网络邮件的方式便可将断面结果直接发送相关部门，提高了工作效率。同时还避免了人工干预错误的发生几率，对后续报告的完成和任务量统计起到了关键的作用，值得在水利测绘中应用和推广。
【参考文献】
[1]许兆华,李红.Visual Basic 6.0开发语言在水利测绘断面内业处理中的应用[J].黑龙江水利科技,2013,(12):14-16
[2]陈海兵,李文格,尹欣等.信息化测绘成果在水利工程设计中的应用[J].水利规划与设计,2013,(3):36-37,43
[3]姜凤和,吕胜宾.从河道横断面测绘看测绘技术在水利行业的发展[J].水利科技与经济,2012,18(1):44-45