《利用VB开发极坐标正反算小程序.docx》由会员分享，可在线阅读，更多相关《利用VB开发极坐标正反算小程序.docx（1页珍藏版）》请在三一文库上搜索。
1、利用VB开发极坐标正反算小程序摘要：利用VB编程中的面向对象功能，开发方便实用的工程测量小程序：极坐标正反算。关键词：极坐标正反算、方位角、角度制、弧度制、坐标增量全站仪放样测量在各种基建工程中利用非常广泛，如：大楼基桩放样、桥梁桥墩放样、公路放线等等。全站仪放样测量通常采用极坐标法。极坐标法工程坐标的正反算，是放样准确性的基础保障。通常极坐标法正反算是采用工程计算器计算取得，各种工程计算器的计算操作方法不尽相同，这就导致在不同的计算器使用时产生错误操作，反复的计算检核，给测绘工作带来不便。随着便携式微型电脑的普及，野外工程测量工作中随时随地的采用电脑计算绘图成为现实，不仅方便准确，而且效率大
2、大提高。本文利用VB编程中的面向对象功能，开发方便实用的工程测量小程序：极坐标正反算。接下来简单介绍一下编程过程。 首先，计算原理如图例一： 图例一 极坐标正算时： 站点为O，前、后视点为P0、P1、P2、P3，分别在四个象限，如图例一。其坐标方位角a0、a1、a2、a3与夹角a(a=arctg(DY/DX)的关系为：a0=a，a1=a+180，a2=a+180，a3=a+360，半径与坐标增量的关系：R2=DX2+DY2。 接下来在VB界面中创建工程，并建立窗口如图例二： 图例二 在创建窗口过程中，为了方便测试，记得为各个参数赋初值。 在“计算”按钮的单击事件中编程如下： Dim x1 As
3、 Double, y1 As Double, x2 As Double, y2 As Double Dim dx As Double, dy As Double, a As Double, r As Double Dim D As String Dim p As Double x1 = Val(Text1) y1 = Val(Text2) x2 = Val(Text3) y2 = Val(Text4) dx = x2 - x1 dy = y2 - y1 a = Atn(dy / dx) a = DEG(a) If dx 0 And dy 0 Then a = a ElseIf dx 0 The
4、n a = a + 180 ElseIf dx 0 And dy 0 Then a = 90 ElseIf dx = 0 And dy 0 And dy = 0 Then a = 0 ElseIf dx 0，0=a360！) Else dx = r * Cos(a) dy = r * Sin(a) End If x = x + dx y = y + dy x = Format(x, #.#) y = Format(y, #.#) Text5 = x Text6 = y 在该程序中由于方位角a初始值为角度制，计算过程中三角函数的参数为弧度制，需要进一步转换，故引用了一个HuDu（）转换函数，其函
5、数编程如下： Dim pi As Double, H As Double pi = 3.14159265358979 H = pi / 180 HuDu = (Fix(angle) + (Fix(angle - Fix(angle) * 100) * 60 + (angle - Fix(angle) * 100 - Fix(angle - Fix(angle) * 100) * 100) / 3600) * H 该程序只做了部分的出错检查，在使用过程中，输入的参数超位时不会提醒。本人初学VB，不当之处，欢迎批评雅正！ 参考文献： 【1】刘星，吴斌主编，工程测量学。重庆大学出版社，2004.1。 【2】新智工作室，VB 6.0中文版教程。电子工业出版社, 2000。 【3】金文，网络VB教程，网络在线教程。