测量平差基础课程设计

《测量平差基础课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、-10-测量平差基础课程设计题目：导线平差班级：测绘二班姓名：潘多学号：080614867完成日期：-10-测量平差课程设计摘要：内容，以补充题名的不足。包括研究工作的目的、方法、结果和结论，而重点是结果和结论。（摘要使用小4号宋体）关键词：EXCEL；无缝结合；数据处理；平差；导线；导线网1.概述（4号黑体）该课程设计主要目的是对导线平差进行计算机化,在输入数据后报表自动生成,和平差后的图形自动生成。在对数据是否合格和与草图对比起到了很大的检验作用。在进行闭合导线，附和导线及其导线网平差计算时都相当简便。2.设计的基本原理在EXCEL对数据处

2、理有着很强大的功能，能够完成数据的排序，分类汇总，函数计算，统计，自动生成统计图表，数据库编辑等功能，所有计算过程都以表格形式体现，可以直接输出或被WORD调用形成报表的插表。在对控制网的平差计算中对矩阵的计算也相当简便。在与VB结合，在VB中调用EXCEL实现了数据输入的便捷，全部自动化计算。实现了在一个界面同时输出报表，图形等。2.1.VB与EXCEL的无缝结合VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一旦报表格式发生变化，就得相应修改程序，给应用软件的再利用带来极大的不方便。由于VB的自动化功能可以读写EXCEL,这就

3、实现了VB与EXCEL的有机结合。2.2.网形结构的平差在这部分由于要加入逻辑运算，在对网状结构的判断及其行列式的运行都很困难，还有函数式的自动化还无法实现，所以在此就只好我们先手工给出判断，以列出法方程来进行计算，其实这部分也就是一个计算程序。3.程序设计（4号黑体）3.1×××（小4号黑体）要求：系统（或顶层文件）结构描述，各个模块（或子程序）的功能描述；1）用原理图实现的，报告需包含以下内容：(1)系统原理图(2)主要模块或符号说明；1）数据录入：可以用TXT文本编好过后直接进行数据传输，也可一在EXCEL中直接编写进行计算2）数据处理：

4、这一模块住要在EXCEL中做出，对所有的公式进行编写一达到我们所要的计算目的。-10-3）成图：是在VB图形控件中显示，即与CAD结合2）用VB语言实现，报告包含以下内容：(1)源代码；DimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetDimaAsIntegerDimbAsIntegerDimbAsIntegerDimdAsIntegerDimeAsIntegerDimfAsIntegera=Val(Text1.Text)b=Val(Te

5、xt5.Text)c=Val(Text6.Text)d=Val(Text7.Text)e=Val(Text8.Text)f=Val(Text9.Text)PrivateSubCommand3_Click()IfDir("d:tempexcel.bz")=""ThenSetxlapp=CreateObject("excel.application")xlapp.Visible=TrueSetxlbook=xlapp.Workbooks.open("d:tempbb.xls")Setxlsheet=xlbook.Worksheets(1)x

6、lsheet.Activatexlsheet.Cells(2,3)="abc"xlbook.RunAutoMacros(xlAutoOpen)Else-10-MsgBox("excel已经打开!")EndIfEndSubPrivateSubCommand2_Click()IfDir("d;tempexcel.bz")<>""Thenxlbook.RunAutoMacros(xlAutoClose)xlbook.Close(True)xlapp.QuitEndIfSetxlapp=NothingEndSubPrivateSubCommand4

7、_Click()IfDir("d:tempexcel.bz")=""ThenSetxlapp=CreateObject("excel.application")xlapp.Visible=TrueSetxlbook=xlapp.Workbooks.open("d:tempbb.xls")Setxlsheet=xlbook.Worksheets(2)xlsheet.Activatexlsheet.Cells(1,1)="abc"xlbook.RunAutoMacros(xlAutoOpen)ElseMsgBox("excel已经打开!")

8、EndIfEndSub程序代码:OptionBase1PrivateSubForm_Click()DimmAsInteger,nAsIntegerDi