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

煤矿坐标计算器开发设计和应用 　　摘要：本文从应用背景，设计原则、设计步骤，介绍了煤矿坐标计算器的开发及使用，并分析了煤矿坐标计算器的应用效果， 关键词：煤矿坐标计算器；开发设计；应用 一、应用背景 煤矿井下施工对巷道中腰线控制要求很高，这就要求各部门工程技术人员能够准确计算井下各测点坐标，目前一线工程技术人员计算坐标的主要方法还是用普通计算器计算，计算步骤繁多，计算方法复杂，要求计算者必须能熟练掌握普通计算器的各种函数功能并且能熟练掌握井下坐标高差、平距、斜距、倾角、方位角的计算步骤和方法，计算速度比较慢，且稍不留神就容易出错，为此，设计制作出一款专门计算井下坐标高差、平距、斜距、倾角、方位角的计算器能快速准确地为井下控制巷道中腰线提供数据参数很有必要。 二、煤矿坐标计算器开发设计及应用 此坐标计算器是运用Visual basic语言编程设计，在Visual basic 6.0程序开发软件的界面下设计而成。 1、坐标计算器的开发设计步骤 （1）打开Visual basic 6.0程序，新建工程，在工程界面上添加如下控件，并对各控件做出命名。见下图所示 （2）双击“计算”command1控件，编写如下程序代码： Private Sub Command1_Click（） Dim x1 As Double， y1 As Double， x2 As Double， y2 As Double， z1 As Double， z2 As Double， l As Double， l1 As Double， ch As Double， a As Double， Pi As Double， f As Double， g As Double If Text1.Text = ““ And Text2.Text = ““ And Text3.Text = ““ And Text4.Text = ““ Then Text9.Text = ““ Text10.Text = ““ Text14.Text = ““ Text11.Text = ch Else： x1 = Text1.Text y1 = Text2.Text And Text7.Text = ““ Then Text11.Text = ““ Text12.Text = ““ Else： z1 = Text5.Text z2 = Text7.Text ch = z2 - z1 a = Atn（ch / l） b = a * 180 / Pi Text12.Text = Abs（b） Text11.Text = ch End If End Sub 双击“底板标高”command2控件，编写如下程序代码： Private Sub Command2_Click（） Dim z1 As Double， z11 As Double， z2 As Double， z22 As Double， h As Double z1 = Text5.Text z2 = Text7.Text h = Text13.Text z11 = z1 - h z22 = z2 - h Text6.Text = z11 Text8.Text = z22 End Sub 双击“斜距”command3控件，编写如下程序代码： Private Sub Command3_Click（） Const Pi As Double = 3.1415626 Dim X As Double， JD As Double， HD As Double， l As Double， l1 As Double l = Text9.Text JD = Text12.Text HD = JD * Pi / 180 X = Cos（HD） l1 = l / X Text10.Text = l1 End Sub 双击“清除”command4控件，编写如下程序代码： Private Sub Command4_Click（） Text1.Text = ““ Text2.Text = ““ Text3.Text = ““ Text4.Text = ““ Text5.Text = ““ Text6.Text = ““ Text7.Text = ““ Text8.Text = ““ Text9.Text