VB第五章 综合应用举例.ppt

第五章 综合应用举例 主讲：佟彪 辽宁省交通高等专科学校 测绘系 第五章 综合应用举例 5.1 坐标转换 5.2 水准测量的计算 5.3 单导线的计算 5.4 大地四边形的计算 * 5.5 中点多边形的计算 * 坐标转换的计算 坐标转换的基本原理 界面分析和设计 代码设计 执行调试 进一步的完善* 坐标转换的基本原理 界面分析和设计 二维坐标转换： 输入和输出内容：原坐标(x,y)、新坐标(x’,y’)、四个转换参数； 控制按钮：“正算”、“反算”、“清零” 参考：二维坐标转换公式或示意图 界面分析和设计（续） 代码设计 声明变量：Dim k2#, e2#, dX2#, dY2#  尺度参数、旋转参数、两个平移参数Dim x2#, Xx2#, y2#, Yy2#  二维坐标变换的正反数值Dim k3#, Ex#, Ey#, Ez#, dX3#, dY3#, dZ3#  尺度参数、三个旋转参数、三个平移参数Dim X3#, Y3#, Z3#, Xx3#, Yy3#, Zz3# 三维坐标转换的正算数值 代码设计（续一） 二维坐标转换正算：（1）数据输入；（2）计算；（3）数据输出； 二维坐标转换反算：（1）数据输入；（2）计算；（3）数据输出； 三维坐标的正反算类似。 代码设计（续二） 计算转换参数复选框控制窗体大小Private Sub Check1_Click() If Check1.Value = 1 Then frmCoorTrans.Height = 5175 ElseIf Check1.Value = 0 Then frmCoorTrans.Height = 4440 End If End Sub 计算转换参数的简要说明 执行调试 水准测量的计算 水准测量的计算步骤 程序分析和界面设计 数据的输入 计算和输出 执行调试 进一步的完善* 水准测量的计算 计算准备 计算闭合差 分配闭合差 计算转点高程 界面分析和设计 代码设计 输入窗体和主窗体的设计 输入窗体的显示和隐藏 输入窗体与主窗体之间的数据传递 执行调试 单导线的计算 单导线的计算步骤 程序分析 界面设计 输入：读顺序文件 计算 输出：写顺序文件 执行调试 单导线的计算 角度闭和差的计算和调整 推算坐标方位角 坐标增量闭和差的计算和调整 待测点坐标的计算 界面分析和设计 数据输入：采用文件的方式 数据输出：采用写文件的方式 用菜单组织程序 用一个文本框显示有关信息 顺序文件的读操作 把文本文件的内容一行一行地读入文本框：Text1.Text ＝ Open data.txt For Input As #1 Do While Not EOF(1) Line Input #1, InputData Text1＝ Text1+ InputData+vbCrLf Loop Close #1 顺序文件的读操作（续） 若已知数据在文件内的存储方式，也可以采用Input #语句进行，例如，本例中的数据输入格式已知，只需要定义相应的变量即可使用Input#语句读取文件，代码如下： Open strFileName For Input As #1 Input #1, iType, Xa, Ya, Xb, Yb Close #1 说明：用这种方法读取文件中的数据时，必须保证不同量值之间用半角的“,”隔开。 顺序文件的写操作 把整个文本框的内容一次性地写入文件，程序如下： Open result.txt For Output As #1 Print #1, Text1 Close #1 ★用Print语句向文件中写内容与在窗体上打印内容的联系 代码设计 角度闭和差的计算和调整 坐标方位角的计算 边长闭和差的计算和调整 坐标增量的计算 待测点坐标的计算 有关变量的声明 Dim sAngle() As Double, sdAngle() As Double, sEdge() As Double 分别存放角度观测值、坐标方位角和观测边长 Dim detX() As Double, detY() As Double, reX() As Double, reY() As Double 分别存放各测站相对于导线中前一结点的X、Y坐标增量和坐标闭合差 Dim strFileName As String 存放数据文件名（含路径） 有关变量的声明（续） Dim