测量导线计算VB程序设计

无

第2卷　第3期2003年7月

　　　　　　Jul.

JOURNALOFBEIJINGVOCATIONAL&TECHNICALINSTITUTEOFINDUSTRY

北京工业职业技术学院学报

№.2Vol.3

2003

测量导线计算VB程序设计

薄志义1,2

(1.中国矿业大学北京校区,北京100083;2.北京工业职业技术学院,北京100042)

摘　要:应用VisualBASIC(VB)计算机编程语言对图根导线计算进行编程设计。探讨了VB编程方法技巧与测量计算有机的结合,程序具有较高的实用性。关键词:测量导线;计算;VB;程序设计中图分类号:P209　　　　　　文献标识码:B　　　　　文章编号:1671-6558(2003)03-08-04

VBProgramDesignofTraverseCalculation

BoZhiyi1,2

(1.ChinaUniversityofMining&Technology,Beijing100083,China2.BeijingVocational&TechnicalInstituteofIndustry,Beijing100042,China)

Abstract:ThisarticleappliesVisualBASICtoprogramdesignoftraversecalculation,andexploresbettercombi2nationofprogrammingmethodsandtraversecalculation,whichprovestohavehighpracticalvalue.Keywords:traverse;calculation;VB;seismicsource;programdesign

1测量导线计算VB程序的功能

本程序适用于地形测量、地籍测量、工程测量中的图根导线的计算。2计算公式

由于是图根导线的测量计算,因此选用的数学计算公式是简易平差形式。

2.1角度闭和差及其分配公式

β-(aBN-aAM)-n3180°闭和差:fβ=Σ

　　纵坐标闭和差:fX=XB′-XB

横坐标闭和差:fY=YB′-YB导线绝对闭和差:fs=X2+fY2导线相对闭和差:1/T=fs/ΣS导线相对闭和差限差设为1/20002.3计算待定点坐标纵坐标:Xi=Xi′+VXi横坐标:Yi=Yi′+VYi

3图形与编号3.1图形

改正数:Vβ=-fβ/n限差:fβ限=±402.2坐标闭和差及其分配

图1测量附和导线3.2编号MA方向的已知方位角为TA,BN方向的已知方位

(XB,YB)。角为TB。导线转折角数为n,转折角采用左角,用已知点A、B坐标分别为(XA,YA)、

收稿日期:2003-03-13

作者简介:薄志义(1964-),男,辽宁工程技术大学测量工程专业毕业,中国矿业大学(北京校区)在读博士生,副教授。

无

第3期　　　　　　　　　　　　　薄志义:测量导线计算VB程序设计　　　　　　　　　　　9βi表示,各边长用Si表示。4程序设计

VB程序设计,一般分为下几个步骤:(1)界面设计;(2)代码编写;(3)程序调试;(4)打包发布。4.1界面设计

界面设计如图2所示。在属性窗口将窗体标题栏设置成“图根附和导线测量计算”,在窗体上放置四个命令按钮。标题属性分别设置成“录入数据”、“计算”“、查看结果”和“退出”

。

图2程序界面

4.2代码编写60进制的角度值,转换成以弧度为单位的角度值,

代码编写框图,如图3所示。为了将度、分、秒要编写一段自定义函数子程序

。

图3程序框图5程序使用说明行结尾要回车,最后一个边长输入Sn=0。数据文

程序源代码编好后,可以打包发布成EXE文件格式:件,脱离VB环境运行,也可以在VB环境中运行。本程序是附和导线计算程序,若计算闭和导线,可以将其拆解成附和合导线进行计算。

5.1运行程序　在VB的IDE开发环境中,打开已编好的导线程序,并运行,进入图2界面。5.2用鼠标点击“录入数据”按钮,调用Win2dows中Notepad记事本应用程序,按照下面的数据

TA,XA,YA,XB,YB,TBB1,S1B2,S2

……bn,Sn

5.3数据录入之后,用鼠标点击“计算”按钮,若

格式编写数据文件。然后给文件命名存盘、退出,或最小化Notepad应用程序。注意:在编写数据文件时,每行前面不要有空格,数据之间用逗号间隔,每

数据合格,会出现“计算成功”提示;若数据不合格,出现“数据不合格”提示,退出计算,检查数据是否录入错误。

5.4计算之后,程序自动将结果以文件形式存

