EelVB如何应用在附合导线内业计算中.docVIP

Excel VB如何应用在附合导线内业计算中 Excel是大家经常使用的办公软件，相信对大家来说并不陌生。 如果你是从事测量工作,你是否感觉到Excel有很不方便的时候？比如， 当你要计算一个方位角的三角函数值，而角度的单位是60进制的，此 时，你一定感到很无奈，因为，Excel本身无法直接计算60进制的角度 的三角函数；还有，在附合导线内业计算中要计算角度的三角函数值以 及坐标增量、以传统的°〃形式显示观测角值和方位角值，要做到这些较 专业的工作，Excel电子表的一些常用功能是无法办到的。当你遇到这 种情况，你只有拐弯抹角了，通过配合使用计算器一步一步地计算，很 麻烦！同时也失去了 Excel电子表的强大的、高效的计算能力。但你只 要对Excel进行一些挖掘，就可以发现Excel的功能我们还没有充分的 利用。Excel本身提供了强大的二次开发功能，只要我们仔细的研宄， 就可以解决工作中的一些难题。下面，是本人在测量工作中积累的一些 工作经验和方法，希望能和大家一起交流。 关键词：Excel VB导线计算 初识VB语言，首先,你必须懂得一些简单的VB编程常识。如果 不懂就只有通过其他的途径去学习了。但用不着深入的研究，只要静下 心来，几个小时就可以了。 一、60进制的角度的三角函数计算 打幵Excel,按Alt+Fll或从菜单栏中的（工具-〉宏-〉VisualBasic编 辑器）进入VB编程状态，学过VB的人一看就知道那就是熟悉的VB 界面。下面看看如何定义一个函数，然后利用它来解决60进制的角度 的三角函数计算fnj题。在菜单上依次点击［插入］［模块］,然后输入如下 代码： Public Const pi = 3.14159265359 Public Function DEG(n As Double) Dim A As Double, B As Double, C As Double, D As Double, E As Double, F As Double, G As Double, KA As Double D = Abs(n) + 0.000000000000001 F = Sgn(n) A = Int(D) B = Int((D -A) * 100) C = D-A-B / 100 DEG = F * (A + B / 60 + C / 0.36) * pi /180 End Function 这样，就定义了一个名字叫DEG的函数，它的作用就是转换60进 制的角度为Excel认识的弧度。编辑完后按Alt+Q即返回Excelo当在 Excel屮某一单元格输入=sin(deg(Al))(Al既可以是单元格的角度值，也 以是输入的角度值)，回车后结果便出来了 (或者在编辑栏中点击fx弹 出函数选择框，并选择用户定义函数中的DEG())。你可以用计算器检 验一下计算结果是否正确。如果出现#NAME?那就要设置一下安全设 置。依次点［工具］-＞［宏］-＞［安全性］,在安全级选项卡上选择“中”或者 “低”，然后关闭后重新打开就可以了，以后只要是60进制的角度，就 用它转换，非常方便快捷了。 二、以度分秒的形式显示弧度值 在Excel电子表中，进入VB宏编辑状态，在菜单上依次点击［插 入］_＞［模块］，然后输入如下代码： Public Function RAD(Nu As Double) As Double Dim a As Double, b As Double, c As Double, d As Double, E As Double, F As Double, G As Double, p As Double d = Abs(Nu) F = Sgn(Nu) p= 180#/pi G = p * 60# a = Int(d * p) b = Int((d - a / p) * G) W = b c = (d - a / p - b / G) * 20RAD = (c + a + b/ 100) * F End Function 这样，便定义了一个名字叫RAD的函数，它的作用就是转换Excel 所认识的弧度值为我们所熟悉的60进制的角度值。编辑完后按Alt+Q 即返回Excel。在Excel中某一单元格输入=RAD(deg(Al))(Al既可以是 单元格的角度值，也可以是输入的角度值)，回车，这样就完成了以度分秒 (°〃)的形式计算的角度值。你可以用计算器检验一不计算结果是否正 确。 三、在Excel电子表中计算两点间的方位角 以同样的方法进入VB宏编辑状态，输入以下代码： Public Function FWJ(a As Double，b As Double，c As Double，d As Dou