575203469毕业设计（论文）基于VB6.0测量工具箱程序设计.doc

《575203469毕业设计（论文）基于VB6.0测量工具箱程序设计.doc》由会员分享，可在线阅读，更多相关《575203469毕业设计（论文）基于VB6.0测量工具箱程序设计.doc（43页珍藏版）》请在三一办公上搜索。

1、黄河水利职业技术学院毕业论文（设计）基于VB6.0测量工具箱程序设计学生姓名： 学号： 指导教师：川 李孝雁 职称： 讲师 专 业： 工程测量技术 系（部）： 测绘工程系 2010年6月14日黄河水利职业技术学院毕业设计登记表 2010年 6 月 14 日学生姓名晁双彬专业工程测量技术班级0701班设计题目基于VB6.0测量工具箱程序设计指导教师评语： （签字）答辩委员会考评小组评语： 答辩组长：成绩： 答辩委员会主任：摘 要基于VB6.0的集成开发环境在测量工作中具有重要意义，是测绘人员必须掌握的一门实用、有效的专业技能。随着测绘技术的不断发展，计算机在现代测绘科学中的应用越来越广泛，已经深

2、入到从理论研究到实际生产的方方面面，如坐标解算、数据处理、施工放样计算、地理信息数据加工和管理等。使用计算机程序处理测量数据，不但方便、快速，而且准确、具有可重复性。它综合性很强，涉及面不仅包括控制测量学、测量平差、工程测量学等测量专业内容，还涉及数据结构、数组与过程、编程技术等多方面内容。编写的程序在测量作业中起到了很大的作用，方便了计算，节约了时间，提高了工作效率并且能够保证计算结果准确可靠。同时，为以后熟练使用卡西欧计算器奠定了基础。本设计课题将VB语言与测量程序设计进行了有机结合。本论文的主要目的是使我们在学习VB语言编程的同时，能够结合测绘专业的例子，一方面可以巩固测绘专业知识，另一

3、方面可以掌握运用VB语言编写程序解决测绘专业问题的能力。关键词：VB、导线、程序设计目 录摘要第1章 绪论 .1 1.1 测量程序设计的出发点 .11.2 测量程序设计的重要性 .11.3 测量程序设计的过程 .1第2章 测量程序设计基础 .1 2.1 VB6.0简介.2 2.2 VB6.0的优越性.2 2.3 测量中批量数据的处理.3 2.4 测量常用基本程序汇编.9 第3章 测量工具箱的创建思路.173.1 界面分析及设计步骤.173.2 主窗体界面及代码.18 3.3 注意事项.20第4章 VB测量程序设计.21 4.1 已知三角形三点坐标求内角.21 4.2 线路测量实习成绩评定.23

4、 4.3 前方交会.24 4.4 测边交会.26 4.5 多测回水平角计算.28 4.6 基于VBA的Excel测量程序在工程测量中的运用.31第5章 结束语.35参考文献.36致 谢.37第1章 绪论本章主要介绍为什么要进行测量程序设计以及测量程序设计的重要性，最后说明测量程序设计的过程。1.1 测量程序设计的出发点在实际的测量中，有时候要自己进行数据处理，或者是进行必要的计算。如果待处理的数据有上千个甚至更多，例如在诸如工程施工放样、大坝安全监测、地图绘制等测绘工作中，都必然涉及到海量的数据传输、存储、检索、处理等工作这时候仅仅靠手算是不能满足的，所以要利用软件（即程序）进行处理。1.2

5、测量程序设计的重要性如今，能够进行编程的语言很多，例如VB、VF、C+等，通过这些语言编写出来的测量程序简单易用、方便快速、功能强大、应用广泛，适合测量专业人员使用，极大地方便了测量工作者，节约了时间，提高了效率。从学习角度上讲，VB的简单和可视化、面向对象等特点，也非常适合作为一门语言来学习，所以本论文所编写的程序均采用VB编写。1.3 测量程序设计的过程要想进行测量程序设计，一方面，要掌握测量专业知识，比如测量平差基础等；另一方面，要有一定的VB知识，比如数组、过程等。只有这样才能够熟练的编写测量程序。对于测绘专业的学生来说，编写专业相关的程序也是一个深化测量基础知识的过程，当用设计程序来

