测量平差程序设计

学号天津城市建设学院测绘程序设计结业考核报告单一附合水准路线近似平差学生姓名班级测绘二班成绩指导教师(签字)测绘工程系2012年12月13日

目的和意义1.掌握常用控件的属性和方法。2.熟练使用窗体、控件进行程序设计。3.熟练应用结构化程序设计语言思想编写程序代码。4.掌握利用菜单编辑器设计VB菜单并编写相关程序代码。5.了解较复杂的编程过程。6.掌握在窗体上添加控件的各种方法。二、原理和过程《误差理论与测量平差基础》、《VB测绘程序设计》三、程序代码OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=txtcz.TextIfn>1ThenForm2.ShowForm1.HideElseMsgBox"测站数应该大于1",vbOKOnly+vbInformation+vbApplicationModal,"提示信息"EndIfOptionExplicitPrivateSubCommand1_Click()DimqgAsDoubleDimzgAsDoubleDimiAsIntegerDimnAsIntegern=Form1.txtcz.TextDimgc()AsDoubleDimsumAsDoubleDimpcg1()AsDoubleReDimgc(0Ton-1)ReDimpcg1(0Ton-1)DimaAsDoublesum=0Fori=0Ton-1sum=sum+gc(i)Nextiqg=Val(txtqg.Text)zg=Val(txtzg.Text)a=(sum+qg-zg)/npcg1(0)=qg+gc(0)-aFori=1Ton-1pcg1(i)=gc(i)+pcg1(i-1)-apcg(0).Text=pcg1(0)pcg(i)=pcg1(i)NextiEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()txtqg.Text=""txtzg.Text=""DimiAsIntegerDimnAsIntegern=Form1.txtcz.TextFori=0Tondm(i).Text=""NextiFori=0Ton-1gc(i).Text=""NextiFori=0Ton-1pcg(i).Text=""NextiEndSubPrivateSubForm_Load()DimiAsIntegerDimnAsIntegern=Val(Form1.txtcz.Text)Fori=1TonLoaddm(i)dm(i).Top=dm(0).Top+360*idm(i).Left=840dm(i).Visible=Truedm(i).Enabled=Truedm(i).Text=""NextiFori=1Ton-1Loadgc(i)gc(i).Top=gc(0).Top+360*igc(i).Left=2140gc(i).Visible=Truegc(i).Enabled=Truegc(i).Text=""NextiFori=1Ton-1Loadpcg(i)pcg(i).Top=pcg(0).Top+360*ipcg(i).Left=3440pcg(i).Visible=T