测量平差程序设计.doc

学号

天津城市建设学院

测绘程序设计结业考核报告

单一附合水准路线近似平差

学生姓名

班级

测绘二班

成绩

指导教师(签字)

测绘工程系

2012年12月13日

目的和意义

1.掌握常用控件的属性和方法。

2.熟练使用窗体、控件进行程序设计。

3.熟练应用结构化程序设计语言思想编写程序代码。

4.掌握利用菜单编辑器设计VB菜单并编写相关程序代码。

5.了解较复杂的编程过程。

6.掌握在窗体上添加控件的各种方法。

二、原理和过程

《误差理论与测量平差基础》、《VB测绘程序设计》

三、程序代码

OptionExplicit

PrivateSubCommand1_Click()

DimnAsInteger

n=txtcz.Text

Ifn1Then

Form2.Show

Form1.Hide

Else

MsgBox测站数应该大于1,

vbOKOnly+vbInformation+vbApplicationModal,提示信息

EndIf

OptionExplicit

PrivateSubCommand1_Click()

DimqgAsDouble

DimzgAsDouble

DimiAsInteger

DimnAsInteger

n=Form1.txtcz.Text

Dimgc()AsDouble

DimsumAsDouble

Dimpcg1()AsDouble

ReDimgc(0Ton-1)

ReDimpcg1(0Ton-1)

DimaAsDouble

sum=0

Fori=0Ton-1

sum=sum+gc(i)

Nexti

qg=Val(txtqg.Text)

zg=Val(txtzg.Text)

a=(sum+qg-zg)/n

pcg1(0)=qg+gc(0)-a

Fori=1Ton-1

pcg1(i)=gc(i)+pcg1(i-1)-a

pcg(0).Text=pcg1(0)

pcg(i)=pcg1(i)

Nexti

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubCommand3_Click()

txtqg.Text=

txtzg.Text=

DimiAsInteger

DimnAsInteger

n=Form1.txtcz.Text

Fori=0Ton

dm(i).Text=

Nexti

Fori=0Ton-1

gc(i).Text=

Nexti

Fori=0Ton-1

pcg(i).Text=

Nexti

EndSub

PrivateSubForm_Load()

DimiAsInteger

DimnAsInteger

n=Val(Form1.txtcz.Text)

Fori=1Ton

Loaddm(i)

dm(i).Top=dm(0).Top+360*i

dm(i).Left=840

dm(i).Visible=True

dm(i).Enabled=True

dm(i).Text=

Nexti

Fori=1Ton-1

Loadgc(i)

gc(i).Top=gc(0).Top+360*i

gc(i).Left=2140

gc(i).Visible=True

gc(i).Enabled=True

gc(i).Text=

Nexti

Fori=1Ton-1

Loadpcg(i)

pcg(i).Top=pcg(0).Top+360*i

pcg(i).Left=3440

pcg(i).Visible=True

pcg(i).Enabled=True

pcg(i).Text=

Nexti

EndSub

四、小结

收获、体会及存在的问题或建议