6、解决一个测量问题时，例如导线计算，必须先弄清楚计算导线的步骤：需要哪些数据，经过哪些检核计算，如何算出最后的导线点坐标等。明确了这些处理步骤以后，再把这些步骤用计算机能够识别的指令编写出来并送入计算机执行，计算机才能按照我们的要求对指定的数据求解。计算机能执行的指令序列成为程序，而编写程序的过程称为程序设计。由此可知，编写测量程序的过程，也是对测量基础知识复习、巩固和加深的过程。当然，一个程序并不是从最开始就十分契合待解决的实际问题，也不能一成不变，只有通过反复的使用，不断根据实际应用的需要反复改进，才能真正编写出适合实际的测量程序来。一般来说，利用VB6.0创建测量程序有以下6个主要步骤：（

7、1） 综合分析，建立数学模型。（2） 创建应用程序界面。（3） 设置窗体和控件的属性。（4） 编写代码。（5） 运行和调试应用程序。（6） 保存程序。第二章 测量程序设计基础本论文中的测量程序是利用VB语言编写出来的，所以要对掌握VB的相关知识并且能够熟练运用，在测量综合程序的编写过程中用到了很多的基本程序，从而构成它们的子程序，为此要编写出基本的测量程序，测量中的数据往往是批量的，所以能够进行批量处理。本章主要介绍了VB6.0的相关知识、简单的基本程序，例如角度弧度的转化、坐标正反算等，还写出了对测量批量数据处理的相关知识，例如数组、过程等以及批量数据处理FlexGrid控件等知识。2.1

8、VB6.0简介 VB是Visual Basic的简称，VB是从BASIC语言发展而来的，是Windows环境下快速开发应用程序的可视化工具。其中，Visual是指开发图形用户界面的方法，是指直观的编程方法。Basic是指BASIC语言。之所以叫做Visual Basic，就是因为它使用了BASIC语言作为代码。作为程序设计语言，VB的主要特点为：（1）面向对象的可视化设计平台；（2）事件驱动的编程机制；（3）结构化的设计语言；（4）充分利用Windows资源；（5）具有开放的数据库功能与网络支持。 1991年，微软公司为了简化Windows应用程序的开发过程，推出了Visual Basic 1

9、.0版，它极大的改变了人们对Windows的看法，以及使用Windows的方式。1992年、1993年两年间，在Visual Basic1.0的基础上又相继推出了Visual Basic 2.0版和Visual Basic 3.0版。1995年，随着Windows 95轰轰烈烈的发布，Visual Basic 4.0版也随之问世。1997年，微软公司推出了Visual Basic 5.0版。1998年推出了Visual Basic 6.0版。微软公司在推出英文版的同时，也推出了中文版，从而大大的方便了中国用户。Visual Basic的最新版本是2006年发布的Visual Studio 20

10、05套件中的Visual Basic 2005。但是由于Visual Basic 2005对运行环境要求较严格，所以目前使用者较少。 现在拥有最多用户的Visual Basic版本依然是Visual Basic 6.0，它包括三种版本：学习班、专业版和企业版。三种版本适合于不同的用户层次。 Visual Basic 6.0是专门为Windows 9x/NT/2000等32位操作系统设计的。用Visual Basic 6.0的编译器可以自动生成32位应用程序，可脱离Visual Basic 6.0的运行环境，且运行速度更快、更安全，适合在多任务环境下运行。2.2 VB6.0的优越性目前使用较多的

11、编程语言有Visual Basic、Visual FoxPro等，它们各有特点，分别适合不同的领域。从学习角度上讲，VB的简单和可视化、面向对象等特点，也非常适合作为一门语言来学习。作为高质量的开发软件，VB6.0具有以下显著的优点：2.2.1 简单易学Visual Basic在继承了BASIC语言简单易用的基础上，改造了BASIC语言中复杂冗长且极易出错的“面条式”结构，而是以接近于人类自然语言和逻辑思维方式的结构化程序设计语言取代之，使其更加流畅、自然。用VB编写程序代码，如同用英文跟计算机交代工作任务一样。VB的编程器支持彩色代码，还可以自动进行语言检查，同时具有强大且使用灵活的调试器和

12、编译器，这些都使得VB程序设计从学习到使用都非常简单方便。2.2.2 面向对象的可视化程序设计面向对象的程序设计是当代程序设计的主流，既符合人们的思维和解决问题的逻辑，又是开发大型程序的必须。这里，“对象”是一个比较抽象的概念，可以理解成封装了一些代码和数据的集合，能够完成一定的动作和功能。VB中的对象主要分为窗体和控件两类。窗体是用户工作区，所有控件都在窗体中集成，从而构成应用程序的界面；控件是指“空的对象”或基本对象，是应用程序的图形用户界面的一个组件，对其属性可以进行不同的设置，从而构成不同的对象。VB这种可视化的用户界面设计功能，把程序设计人员从繁琐复杂的界面设计中解脱出来。可视化编程

