- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
学号
天津城市建设学院
测绘程序设计结业考核报告
单一附合水准路线近似平差
学生姓名
班级
测绘二班
成绩
指导教师(签字)
测绘工程系
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
四、小结
收获、体会及存在的问题或建议
您可能关注的文档
- 浅谈如何进行中考英语总复习.doc
- 实习指导老师工作评价表.doc
- plc交通灯毕业设计.doc
- 安徽省现代物流业的SWOT分析.pdf
- C2C实验报告完整版.doc
- 指数函数2完整版.doc
- 中华中医药学会糖尿病诊疗指南(2012).doc
- 机动车驾驶培训教练员从业资格考试申请表_2.doc
- 报销制度完整版.doc
- 宝钛原油交易细则.doc
- GB/T 45632-2025数字航空摄影测量 控制测量规范.pdf
- GB/T 45616.4-2025自动化系统与集成 面向制造的数字孪生框架 第4部分:信息交换.pdf
- 中国国家标准 GB/T 45616.4-2025自动化系统与集成 面向制造的数字孪生框架 第4部分:信息交换.pdf
- 《GB/T 45616.4-2025自动化系统与集成 面向制造的数字孪生框架 第4部分:信息交换》.pdf
- GB/T 33588.1-2025雷电防护系统部件(LPSC) 第1部分:连接件的要求.pdf
- 中国国家标准 GB/T 33588.1-2025雷电防护系统部件(LPSC) 第1部分:连接件的要求.pdf
- 《GB/T 33588.1-2025雷电防护系统部件(LPSC) 第1部分:连接件的要求》.pdf
- 《GB/T 33588.3-2025雷电防护系统部件(LPSC) 第3部分:隔离放电间隙(ISGs)的要求》.pdf
- 中国国家标准 GB/T 33588.3-2025雷电防护系统部件(LPSC) 第3部分:隔离放电间隙(ISGs)的要求.pdf
- GB/T 18757-2025企业建模与体系结构 企业参考体系结构与方法论的要求.pdf
文档评论(0)