VB编程语言在《测量学》学习过程中的简单应用-论文.pdf

《VB编程语言在《测量学》学习过程中的简单应用-论文.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、高等教育2014年6月T．[】fTHr]隐黼VB编程语言在《测量学》学习过程中的简单应用李城西南科技大学环境与资源学院四川I绵阳621000摘要：《测量学》是测绘工程专业入门的基础课程，初学者在其学习当中会遇到大量的计算，比如说水准测量成果整理、导线测量成果整理、碎步测量成果整理等等。如何把这些繁琐的计算简单化，是当代大学生需要加强的能力．关键词：测绘工程；水准测量；大学生一、前言(2)程序源代码学科交叉在现在看来是一件再也普遍的不过的事情了，但PrivateSubCommand1一Click0是如何有效的利用自己学过的知识来处理另一门学科的问题，DimalAsDouble，a2As

2、Double，a3AsDouble，a4AsDouble，是我们要重视的环节。在这个大数据时代，计算机早已成为这个a5AsDouble，a6AsDouble，a7AsDouble，a8AsDouble，a9As时代的主流，我们曾经学习过的《大学物理》、《高等数学》中的计Double，al0AsDouble，flAsInteger，vAsDouble，al1AsInteger，算问题，纯手1-的计算方法应该不再是当代大学生得以提倡的a12AsInteger，a13AsInteger，a14AsInteger，a15AsInteger了，很多时候，我们需要“更快”、“更准”，那么我们就可

3、以利用自al=Val(Text1．Text)：a2=Val(Text2．Text)：a3=Val(Text3．Text)：a4己学过的编程语言(VisualBasic)来处理这些繁琐的计算。当然，=Val(Text4．Text1在此基础卜，需要我们比较熟练地掌握VisualBasic的各种控件a5=Val(Text6．Text)：a6=ValOPext7．Text)：a7=Val(Text8．Text)：a8和命令，只有这样我们才能达到事半功倍的效果!=Val(Text9．Text)二、VB编程语言在《测量学》中应用举例a9=Valfext21．Text)：a10=ValCl'ext

4、25．Text1此文只简单介绍VisualBasic6．0在水准测量中的应用。根据fl：(a5+a6+a7+a8一(al0—89))1000’角度闭合差即：水准路线构成的图形结构划分，大体上可以分为单一水准路线ill=∑h测一(H终一H起)，单位是mm和水准网两类。单一水准路线又町分为闭合水准路线、附合水准Iffl>20术(al+a2+a3+a4)(1／2)Orfl<一20术(al+a2+路线、支水准路线，在这里只讨论附合水准路线这种情况。a3+a4)(1／2)Then1、附合水准路线的内l、f箅的步粟：x=MsgBox(”闭合差超限”，2，提示信息1(1)水准测量内业的主要任务就是

5、进行高差改正，因此在次EndIf之前，必须进行高差闭合差的和容许闭合差误差的计算，即fh=v=(Fix(((一1f1／(al+a2+a3+a4))100+0．5))／100)’每公∑h测一(H终一H起)，fh容=20X／L。里的改正数，四舍五入保留两位小数(2)对于计算j}{来的高差闭合差进行分析，如果小于或等于Ifv>0Then容许闭合差．则进行近似平差，求得高差改正数，即Vi=一fh／Ea1l=Fix(val+0．5)’改正数四舍五人取整，单位为mmL*Li或Vi=一fh／2n*ni。其中∑L为水准路线的总长度，u为每测a12=Fix(va2+0．5)：a13=Fix(va3+0

6、．5)：a14=Fix(va4+段的长度，∑n为总的测站数，ni为每测段的测站数。0．5)(3)高差闭合差计算完后，应满足以下条件：∑Vi=一fh。准确Else无误之后，改正后的高差hi改=hi+Vi和正高HA=HB+h也就随al1=Fix(val一0．5)：a12：Fix(va2一O．5)：al3=Fix(va3—之计算出来。0．5)：a14=Fix(va4—0．512、VisualBasic6．0编写的计算界面及相关程序EndIf(1)VisualBasic6．0编写的计算界丽a15=al1+a12+al3+a14’改正数的和的相反数要与闭合差相等，即∑Vi=一fhIfv<0An

7、d(-1al5)flThenText14．Text=al4一(f1+a15)Ifv>0And(一1a15)0And(一1a15)