13、环境的“所见即所得”功能，使界面设计如同积木游戏一样，从而使我们感觉到编程也是一种享受。2.2.3 事件驱动的编程机制事件驱动机制是VB区别于其他高级语言的显著特点。VB没有明显的主程序概念，程序员要做的就是面向不同的对象分别编写它们的事件过程。事件驱动应用程序的典型事件序列如下：启动应用程序，加载和显示窗体。窗体和控件接受事件。如果在相应的事件过程中存在代码，则执行代码。然后，应用程序等待下一次事件。2.2.4 高度的可扩充性VB为用户提供的扩充途径包括：支持第三方软件商为其开发的可视化控件对象；支持访问动态链接库DLL；支持访问应用程序接口API。2.2.5 广泛支持的二次开发能力VB与M

14、icrosoft系列软件天然的结合，使得编程变得非常容易。在Word文档上增加一些实现简单功能的按钮和滚动条；在Excel表格的基础上进一步开发适合自己应用的表格程序等，都非常方便快捷。而且众多测绘专业软件都支持VBA，使得VB也成为专业人士进行二次开发的很好选择。例如AutoCAD可以用VBA实现有关的界面和功能。2.2.6 强大的数据库访问能力VB中提供了强大的数据库管理和存取操作能力。利用数据控件和数据库管理窗口，能直接编辑和访问Access，FoxPro等，通过访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server,Oracle等 。VB6.0还具有功能强大、使用方便

15、的ADO技术，支持所有的OLE DB数据库厂商。2.3 测量中批量数据的处理在测量中，测量数据往往都是大量的数据同时处理，例如一个水准网就有几十个点，需要列很多方程进行平差，很难想象使用一个一个的简单变量和一条一条的简单语句来处理这些数据。本节将介绍批量数据处理的几个工具：循环、数组和过程。数组可以存储批量的数据，而循环则可以重复多次执行某些语句，过程则进一步将某些程序封装起来以便于重用。另外本章还将介绍批量数据处理控件等。2.3.1 循环结构编写程序时经常需要对某条或某些语句重复执行多次，这可以利用各种循环结构来实现。VB中提供了两种类型的循环语句，即计数型循环语句和条件型循环语句。For循

16、环是计数型循环语句，而While循环和Do循环语句属于条件型循环语句。2.3.1.1 For循环For循环用于实现循环次数已知的循环结构，程序按照此种结构中指明的循环次数来执行循环体部分。For循环格式如下：For循环变量=初始值To终值Step步长 循环体 Exit For 循环体Next循环变量2.3.1.2 Do循环和While循环Do循环和While循环都属于条件循环结构，它们都是通过判断一个条件的成立与否来决定是执行循环体语句还是结束循环。它们与For循环最大的差别在于：For循环用于循环次数已知的情况，执行一定次数后即可结束循环；而Do循环和While循环用于不知道循环次数的情况。

17、（1） While循环While循环比较简单，其格式如下： While条件 循环体 Wend与前面的For循环比较可以看出，For语句的格式比较紧凑，表达丰富；但是While语句比较简单灵活、易于理解，对于有一个判断条件、循环次数未知的循环尤其适用。（2） Do循环Do循环也是根据某个条件是否成立来决定能否执行相应的循环体部分，与While循环不同的是，Do循环有两种格式，既可以在初始位置检验条件是否成立，也可以在执行一遍循环体后的结束位置判断条件是否成立，能否进入下一次循环。Do循环的两种格式如下：（1） 格式一： Do 语句体 满足某条件时Exit Do语句体 LoopWhile和Unti

18、l条件（2） 格式二DoWhile和Until条件 语句体 满足某条件时Exit Do语句体 Loop2.3.1.3 循环的嵌套在一个循环体内又包含了一个完整循环的循环结构称为循环的嵌套。循环的嵌套对For循环、Do循环和While循环都适用。对于循环嵌套，要注意以下两点：（1） 内循环变量与外循环变量不能同名；（2） 外循环必须包含内循环，不能交叉。如： For ii=1 To 100For jj=1 To 50 Next jjNext ii2.3.2 数组在实际应用中经常要处理同一性质的成批数据，有效的办法是通过数组来存取。而数组与循环相结合编写出的程序就有了无穷的威力。 例1：求15个观