无

北10　　　　　　　　　　　　京工业职业技术学院学报　　　　　　　　　　　　第2卷

name2=CommonDialog2.FileName‘调用Notepad应用程序

Shell(name2)

EndSub

PrivateSubCommand2-Click()‘开始导线计算

储在与数据文件同一路径下。鼠标点击“查看结

果”,程序将转入OfficeWord应用程序或Notepad记事本中,打开结果文件。可以对结果进行编辑输出。

6计算示例

附和导线图见图1。已知数据:

TA=273.5615,XA=5075.215,YA=5111.594;

XB=5421.235,YB=5257.232,TB=117.4712。

观测数据β:1=275.1327,S1=51.794;β2=211.3505,S2=66.781;β3=144.3541,S3=123.898;β4=208.5307,S4=146.298;β5=263.3342,S5=0。数据文件为:

273.5615,50575.215,5111.5945421.235,5257.232,117.4712275.1327,51.794211.3505,66.781144.3541,123.898208.5307,146.298263.3342,0

计算结果如表1。

表1导线成果表点　名A234B

子程序

CommonDialog1.ShowOpen

name1=CommonDialog1.FileNameOpenname1ForInputAs#1Input#1,n,ta,xa,ya,xb,yb,tb

ReDimb(n),s(n),a(n),x(n),y(n),1(n),m(n)Forv=1Ton

Input#1,b(v),s(v)

NextvClose#1

ta=rad(ta):tb=rad(tb)Forv=1Tonb(v)=rad(b(v))Nextv

Constpi=3.1415926Forv=1Ton

c=c+b(v):o=o+s(v)Nextv

e=tb-ta:f=c-e+n3piDoWhilef>=23pif=f-23piLoop

d=f3206265

IfAbs(d)>=403n^0.5ThenMsgBox“闭合差超限”EndIfe=-f/nForv=1Tonb(v)=b(v)+eNextva(0)=ta

Forv=1Ton

a(v)=a(v-1)+b(v)+pi

Ifa(v)>=23piThena(v)=a(v)-23piNextv

x(1)=xa:y(1)=ya

Forv=2Ton

x(v)=x(v-1)+s(v-1)3Cos(a(v-1))y(v)=y(v-1)+s(v-1)3Sin(a(v-1))

坐标(米)

纵坐标X横坐标Y5057.2155111.5945126.3445176.9325300.2825421.235

5119.8385163.4245174.9515257.232

　工程项目名称:　　　　计算者:　　　　计算日

期:

7程序源代码

Dimb(),s(),a(),x(),1(),m()AsDouble‘定义窗体变量

DimnAsInteger

Dimta,xa,ya,xb,yb,tbAsDoubleDimnamelAsString

PrivateSubCommand1-Click()‘点击“录入数据”按钮事件子程序

CommonDialog2.ShowOpen

无

第3期　　　　　　　　　　　　　薄志义:测量导线计算VB程序设计　　　　　　　　　　　11Nextv

h=x(n)-xb:i=y(n)-ybj=(h^2+i^2)^0.5k=1/(o/j)

Ifk>=1/2000ThenMsgBox“相对闭合差超限”EndIf

Forv=1Ton-1

1(v)=-(h/o)3s(v):m(v)=-(i/o)3s(v)Nextv

For=2Ton-1

x(v)=x(v-1)+s(v-1)3Cos(a(v-1))+1(v-1)

y(v)=y(v-1)+s(v-1)3Sin(a(v-1))+m(v-1)

Nextv

)xa=Format(xa“,###.###”

ya=Format(ya“,###.###)

)xb=Format(xb“,###.###”)yb=Format(yb“,###.###”Forv=2Ton-1

)x(v)=Format(x(v)“,###.###”)y(v)=Format(y(v)“,###.###”Nextv

tta=dms(ta):ttb=dms(tb)file=name1+“result”OpenfileForOutputAs#2

Print#2“,TA=”;tta“,XA=”;xa“,YA=”;ya

Forv=2Ton-1

(+Str(v)+”)=”(+Str(v)sl=“X“;s2=“Y“)=”+”

Print#2,s1;x(v),s2;y(v)Nextv

Print#2“,XB=” …… 此处隐藏：3345字，全部文档内容请下载后查看。喜欢就下载吧 ……