资源描述：
《测量导线计算VB程序设计.pdf》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第2卷 第3期北京工业职业技术学院学报№.2Vol.32003年7月JOURNALOFBEIJINGVOCATIONAL&TECHNICALINSTITUTEOFINDUSTRYJul.2003测量导线计算VB程序设计1,2薄志义(1.中国矿业大学北京校区,北京100083;2.北京工业职业技术学院,北京100042)摘 要:应用VisualBASIC(VB)计算机编程语言对图根导线计算进行编程设计。探讨了VB编程方法技巧与测量计算有机的结合,程序具有较高的实用性。关键词:测量导线;计算;VB;程序设计中图分类号:P209 文献标识码:B 文章编号:1671
2、-6558(2003)03-08-04VBProgramDesignofTraverseCalculation1,2BoZhiyi(1.ChinaUniversityofMining&Technology,Beijing100083,China2.BeijingVocational&TechnicalInstituteofIndustry,Beijing100042,China)Abstract:ThisarticleappliesVisualBASICtoprogramdesignoftraversecalculation,andexploresbettercombi2na
3、tionofprogrammingmethodsandtraversecalculation,whichprovestohavehighpracticalvalue.Keywords:traverse;calculation;VB;seismicsource;programdesign1测量导线计算VB程序的功能 纵坐标闭和差:fX=XB′-XB本程序适用于地形测量、地籍测量、工程测量中横坐标闭和差:fY=YB′-YB的图根导线的计算。导线绝对闭和差:f22s=fX+fY2计算公式导线相对闭和差:1/T=fs/ΣS由于是图根导线的测量计算,因此选用的数学导线相对闭和差限差设
4、为1/2000计算公式是简易平差形式。2.3计算待定点坐标2.1角度闭和差及其分配公式纵坐标:Xi=Xi′+VXi闭和差:fβ=Σβ-(aBN-aAM)-n3180°横坐标:Yi=Yi′+VYi改正数:Vβ=-fβ/n3图形与编号限差:fβ限=±40n3.1图形2.2坐标闭和差及其分配图1测量附和导线3.2编号MA方向的已知方位角为TA,BN方向的已知方位已知点A、B坐标分别为(XA,YA)、(XB,YB)。角为TB。导线转折角数为n,转折角采用左角,用收稿日期:2003-03-13作者简介:薄志义(1964-),男,辽宁工程技术大学测量工程专业毕业,中国矿业大学(北京校区)
5、在读博士生,副教授。©1995-2005TsinghuaTongfangOpticalDiscCo.,Ltd.Allrightsreserved.第3期 薄志义:测量导线计算VB程序设计 9βi表示,各边长用Si表示。界面设计如图2所示。在属性窗口将窗体标题4程序设计栏设置成“图根附和导线测量计算”,在窗体上放置VB程序设计,一般分为下几个步骤:(1)界面四个命令按钮。标题属性分别设置成“录入数据”、设计;(2)代码编写;(3)程序调试;(4)打包发布。“计算”、“查看结果”和“退出”。4.1界面设计图2程序界面4.2代码编写60进
6、制的角度值,转换成以弧度为单位的角度值,代码编写框图,如图3所示。为了将度、分、秒要编写一段自定义函数子程序。图3程序框图5程序使用说明行结尾要回车,最后一个边长输入Sn=0。数据文程序源代码编好后,可以打包发布成EXE文件格式:件,脱离VB环境运行,也可以在VB环境中运行。TA,XA,YA,XB,YB,TB本程序是附和导线计算程序,若计算闭和导线,可以B1,S1将其拆解成附和合导线进行计算。B2,S25.1运行程序 在VB的IDE开发环境中,打⋯⋯开已编好的导线程序,并运行,进入图2界面。bn,Sn5.2用鼠标点击“录入数据”按钮,调用Win25.3数据录入之后,用鼠标点击
7、“计算”按钮,若dows中Notepad记事本应用程序,按照下面的数据数据合格,会出现“计算成功”提示;若数据不合格,格式编写数据文件。然后给文件命名存盘、退出,或出现“数据不合格”提示,退出计算,检查数据是否录最小化Notepad应用程序。注意:在编写数据文件入错误。时,每行前面不要有空格,数据之间用逗号间隔,每5.4计算之后,程序自动将结果以文件形式存©1995-2005TsinghuaTongfangOpticalDiscCo.,Ltd.Allrightsreserved.10北京工业职业技术学院