19、测值（等权）的均值和方差。若使用简单变量来存储15个观测值，则需要15个变量V1,V2,V15,如果各观测值不等权，还需另外定义相应的15个变量存储15个观测对应的权P1，P2，P15。这样写出的程序会十分复杂，而且只能处理15个观测值的情况，当观测值数增加或减少时，则需修改程序，十分不方便。若观测值数增加到几百个甚至上万个时，这样编写代码是难以忍受的。当使用数组时，不但可扩展性好，而且结合循环，只要很少的代码就可以实现这一工作。其实现代码如下： Dim v(1 to 15) as double Dim aver#,squa#,i% Aver=0: squa=0 For i = 1 to 15

20、 v(i)=InputBox(输入& i & 个观测值) aver=aver+v(i) Next i aver=aver/15 print 平均值为；aver数组并不是一种数据类型，而是一组相同类型的变量的集合。在程序中使用数组的最大好处是用一个数组名代表逻辑上相关的一批数据，用下标来区分数组中的不同元素，并与循环语句结合使用，以简化程序，实现批量数据的处理。数组内的元素是连续存放的，而且有上、下两个边界限制数组内元素的个数和数组的起始位置及结束位置。一般情况下，一个数组中的元素类型必须相同，可以是前面讲过的各种基本类型。特殊的是当数组类型指定为Variant时，其中元素的类型可以为各种基本类

21、型的混合。一个数组可以是一维的，也可以是多维的，VB中最多允许数组有60维。一般可以将数组分成两类，一类是固定数组，该数组的大小始终保持不变；另一类是动态数组，该数组的大小在程序运行时可以改变。2.3.2.1 固定数组固定数组分为一维数组和多维数组。声明一个固定数组时，必须给定数组使用的有效范围。以一维数组为例，声明时在数组名后跟一个用括号括起来的上界（默认下界为0）。声明格式如下：Dim 数组名（下标）As类型2.3.2.2 动态数组事先不知道数组的大小时，可以先声明该数组为动态数组，等需要时再用Redim语句指定数组的大小。声明动态数组时不需要给出数组的长度，只需保留一个空维数表。创建动态

22、数组的步骤为：(1)声明数组为动态数组，只需给数组附以一个空维数表。例如，声明一个整型动态数组Matrix，可以使用如下语句：Dim Matrix() As Integer(2)在需要指定数组大小时，再使用Redim语句分配数组中实际元素的个数。Redim 数组名（数组长度-1），例如，给上例的Matrix数组指定元素个数为9时，可以使用如下语句：Redim Matrix(8) As Integer。2.3.3 过程将程序分割成较小的逻辑部件可以简化程序设计任务，这些部件称为过程。VB的过程根据是否有返回值分为子过程和函数过程两类。2.3.3.1 子过程子过程（Sub过程）是在响应事件时执行的

23、代码块。将模块中的代码分成子过程后，在应用程序中查找和修改代码更容易。子过程的定义方法如下：Private|PublicStaticSub过程(参数表) 语句End Sub每次调用过程都会执行Sub 和End Sub之间的语句，可以将子过程放入标准模块、类模块和窗体模块中。按照默认规定，所有模块中的子过程为Public，这意味着在应用程序中可随处调用它们。2.3.3.2 函数过程VB除了内部函数，如Sqr()、Sin()和Chr()等，还可用Function语句编写自己的函数（Function）过程。函数过程的语法是：Private|PublicStaticFunction函数过程名(参数表)

24、 As类型 语句End Sub与Sub过程一样，Function过程也是一个独立的过程，可读取参数、执行一系列语句并改变其参数的值。与Sub过程不同的是，Function过程可返回一个值给调用的过程。2.3.4 批量数据控件VB中可以输入和显示批量数据的控件很多，如伸缩格网（FlexGrid）、数据格网（DataGrid）、数据列表框（DataListBox）、数据组合框（DataComboBox）等。下面详细介绍FlexGrid控件。FlexGrid控件是VB提供的一个输入和显示批量数据的控件。与列表框和组合框不同的是，它不但可以输入和显示单列数据，还可以输入和显示多列（二维表格）数据，并且

