广东水利电力职业技术学院Visual Basic课程设计报告书样本.docx
- 文档编号:29382060
- 上传时间:2023-07-22
- 格式:DOCX
- 页数:18
- 大小:1.30MB
广东水利电力职业技术学院Visual Basic课程设计报告书样本.docx
《广东水利电力职业技术学院Visual Basic课程设计报告书样本.docx》由会员分享,可在线阅读,更多相关《广东水利电力职业技术学院Visual Basic课程设计报告书样本.docx(18页珍藏版)》请在冰豆网上搜索。
广东水利电力职业技术学院VisualBasic课程设计报告书样本
工程测量技术专业
课程设计报告书
课程名称:
VB语言与测量程序设计
课程设计题目:
角度计算程序
课程设计日期:
2011年6月20号
学生姓名:
11黄国新27温友银
班级:
10计测
(1)班
指导教师:
李建
课程设计成绩评定
小组成果自我评定:
□优□良□中□及格□不及格
序号
姓名
学号
角色
具体承担的任务
自评分
成绩
1
黄国新
11
组长
界面设计,代码编写
85
2
温友银
27
组员
界面设计,代码编写
85
3
教师评语:
教师签名:
目录
1概述1
1.1编写角度测量计算程序的意义和目的1
1.2角度测量计算程序的开发语言1
2角度测量计算程序的主要功能1
2.1主要功能1
2.2角度测量的作业方法2
2.3角度测量的限差要求3
3四等水准测量计算程序的界面设计4
3.1程序主界面4
3.2菜单界面4
4程序核心代码4
4.1盘左,盘右计算的代码4
4.2方位角计算的代码5
5经验与教训5
5.1核心功能的技术处理5
5.2困难与解决途径6
5.3程序扩展解决思路7
6结语7
参考文献7
黄国新课程设计总结8
温友银课程设计总结9
1概述
角度计算程序主要针对角度测量中的测量数据进行计算,主要对水平角和竖直角的数据的计算,和一些角度的弧度的换算,坐标方位角以及三角高程测量计算等进行一系列的计算。
1.1编写角度测量计算程序的意义和目的
编写角度测量计算程序有助于加深理解和掌握角度测量的操作步骤及计算方法,并且可以严格按照测量的精度要求对测量数据进行检测,提高测量成果的准确度,同时该程序也有利于工程现场技术人员工程及时检查测量数据。
1.2角度测量计算程序的开发语言
角度测量计算程序使用VisualBasic6.0编程语言开发。
VisualBasic6.0编程语言具有方便,便捷等特点,主要体现为:
界面整洁美观给人一种温馨的感觉,程序操作人性化等。
2角度测量计算程序的主要功能
2.1主要功能
角度测量计算程序主要能实现以下功能:
(1)水平角的盘左,盘右的读数求解半测回值和一测回值,并且对盘左,盘右读数的限差进行检查,若超限则进行提示.
(2)竖直角的盘左,盘右的读数求解指标差和竖直角的角度,并且对盘左,盘右读数的限差进行检查,若超限则进行提示.
(3)角度弧度换算的互换,可以进行角度换弧度或弧度进行换角度,方便使用者操作。
(4)用已知两点的坐标计算,可以求得两点之间的距离和两点连线的方位角。
(5)三角高程测量计算,可以用已知仪器高,目标高,尺间隔和竖直角,可以求得平距和高差。
2.2角度测量的作业方法
(1)每站观测程序
首先进行盘左观测——》然后进行盘右观测,盘左和盘右结合计算,求出半测回值和一测回值。
2.3角度测量的限差要求
3四等水准测量计算程序的界面设计
3.1程序主界面,点击后直接进入总菜单。
3.2菜单界面,可以选择你所需要的功能,直接点击就可以进入了,方便您的使用!
!
!
4程序核心代码
4.1盘左,盘右计算的代码
水平角代码:
PrivateSubCommand1_Click()
DimdulA%,fenlA%,miaoLA%,dulB%,fenLB%,miaoLB%
DimduRA%,fenRA%,miaoRA%,duRB%,fenRB%,miaoRB%
DimduHAL%,fenHAL%,miaoHAL%,duHAR%,fenHAR%,miaoHAR%
DimduWH%,fenWH%,miaoWH%,halfL#,halfR#,angle#
dulA=Val(Text1.Text):
fenlA=Val(Text2.Text):
miaoLA=Val(Text3.Text)
dulB=Val(Text4.Text):
fenLB=Val(Text5.Text):
miaoLB=Val(Text6.Text)
duRA=Val(Text7.Text):
fenRA=Val(Text8.Text):
miaoRA=Val(Text9.Text)
duRB=Val(Text10.Text):
fenRB=Val(Text11.Text):
miaoRB=Val(Text12.Text)
IfdulB halfL=(dulB-dulA)+(fenLB-fenlA)/60+(miaoLB-miaoLA)/3600 IfduRB halfR=(duRB-duRA)+(fenRB-fenRA)/60+(miaoRB-miaoRA)/3600 IfAbs(halfL-halfR)*3600>40Then MsgBox"半测回差超限,请检查观测和输入是否正确! ",,"角差超限" ExitSub EndIf angle=(halfL+halfR)/2 duHAL=Int(halfL): halfL=(halfL-duHAL)*60 fenHAL=Int(halfL): halfL=(halfL-fenHAL)*60: miaoHAL=Int(halfL+0.5) duHAR=Int(halfR): halfR=(halfR-duHAR)*60 fenHAR=Int(halfR): halfR=(halfR-fenHAL)*60: miaoHAR=Int(halfR+0.5) duWH=Int(angle): angle=(angle-duWH)*60 fenWH=Int(angle): angle=(angle-fenWH)*60: miaoWH=Int(angle+0.5) Text13.Text=Str(duHAL): Text14.Text=Str(fenHAL): Text15.Text=Str(miaoHAL) Text16.Text=Str(duHAR): Text17.Text=Str(fenHAR): Text18.Text=Str(miaoHAR) Text19.Text=Str(duWH): Text20.Text=Str(fenWH): Text21.Text=Str(miaoWH) EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" Text7.Text="" Text8.Text="" Text9.Text="" Text10.Text="" Text11.Text="" Text12.Text="" Text13.Text="" Text14.Text="" Text15.Text="" Text16.Text="" Text17.Text="" Text18.Text="" Text19.Text="" Text20.Text="" Text21.Text="" EndSub 竖直角代码: PrivateSubCommand2_Click() DimAAsDouble,BAsDouble,CAsDouble,DAsDouble DimduL%,fenL%,miaoL%,duR%,fenR%,miaoR%,duS%,fenS%,miaoS% duL=Val(Text1.Text) fenL=Val(Text2.Text) miaoL=Val(Text3.Text) duR=Val(Text4.Text) fenR=Val(Text5.Text) miaoR=Val(Text6.Text) A=duL+fenL/60+miaoL/3600 B=duR+fenR/60+miaoR/3600 D=(A+B-360)/2 C=(A-B+180)/2 duS=Fix(C) C=(C-duS)*60 fenS=Int(C) C=(C-fenS)*60 miaoS=Int(C) Text7.Text=Trim(Str(Int(D*3600+0.5))) Text8.Text=Trim(Str(duS)) Text9.Text=Trim(Str(Abs(fenS))) Text10.Text=Trim(Str(Abs(miaoS))) EndSub PrivateSubCommand3_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" Text7.Text="" Text8.Text="" Text9.Text="" Text10.Text="" 角度弧度换算: PrivateSubCommand1_Click() Text1.Text="0" Text2.Text="0" Text3.Text="0" Text4.Text="0" EndSub PrivateSubCommand2_Click() DimA%,B%,C%,D# ConstPI=3.14159265 A=Text1.Text B=Text2.Text C=Text3.Text D=A+B/60+C/3600 D=D*PI/180 Text4.Text=Format(D,"0.000000") EndSub PrivateSubCommand3_Click() DimA%,B%,C%,D# ConstPI=3.14159265 D=Text4.Text D=D*180/PI A=Int(D) D=(D-A)*60 B=Int(D) D=(D-B)*600 C=Int(D)/10# Text1.Text=A Text2.Text=B Text3.Text=C 4.2方位角计算的代码 三角测量代码: PrivateSubCommand1_Click() Dimi#,h#,n#,du%,fen%,miao%,A#,D#,detH# i=Val(Text1.Text) h=Val(Text2.Text) n=Val(Text3.Text) du=Val(Text4.Text) fen=Val(Text5.Text) miao=Val(Text6.Text) A=du+fen/60+miao/3600 A=A*3.14159265/180 D=100*n*Cos(A)*Cos(A) detH=D*Tan(A)+i-h Text7.Text=Trim(Str(Format(D,"0.000"))) Text8.Text=Trim(Str(Format(detH,"0.000"))) EndSub PrivateSubCommand2_Click() End EndSub PrivateSubCommand3_Click() Text1.Text="0" Text2.Text="0" Text3.Text="0" Text4.Text="0" Text5.Text="0" Text6.Text="0" Text7.Text="0" Text8.Text="0" EndSub 坐标方位角代码: PrivateSubCommand1_Click() DimXa#,Ya#,Xb#,Yb#,detX#,detY#,tana#,ab#,du%,fen%,miao%,s# ConstPI=3.14159265358979 Xa=Val(Text1.Text) Ya=Val(Text2.Text) Xb=Val(Text3.Text) Yb=Val(Text4.Text) detX=Xb-Xa detY=Yb-Ya IfAbs(detX)<0.000001Then MsgBox"除数为零,请检查坐标输入是否正确! ! ! ! ! " Text1.SetFocus ExitSub EndIf s=Sqr(detX*detX+detY*detY) IfAbs(detX)<0.000001Then IfdetY>0Then ab=90 Else ab=270 EndIf Else tana=detY/detX ab=Atn(tana) ab=ab*180/PI IfdetX<0Then ab=180+ab ElseIfdetX>0AnddetY<0Then ab=360+ab EndIf EndIf du=Fix(ab) ab=(ab-du)*60 fen=Fix(ab) ab=(ab-fen)*60 miao=Fix(ab) Text6=Trim(Str(du)) Text7=Trim(Str(fen)) Text8=Trim(Str(miao)) Text5.Text=Trim(Format(s,"0.0000")) EndSub PrivateSubCommand2_Click() Text1.Text="0" Text2.Text="0" Text3.Text="0" Text4.Text="0" Text5.Text="0" Text6.Text="0" Text7.Text="0" Text8.Text="0" EndSub 5经验与教训 5.1核心功能的技术处理 (1)在代码的编写中,最主要的是在编写之前了解自己编写的代码,在实际运行中的意义和意思。 (2)在VB编程中,代码编写是最重要的一个环节,所以在编写中每一步都要认真的核对和理解。 (3)在VB编程中,在核心功能的技术处理的最关键是会在错误中,找出错误的关键所在,从而找出自己错误地方和解决的对策。 (4)在VB编程中,界面处理也是一个关键,关键是要使得界面整洁.、美观|,使人看起来精神一振,神清气爽的感觉. 5.2困难与解决途径 (1)在编写代码的时候是最容易出现了困难的,不是对代码的不理解,就是在编写的时候没有注意把代码写错。 (2)在VB编程中,我们遇到困难的时候,一般都会就去翻书看看是哪里出错了;如果实在是找不出就去问同学;问同学再不行就会去问我们的指导老师。 (3)我们在编写完代码的运行的时候,出现了故障,结果我们仔细的检查和对书本的核对后,是我们忘记了变量的声明。 5.3程序扩展解决思路 首先,我们应该先明确我们要扩展的方向,然后,对我们进行扩展的具体步骤和方法,最后,在根据实际的情况来实行我们程序的扩展。 从而,使得我们的程序在界面上更加的美观、整洁,使用上更加的快捷和简单明了。 6结语 通过这周的实训,我们两才是真真正正的接触VB编程,实训不仅使我们学到了知识,也帮助我们缩小了实践和理论的差距,通过这次实训让我们更深一步的对VB这门课程的知识有更进一步的渴望,同时对自己的专业,对自己的能力,对自己所学的有正确的认识,并且能在以后的学习工作中不断提高和完善自己。 参考文献 [1]龚沛曾.《VB程序设计简明教程(第二版)》,高等教育出版社,2002.8 [2] [3]《VisualBasic课程设计案例精编》中国水利水电出版社佟彪等编著 [4]《VisualBasic使用大全》 《VB语言与测量程序设计》课程设计 个人总结 黄国新(100313111) 万事开头难,实训的第一天,我们接到任务时,我们感到一头雾水,不知道如何开展工作,但慢慢听老师讲,我们慢慢可以开始展开工作了。 虽然我们小组只有两个人,但我们的成果不比别人差,我们计划好每一步要怎么走。 在编程的过程中我们同样的遇到了好多问题,一个小小的失误都可能使程序出现大的漏洞。 而我们只是学了点简单的vb程序编写,我很后悔没有尝试过自己编写过程序。 所以在做项目的时候我们倍感压力、更加的团结协作,可即使如此我们还是出现了错误,我们的程序在编写上存在一些漏洞,导致调试时不能正常运行,后经过老师的指导、我们的调整,终于可以完美的运行,这里也耽误了我们很多宝贵的时间,直接导致了我们在项目调试上速度不够快。 在这里我们也麻烦了好多同学,特别是老师。 感谢他们的帮助、、、 我们尝试过做四等水准计算,我们花了两天在这个上面,我们错的太多了,有由于时间的紧迫,我们只好放弃了。 代码我们真的含不明白,我们也很惭愧,我们在这周实训中也学到不少东西,我们改成了做角度计算,总的来说,这次实训还是比较成功的。 最后出来的结果,我们两都很有成就感,这是我们一步步设计、一步步完善、辛苦付出后得到的成果。 实训不仅使我们学到了知识,也帮助我们缩小了实践和理论结合的重要性,通过这次实训让我们两好好复习了上课时没听到的东西,再次感谢帮助我们两的同学们和老师,感谢你们给以的帮助、、、 通过这次实训,让我懂得了在接下来的VB课程里,要好好掌握老师讲授的每一个要点。 《VB语言与测量程序设计》课程设计 个人总结 温友银(100313127) 在课程设计过程中,虽然我对程序设计不是很熟悉,但是通过老师详细的讲解,我按照步骤去做,遇到问题的时候先自己想办法解决,解决不了的就去问同学,问老师,通过这种学习,收获很大,学会了自己解决棘手问题,知道了团结的力量。 第一次,在上机课的时候,我根据老师讲的,在机房里做了一次,但没有做完。 于是把东西存在了自己的MP3里面,以便以后上机的时候再来做。 但真的没有想到,我的MP3,在一次上电子阅览室的时候,忘了拔了。 于是乎,我辛辛苦苦做了一大节课的程序就这样没了。 心里真的很不舒服,但是,不舒服归不舒服,这个程序,还是得继续做下去,这么以点点小小的失误不算什么,然后跑到学校机房,继续我的VB程序设计。 但由于时间问题,做的还是有点粗糙,还是不免存在一定的问题,比如说开始的时候打开不了文件,总是出现错误,自己总也找不出来,后来请教了一下同学,结果发现时代码的编写出现了错误,把代码改过来之后,程序终于可以打开运行了。 然后,检查的时候,又发现“查找”运行错误,又是代码那里出现的黄色的字样,结果发现,是代码拼写错误,于是,拿着同学的代码对比一下,发现了错误所在之地,然后更正了过来。 经过一番努力,程序终于做完了。 后来,室友看了我的程序,她说运行不了的,就是出现了错误,出现了错误,就应该改过啊,这时的我才恍然大悟。 “是错误,那么就要改正的! ”于是当天,我就去了学校机房,再一次运行我的程序,仍然出现错误情况,需要调试,我回忆起上课的时候,老师是怎么跟我们讲的,哪里出现了错误,需要怎么样改正。 于是,我就耐着性子,一个一个,一个一个得改正,编辑代码,一个一个得检查,终于完成了。 完成之后,我在运行一下,一切正常,心里终于舒了一口气。 经过这次的VB程序设计,让我知道了更多学习的方法。 具体如下: (1)保持良好的学习心态,第一,要有自信,自强,积极主动学习.第二,克服畏难情绪,树立学好程序设计的信心 (2)要了解概念: VB程序设计本身并不复杂,变量,函数,条件语句,循环语句等概念较多.要真正能进行程序设计,就要深入理解这些概念.应该重视概念的学习. 总之,在此次的VB程序设计中,如果没有足够的耐心,就不可能完成的很好。 所以此次VB程序设计,让我做事情更加有耐心,更加细心,学习更加认真仔细。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 广东水利电力职业技术学院Visual Basic课程设计报告书样本 广东 水利电力 职业技术学院 Visual Basic 课程设计 报告书 样本