【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：钻孔见矿顶底板坐标计算及VB程序设计 - 信息产业绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

地矿测绘’-./0012203456789:989:A6B:792为高程差92为平距差。

    其斜距计算公式为222式中2、2分别为某段控制孔深的起点、终点值。

    其高程差计算公式为22D892其平距差计算公式为922ED2因此某段控制孔深的终点高程计算公式为22222D892222D892图孔斜高程差与平距差计算示意图8:GBE3BS89:SP6P89SU3SBS8S3.LM3计算功能3孔口坐标、钻孔方位角、孔斜倾角、孔深位置、见矿顶底板位置的输入数据的合法性和有效性检查代码限于篇幅省略。

    CD.NH3清空见矿顶底板数据文本控件文本前景色置为兰色.A2-B.6FF.ACDDOPQDR.A2-B.6FF.ACDDOPQDRH.A2-B.6FFH.ACDDOPQDRSB.’.3赋初值孔深初值为3计算第孔段坐标数据调用计算坐标数据过程FTMT/UFTMT/U.V2NBHANBV2NBWANBV2NBXANBV2NBY.ANBV2NB1.ANBV2NBR.ANB9:NBY.ANBFFZDNB1.ANBFFZDNB1.ANBFFN63下一孔段数据为空时结束计算7.B5I/7689:3计算第W孔段坐标数据..TMT/U.V2.A2-B.6V2.A2-B.6V2H.A2-B.6V2NBY.ANBV2NB1.ANBV2NBR.ANB.HZDNBY.ANBFFZDNB1.ANBFFZDNB1.ANBFF3计算完第W孔段后或下一孔段数据为空时结束循环计算CD.NH9:V2NBR.ANBV2NBANBZDV2NBR.ANBV2NBANBN6.ACDDOPD3将顶底板坐标数据前景色置为红色.ACDDOPDH.ACDDOPD7689:SB.7685I/限于篇幅在此仅给出计算过程功能代码其它保存、打印、清除、退出功能代码本文省略。

    测试环境与实例计算用V.I2P2.LXA中文版调试编译通过生成可执行文件。

    测试环境用种不同的机型和种操作系统平台进行测试。

    测试环境硬件环境为’H台式兼容机主要配置是华硕’HPW主板’H0A1_‘’金仕顿aXXWb内存金钻九代_硬盘耕升_CDLHHbXHb显卡、I’B7彩色喷墨打印机软件环境为e9SQZe5b7中文版平台。

    测试环境硬件环境为H台式兼容机主要配置是奔驰’H1HW主板H0AH_’现代aXXWXb内存金钻九代1_硬盘耕升_CDLHbXHb显卡、I’B7彩色喷墨打印机软件环境为e9SZe5R1中文版平台。

    测试环境硬件环境为东芝笔记本电脑主要配置是’H0A_’aXXWb内存H_硬盘WF显示屏分辨率设为HcYX1外挂AHHbAWF软驱打印机为7’5ZS5BdI’B7彩色喷墨打印机软件环境为e9SZe5’中文版平台。

    通过对测试实例数据集的实际运行经过归纳、计算、分析这些数据结果均正确。

    如某矿段W钻孔见矿顶底坐标的计算其实例计算结果见图。

    图中第三孔段的数据即是见矿顶板坐标第四孔段的数据即是见矿底板坐标。

    图实例计算运行结果C.fA72E-L2LI2B.6268DIB:-D2B.6结束语设计出的VP程序经实际工程检验可满足需要。

    在实际工作中能快速计算出钻孔见矿顶底坐标从而提高工作效率。

    参考文献田文胜等AV.I2P2.L编程指南bA北京清华大学出版社A罗朝盛等AV.I2P2.LXA程序设计教程bA北京人民邮电出版社A作者简介朱永红RX1男重庆永川人计算机工程师、地质工程师现主要从事计算机制图和测绘工作。

    ????地矿测绘第卷万方数据