25、可以显示行号和列标头，非常适合测量程序中批量数据的输入和显示。当然，FlexGrid控件本身并不能进行数据的输入和显示处理，它只是提供一个界面和相应的属性、事件和方法，具体要实现什么样的功能，需要使用者自行编程实现。 FlexGrid控件是ActiveX控件，需要通过“工程-部件”命令选择Microsoft FlexGrid Control6.0选项，将FlexGrid控件添加到工具箱。添加到窗体的FlexGrid控件如图2-1所示。新添加的FlexGrid控件默认名为MSFlexGrid1，默认有两行两列，共4个网格。其中第一行为列表头，第一列为行号栏，它们与其他网格的区别只是外观不同。Fl

26、exGrid的常见属性有Cols（列）、Rows（行）、Col（当前操作网格列号）Row（当前操作网格行号）、Text（存取当前操作网格的内容）、MosePointer、（设置鼠标在控件上移动时的形状）。在设计状态，右键单击窗体上的FlexGrid控件，选择“属性”菜单项，弹出属性页对话框，如图2-2所示。图2-1 FlexGrid控件图2-2 FlexGrid控件的属性页下面举例说明FlexGrid控件的使用：使用FlexGrid控件输入一个33矩阵，实现矩阵中所有元素的值增倍或减半。新建一个工程，在窗体上添加一个FlexGrid控件和2个命令按钮，在属性页中将FlexGrid控件设置成4行

27、4列，修改命令按钮的Caption属性和Name属性并将FlexGrid控件的MosePointer属性设置为3-flexBeam。程序设计界面如图2-3所示。图2-3 FlexGrid控件演示程序设计界面首先是在窗体的Load事件中初始化FlexGrid控件，显示列标号和行号，代码如下：Private Sub Form_Load()Dim i%, j%With MSFlexGrid1 For i = 1 To 3 .Row = 0: .Col = i: .Text = i Next i For i = 1 To 3 .Col = 0: .Row = i: .Text = i Next iEn

