维普资讯 http://www.cqvip.com ３４· 东北测绘季刊第２５卷２００２年第２期 【实践应用】 ＶＢ在工程测量中的应用睾 潘军 （大庆油田建设设计研究院，黑龙江大庆１６３７１２） 摘 要：论述了ＶＢ在测量计算中的特点，并结合实例阐述了利用ＶＢ进行前方交会计算的实现方法，从而为利 用交会计算及坐标换算等较为复杂的公式计算提供了一条可行的途径。 关键词：Ｖｉｓｕａｌ Ｂａｓｉｃ；前方交会；控件；窗体；属性 中图分类号：Ｐ２０９ 文献标识码：Ｂ 文章编号：１００５—３１２３（２００２）０２—００３４—０２ Ａｐｐｌｉｃａｔｉｏｎ ｏｆ ＶＢ ｉｎ ｔｈｅ Ｅｎｇｉｎｅｅｒｉｎｇ Ｓｕｒｖｅｙ ＰＡＮ Ｊｕｎ （Ｄａｑｍｇ Ｏｉｌｆｉｅｌｄ Ｃｏｎｓｔｒｕｃｔｉｏｎ Ｄｅｓｉｇｎ Ｉｎｓｔｉｔｕｔｅ，Ｄａｑｉｎｇ １６３７１２，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ｔｈｉｓ ｐａｐｅｒ ｄｉｓｃｕｓｓｅｓ ｔｈｅ ｃｈａｒａｃｔｅｒｉｓｔｉｃ ｏｆ ＶＢ ｉｎ ｔｈｅ ｃａｌｃｕｌａｔｉｏｎ ｏｆ ｓｕｒｖｅｙ，ａｎｄ ａｌｓｏ ｉｌｌｕｓｔｒａｔｅｓ ｍｏｒｅ ｃｏｍｐｌｅｘ ｆｏｒｍｕｌａｒｙ ｃａｌｃｕｌａｔｉｎｇ ｏｆ ｆｏｒｗａｒｄ ｉｎｔｅｒｓｅｃｔｉｏｎ ａｎｄ ｃｃｏｒｄｉｎａｔｅ ｃｏｎｖｅｒｓｉｏｎ． Ｋｅｙ ｗｏｒｄｓ：Ｖｉｓｕａｌ Ｂａｓｉｃ；ｆｏｒｗａｒｄ ｉｎｔｅｒｓｅｃｔｉｏｎ ｃｏｎｔｒｏｌ；ｆｏｒｍ；ｐｒｏｐｅｒｔｙ ０引言 １程序设计思想 在工程测量工作中，经常会遇到交会计算与坐标换算等问 由于交会计算过程涉及到的参数多，这就需要进行分类表 题。由于这类计算公式较为复杂，需输入数据多，利用ＰＣ１５００ 述，建立简单清晰的界面环境，让操作人员建立直观的感觉，这 机器计算时，川页序输入参数，造成输入速度慢，一旦出错，必须 些可以通过ＶＢ的Ｌａｂｄ控件实现标志，输入也可以通过Ｔｅｘｔ— 重复操作，常常是令计算人员感到头疼的事情。ＶＢ可以实现 Ｂｏｘ控件分别记录，由于开时并行处理过程，不存在输入数据的 窗口化编程，由于它易学好用，同时通过控件实现数据输 先后顺序，因此可在开时计算前任何时候发现错误，并及时修 以不必重复操作，清晰方便，简单适用。 改。 充分吸收利用，这样，系统的建设才具有超前性和实用价值。 参考文献： ４）受ＧＩＳ技术本身水平的，各应用项目的功能还不够 ［１］边馥苓．地理信息系统原理与技术［Ｍ］．北京：测绘出版社． 完善。现有交通信息系统都是基于２维或２．５维ＧＩＳ系统开 ［２１黄杏元．地理信息系统教程［Ｍ］．北京：高教出版社． 发的，从交通规划、交通管理等的发展来看，研制真３维ＧＩＳ系 ［３３张犁，林晖，李斌．互联网时代的地理信息系统口］．测绘学 统是一个很有价值的方向。 报，１９９８，（１）． ［４３张成才，魏文秋，王先兵，等．基于网络的地理信息系统研究口］． ５）ＧＩＳ、全球定位系统（ＧＰＳ）以及遥感（ＲＳ）技术在道路交 计算机工程与应用，１９９９，（２）． 通中的集成应用还几乎为零，研制开发适合我国实际需要的 ［５３魏祖宽，金洪然，赵永胜，等．利用Ａｃｔｉｖｅ）（技术的ｗｅｂ—ｅｎａｂｌｅｄ ＩＴＳ尚属起步。ＩＴｓ是 将先进的信息技术、数据通讯传输技 ｃ／ｓ地理信息系统的设计与实现ＥＪ］．计算机工程与应用，１９９９， 术、电子控制技术以及计算机处理技术等有效综合运用于整个 （４）． 交通管理体系，而建立起来的一种在大范围内、全方位发挥作 ［６３曹瑜，胡光道．地理信息系统的新进展口］．计算机工程与应用， 用的、实时、准确、高效的运输综合管理系统 。它是现代交通 １９９９。（６）． ［７］郭秋英，陈启辉，王凯．ＧＩＳ发展的高级阶段一一社会化ＧＩＳ 规划、建设与运营管理系统今后的发展方向。ＧＩＳ、ＧＰＳ、ＲＳ集 口］．计算机工程与应用，１９９９，（７）． 成于ＩＴＳ，也是ＧＩＳ在交通领域得以继续发展的一条重要途 作者简介： 径。ＧＰＳ、ＲＳ为ＧＩＳ提供数据，ＩＳＴ信息得以更新的重要保证。 焦莉（１９６９一），女，汉族，江苏省人，讲师，学士，１９９１年毕业于西 ＧＩＳ必须在应用中求发展，以发展促应用，互为补充，并以此带 安公路交通大学，现从事公路与城市道路设计教学工作。 动计算机及其他高新技术的发展。 ＋收稿日期：２ｏｏ２—０６—２０ 维普资讯 http://www.cqvip.com 东北测绘季刊第２５卷２００２年第２期 【实践应用】 ·３５· ２ 设计用户接口界面 ＸＸ／Ｈ 下面以计算前方交会为例具体说明用ＶＢ计算的方法： 首先在ＶＢ环境下，先用鼠标的左键选择菜单Ｆｉｌｅ中的新 建工程选项，在屏幕上就会弹出一个新建工程对话框，在新建 工程对话框中选择标准ＥＸＥ选项，然后单击确定按钮，在 ＶＢ６．０的程序设计环境中就新建了一个标准的项目文件，同时 在屏幕上会出现一个空白的窗体，在它的上面用户可以添加自 Ｙｐ＝ＹＹ｜Ｈ ｌ＝ １／Ｈ１ ｔ＝ｙｙ１／Ｈ１ （ （ ＋ ）／２ ＋ ｚ）／２ 己的控件。 接下图添加控件，并写入如下代码： ０ ≯叠誊薰 囊 警 ０ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄｌ—Ｃｌｉｃｋ（） Ｃ＝ｌ／Ｔａｎ（ｈｄ（Ａ）） Ｄ＝１／Ｔａｎ（ｈｄ（Ｂ）） ＣＣ＝１／Ｔａｎ（ｈｄ（ＡＡ）） Ｅ＝ｌ／Ｔａｎ（ｈｄ（ｃ）） Ｈ：Ｃ＋Ｄ Ｈ１＝ＣＣ＋Ｅ Ａ１＝Ｘａ＊Ｄ Ｂ１＝Ｙａ＊Ｄ Ｃ１＝ ６ ｃ Ｄ１＝ ｃ Ｃ２＝ｙｂ～ Ｃ３＝ｚ 一 ｂ Ａｌｌ： ６＊Ｅ Ｂ１１＝ｙｂ＊Ｅ Ｃｌｌ＝ ＊ＣＣ Ｄｌｌ＝ ＣＣ Ｃ２１＝ 一ｙｂ Ｃ３１ ６一ＺＥｃ ｘｘ＝Ａ１＋Ｃ１＋Ｃ２ ｙＹ＝Ｂ１＋Ｄ１＋Ｃ３ ＸＸ１＝Ａ１１＋Ｃ１１＋Ｃ２１ 】，ｙ１＝Ｂ１１＋Ｄ１】＋Ｃ３１ Ｔｅｘｔ１．Ｔｅｘｔ＝ １ Ｔｅｘｔ２．Ｔｅｘｔ＝ １ Ｔｅｘｔ３．Ｔｅｘｔ＝ ２ Ｔｅｘｔ４．Ｔｅｘｔ＝ ｔ ｚ＝ １一 ２ Ｙ＝ １一 ２ △Ｓ＝Ｓ（ｚ ＋Ｙ ） Ｓ＝２＊０．１＊Ｍ Ｉｆ△Ｓ＞ＳＴｈｅｎ Ｍ￣ｂｏｘ。点位较差超过容许限差。 Ｔｅｘｔ５．Ｔｅｘｔ Ｔｅｘｔ６．Ｔｅｘｔ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ 然后再为。退出。按钮编写程序代码如下： Ｐｒｉｖａｔｅ ｕＳｂ Ｃｏｍｍａｎｄ２一Ｃｌｉｃｋ（） Ｅｎｄ Ｅｎｄ Ｓｕｂ ３运行应用程序 编写完成后，运行该应用程序，然后把它编译成可执行文 件。＊ＥＸＥ。，拖放到桌面上。需计算时，双击放在桌面上的图 标，按表单上的提示输入角度、坐标及测图比例尺分母，然后单 击。计算Ｐ点坐标。按钮，即在输出部分显示出未知点白 坐标。 ４结束语 本文仅通过实例介绍了前方交会的计算，其实在测量计算 中，像后方交会、侧方交会，单三角形以及坐标换算等都可以用 ＶＢ来计算，由于篇幅所限，在这里就不一一赘述了。我们相信 ＶＢ以其友好的界面，直观、方便的特点，将受到越来越多用户 的青睐。 参考文献： ［１］尹立民，等．Ｖｉｓｕａｌ Ｂａｓｉｃ６．０常用编程技巧［Ｍ］．北京：清华大学出 版社，１９９９，８． Ｅ２３武汉测绘学院．测量学［Ｍ］．北京：测绘出版社．１９８１． 作者简介： 潘军，男，汉族，１９９０年毕业于齐齐哈尔轻工学院，现大庆油田建 设设计院研究院从事工程总承包工作。
