第5章综合应用举例.pptVIP

  1. 1、本文档共26页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第5章综合应用举例

第五章 综合应用举例 主讲:佟彪 辽宁省交通高等专科学校 测绘系 第五章 综合应用举例 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

文档评论(0)

jdy261842 + 关注
实名认证
文档贡献者

分享好文档!

1亿VIP精品文档

相关文档