28、d WithEnd Sub上述代码中，使用了With语句来简化代码。接着来实现FlexGrid控件的数据输入操作。FlexGrid控件自身并不能接受键盘输入数据，需要编程实现，并且要先判断输入的是不是数字字符。KeyPress事件具体代码如下：Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)With MSFlexGrid1 If IsNumeric(Chr(KeyAscii) Then .Text = .Text & Chr(KeyAscii) ElseIf KeyAscii = 8 Then退格符的ASCII码值是8 If Len(.

29、Text) 0 Then .Text = Left(.Text, Len(.Text) - 1) End If End WithEnd Sub由于按下Delete键并不触发KeyPress事件，Delete键的KeyCode值为46，为了实现Delete键功能，将文本清空。具体代码如下：Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = 46 Then MSFlexGrid1.Text = End IfEnd Sub增倍和减半功能具体实现代码如下：Private Sub Command1

30、_Click() 将元素数值变为原来的两倍Dim i%, j%With MSFlexGrid1 For i = 1 To 3 For j = 1 To 3 .Row = i: .Col = j: .Text = Val(.Text) * 2 Next j Next iEnd WithEnd SubPrivate Sub Command2_Click() 将元素数值变为原来的一半Dim i%, j%With MSFlexGrid1 For i = 1 To 3 For j = 1 To 3 .Row = i: .Col = j: .Text = Val(.Text) / 2 Next j Nex

31、t iEnd WithEnd Sub程序执行时的界面如图2-4所示：图2-4 FlexGrid控件程序执行界面2.4 测量常用基本程序汇编本节主要介绍使用VB6.0编写基本测量程序的过程，包括VB语言基础和测量基本知识。综合运用VB和测量的基本知识编写出真正适合自己的应用程序。本节的主要内容为：四舍六入，奇进偶不进、计算两点间的距离和坐标方位角、角度与弧度的换算、坐标正反算等。2.4.1 四舍六入，奇进偶不进 在测量中数值的取位遵循“四舍六入、奇进偶不进”。如果小数点后保留3位，即要求对千分位即取位至毫米上的数值进行“四舍六入、奇进偶不进”的判断。分以下三种情况：（1）千分位后面的数值小于等于

32、四，如2.3421，此时直接舍弃小数点后第四位以后的数值；（2）千分位后面的数值大于等于六，如2.3427，此时小数点后第三位直接进1；（3）小数点后面第四位是数值5，如2.2425，此时判断千分位，如果是奇数，则千分位进1，如果是偶数，则千分位后面数值舍弃。其程序执行界面如图2-5所示：图2-5 四舍六入，奇进偶不进主要代码为：Private Sub Command1_Click()Dim a#, b#, c#, d#a = Val(Text1.Text)b = a - Fix(a) 获得小数部分c = Mid(b, 5, 1) 得到小数点后第四位d = Mid(b, 4, 1) 得到小数点

33、后第三位Select Case cCase Is 5If c = 6 ThenText2.Text = Format(a, 0.000)ElseIf c = 4 ThenText2.Text = Format(a, 0.000)End IfCase Is = 5If d Mod 2 = 0 ThenText2.Text = Format(a, 0.000) - 0.001ElseIf d Mod 2 0 ThenText2.Text = Format(a, 0.000)End IfEnd SelectEnd Sub2.4.2 计算两点间的距离和坐标方位角（1）数学模型由两个已知点求这两点间的距

34、离和坐标方位角是测量学中经常用到的计算，在其它的测量综合编程中，计算两点间距离和坐标方位角是其重要的基础。本程序可用于根据两已知点A、B坐标计算A、B两点间的距离和坐标方位角，在计算坐标方位角时先计算出象限角，然后通过象限角与方位角的关系转化为方位角。主要计算公式为： 求两点距离：s = Sqr(X 2 + Y 2) 求坐标方位角： = Atn(Y / X)本程序主要应用到VB中乘方运算符（）和平方根函数Sqr（）。（2）其程序执行界面如图2-6所示：图2-6 计算两点间距离和坐标方位角（3）主要代码为：Private Sub Command1_Click()Dim Xa#, Ya#, Xb#

35、, Yb#, X#, Y#, tana#, ab#, du%, fen%, miao%, s#Const pi = 3.14159265358979Xa = Val(Text1.Text): Ya = Val(Text2.Text)Xb = Val(Text3.Text): Yb = Val(Text4.Text)X = Xb - Xa: Y = Yb - YaIf Abs(X) 0.00000001 Then MsgBox 除数为零，请检查坐标输入是否正确！ Text1.SetFocus Exit SubEnd Ifs = Sqr(X 2 + Y 2)Text5.Text = sIf Abs

36、(X) 0 Then ab = 90 Else ab = 270 End IfElse tana = Y / X ab = Atn(tana) ab = ab * 180 / pi If X 0 And Y 度度弧度。其程序执行界面如图2-7所示：图2-7 角度化弧度其主要代码为：Const pi = 3.14159265Private Sub Command1_Click()Dim du%, fen%, miao%, jiaodu#dufenmiao = Val(Text1.Text)du = Fix(dufenmiao)dufenmiao = (dufenmiao - du) * 100f

37、en = Fix(dufenmiao)miao = (dufenmiao - fen) * 100jiaodu = du + fen / 60 + miao / 3600dutohu = jiaodu * pi / 180Text2.Text = Format(dutohu, 0.000000)End Sub2.4.4 弧度化角度本程序是将弧度转化为“度”的形式，以利于显示输出。用到的主要公式为：弧度（RAD）度（DEG）：度（DEG）度、分、秒：Fix（）函数的使用。其程序执行界面如图2-8所示：图2-8 弧度化角度其主要代码为：Const pi = 3.14159265Private Su

38、b Command1_Click()Dim du#, fen#, miao#hu = Val(Text1.Text)hu = hu * 180 / pi: du = Fix(hu)hu = (hu - du) * 60: fen = Fix(hu)hu = (hu - fen) * 60: miao = Fix(hu + 0.5)If miao = 60 Then fen = fen + 1: miao = 0End IfIf fen = 60 Then du = du + 1: fen = 0End Ifhutodu = du + fen / 100 + miao / 10000If hut

39、odu 0 Then hutodu = hutodu + 179.596End IfText2.Text = Format(hutodu, 0.0000)End Sub2.4.5 坐标正算坐标正算是由已知点A的坐标，A、B间的水平距离DAB，坐标方位角AB，计算B点的坐标。其用到的主要公式为：其程序执行界面如图2-9所示：图2-9 坐标正算其主要代码为：Const pi = 3.14159265Public Function hd(a As Integer, b As Integer, c As Integer) As Singlehd = pi / 180 * (a + b / 60 + c / 3600)End FunctionPrivate Sub Command1_Click()Dim Xa!, Xb!, Ya!, Yb!, Dab!, d%, f%, m%Xa = Val(Text1.Text)Ya = Val(Text2.Text)Dab = Val(Text3.Text)d = Val(Text4.Text)f = Val(Text5.Text)m = Val(Text6.Text)Xb = Xa + Dab * Cos(hd(d, f, m)Yb = Ya + Dab * Sin(hd(d, f, m)