煤矿坐标计算器的开发设计与应用
开篇：润墨网以专业的文秘视角，为您筛选了一篇煤矿坐标计算器的开发设计与应用范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
摘要：本文从应用背景，设计原则、设计步骤，介绍了煤矿坐标计算器的开发及使用，并分析了煤矿坐标计算器的应用效果，
一、应用背景
煤矿井下施工对巷道中腰线控制要求很高，这就要求各部门工程技术人员能够准确计算井下各测点坐标，目前一线工程技术人员计算坐标的主要方法还是用普通计算器计算，计算步骤繁多，计算方法复杂，要求计算者必须能熟练掌握普通计算器的各种函数功能并且能熟练掌握井下坐标高差、平距、斜距、倾角、方位角的计算步骤和方法，计算速度比较慢，且稍不留神就容易出错，为此，设计制作出一款专门计算井下坐标高差、平距、斜距、倾角、方位角的计算器能快速准确地为井下控制巷道中腰线提供数据参数很有必要。
二、煤矿坐标计算器开发设计及应用
此坐标计算器是运用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
x2 = Text3.Text
y2 = Text4.Text
Pi = 4 * Atn（1）
l = Sqr（（x2 - x1） ^ 2 + （y2 - y1） ^ 2）
f = Abs（y1 - y2） / l
g = Atn（f / Sqr（-f * f + 1））
Text9.Text = l
Text14.Text = g * 180 / Pi
End If
If Text5.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 = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
End Sub
双击“退出”command5控件，编写如下程序代码：
Private Sub Command5_Click（）
End
End Sub
（3）运行，点击启动按钮，运行此程序，分别输入井下两个测点坐标x、y及顶板高程，点击“计算”，分别计算出该两点坐标的平距、方位角、高差和倾角，点击“斜距”控件，可计算出该两测点的斜距，输入巷道高度，点击“底板高程”控件，可计算出该坐标的底板高程。点击“清除”控件，可清除数据窗口所有数据，点击“退出”控件，即关闭该软件。见下图：
（4）打开“文件”生成exe工程，此计算器便可在windows各种版本的操作界面下运行。
三、应用效果
1、解决了普通计算器计算坐标复杂易出差错的问题，大大降低了平时坐标计算的复杂程度，提高了计算的准确度，为井下控制巷道中腰线提供了准确的数据参数。
2、此坐标计算器使用方便，复制拷贝后可在任何一台计算机上运行计算，易于推广应用。
参考文献：
[1]彭新玉，CASIO FX-4500P计算曲线任意点坐标程序[J]，西部探矿工程，2001，（5）下：103-104
[2]张雨化等，道路勘测设计[M]， 北京：人民交通出版社，2002
作者简介：于建华（1984-），男，安徽宿州人，助理工程师，祁东煤矿掘进二区主管技术员，毕业于中国矿业大学，本科学历，从事掘进施工技术管理工作。