煤矿坐标计算器开发设计和应用

1、煤矿坐标计算器开发设计和应用摘要：本文从应用背景，设计原则、设计步骤，介 绍了煤矿坐标计算器的开发及使用，并分析了煤矿坐标计算 器的应用效果，关键词：煤矿坐标计算器；开发设计；应用一、应用背景煤矿井下施工对巷道中腰线控制要求很高，这就要求各 部门工程技术人员能够准确计算井下各测点坐标，目前一线 工程技术人员计算坐标的主要方法还是用普通计算器计算， 计算步骤繁多，计算方法复杂，要求计算者必须能熟练掌握 普通计算器的各种函数功能并且能熟练掌握井下坐标高差、 平距、斜距、倾角、方位角的计算步骤和方法，计算速度比 较慢，且稍不留神就容易出错，为此，设计制作出一款专门 计算井下坐标高差、平距、斜距、倾角

2、、方位角的计算器能 快速准确地为井下控制巷道中腰线提供数据参数很有必要。二、煤矿坐标计算器开发设计及应用此坐标计算器是运用visual basic语言编程设计，在 visual basic 6. 0程序开发软件的界面下设计而成。1、坐标计算器的开发设计步骤(1)打开visual basic 6.0程序，新建工程，在工程界面上添加如下控件，并对各控件做出命名。见下图所示(2)双击“计算"command 1控件，编写如下程序代码:private sub commandl_click ()dim xl as double, yl as double, x2 as double, y2 as

3、 double, zl as double, z2 as double, 1 as double, 11 as double, ch as double, a as double, pi as double, f as double, g as doubleif textl. text 二 “ and text2. text 二 “ “ and text3. text = “ “ and text4. text = “ “ thentext9. text 二 “ utextlo. text = “ “textl4. text = “ “textil. text 二 chelse：xl 二 te

4、xtl.textyl = text2.textand text7.text = “ “ thentextll.text 二“textl2.text = “ “else：zl = text5.textz2 = text7. textch 二 z2 zla = atn (ch / 1)b = a * 180 / pitextl2.text = abs (b)textl1.text 二 chend ifend sub双击"底板标高” command2控件，编写如下程序代码：private sub command2_click ()dim zl as double, zll as doubl

5、e, z2 as double, z22 as double, h as doublezl = text5 textz2 二 text7.texth = textl3.textzll 二 zl - hz22 = z2 - htext6. text = zlltext8.text 二 z22end sub双击''斜距” command3控件，编写如下程序代码：private sub command3_click ()const pi as double = 3.1415626dim x as double, jd as double, hd as double, 1as doub

6、le, 11 as double1 二 text9.textjd = textl2. texthd 二 jd * pi / 180x = cos (hd)11 = 1 / xtextlo. text 二 11end sub双击“清除” conniidnd4控件，编写如下程序代码:private sub command4_click ()textl. text 二text2.text 二text3.text =text4.text 二text5.text 二text6. text =text7. text 二text8.text =text9.text 二textl0.text 二textl1.

7、 text =textl2.text 二textl3 text =textl4.text 二“end sub双击''退出” command5控件，编写如下程序代码：private sub command5_click ()endend sub(3) 运行，点击启动按钮，运行此程序，分别输入井 下两个测点坐标x、y及顶板高程，点击"计算”，分别计 算出该两点坐标的平距、方位角、高差和倾角，点击“斜距” 控件，可计算出该两测点的斜距，输入巷道高度，点击“底 板高程”控件，可计算出该坐标的底板高程。点击"清除” 控件，可清除数据窗口所有数据，点击"退出”控件，即关 闭该软件。见下图：(4) 打开“文件”生成exe工程，此计算器便可在 windows各种版本的操作界面下运行。三、应用效果1、解决了普通计算器计算坐标复杂易出差错的问题， 大大降低了平时坐标计算的复杂程度，提高了计算的准确 度，为井下控制巷道中腰线提供了准确的数据参数。2、此坐标计算器使用方便，复制拷贝后可在任何一台 计算机上运行计算，易于推广应用。参考文献：1 彭新玉，casio fx-4500p计算曲线任意点坐标程序 j,西部探矿工程，2