广东水利电力学院“我爱我班”主题班会总结报告

广东水利电力学院“我爱我班”主题班会总结报告

“我爱我班”主题班会总结报告

为了培养学生集体荣誉感和责任感，形成强大的班级凝聚力。加深学生对班级管理的参与意识，从而激发同学们的主人翁热情。学会与同学们和睦相处，使班级形成和谐、温馨、团结向上的氛围，从而团结同学，共同进退，共创辉煌，引导学生努力争创优秀班集体,201*年12月10日晚上,市政园林班开展了“我爱我班”的主题班会活动。本次班会活动得到了学生会评委、师兄师姐和同学们的高度评价。

当天，在我们迈入活动课室时，可以发现，空中悬挂着五颜六色的气球，四周用彩带装饰一新，黑板上写着醒目的班会主题－－“我爱我班”，为了配合班会中的表演，桌椅也重新布置了一翻，让人有一种喜庆的感觉。

等两位学生会评委代表及我们的两位师兄师姐入座后，本次班会在主持人激昂的宣布下正式开始。首先由班长给大家介绍了我们班的现况，解读了市政园林专业的开设意义。本次班会以时间为线索，用幻灯片的形式与大家一起分享了从开学到现在，3个多月里，大家一起走过的日子。军训、中秋游园、新生杯篮球赛，一路走来，我们有欢声和笑语，也有汗水和泪水。在这个大家庭里，我们一起学习，一起生活，一起成长，慢慢的由一名高中生转变成真正意义上成熟的大学生。此时，在我的脑海里，跟大屏幕里播放的幻灯片一样，闪过这些日子里我们在一起的点点滴滴

在班会的“回想录”中还穿插了几个好玩的互动游戏，其中“大家一起听听看”更是将班会推向了高潮，主持人播放一段由我们班同学用方言录制的声音，由大家来“凭音辨人”。从游戏中我们可以看出，在这说长不长，说短不短的三个月里，大家已经从陌生到认识再到了解，现在已经可以“凭音辨人”了。说明同学们可以在学习生活中融洽相处，成为好同学，好朋友。

在不知不觉中，班会已经接近尾声，最后由班长上台总结，并带领同学们一起宣誓：“我们相信，我们的未来一定是辉煌的，我们的明天一定是最棒的，我们绝对不会让对我们寄予厚望的人们失望，因为我们是市政工程系的新起之秀”。洪亮的誓言让在场的所有人都为之振奋，本次主题班会到此圆满结束。

班级的凝聚力是班级存在的必要条件，也是使班级发挥潜能的催化剂。凝聚力离不开人与人之间相互认识、相互信任、相互尊重、相互理解、相互协作以及真诚的爱。虽然凝聚力说起来很虚，看不见又摸不着，但它却总能让班级以外的其他人真切感受到，也能让身处这个班级的成员共同进步，时刻焕发出属于这个班的特殊气质。而集体活动是最能培养学生的凝聚力、集体荣誉感的了。本次主题班会也不例外，从策划到会场的布置，大家分工合作，相信团结就是力量，才有了今天班会的成功的举办。在此，要感谢所有有参与到这个班会的同学们，感谢他们对班集体无偿的奉献。

马克思说：“人的生活离不开友谊，但要得到真正的友谊是不容易的。友谊需要忠诚去播种，有热情去浇灌，用谅解去护理。”可以肯定的说，本次主题班会活动的开展对培养同学们的集体荣誉感，形成班级凝聚力，对推动同学之间的了解起到了积极的作用。相信，在今后的学习生活中，同学们会更加融洽，集体会更加和谐，园林班将是同学们和谐的集体温馨的家。

广东水利电力职业技术学院12市政园林班邹世鹏201*年12月20日

扩展阅读：广东水利电力职业技术学院Visual Basic课程设计报告书-样本

VB编程实训报告

工程测量技术专业

课程设计报告书

VB编程实训报告

课程名称：VB语言与测量程序设计课程设计题目：角度计算程序

课程设计日期：201*年6月20号学生姓名：11黄国新27温友银班级：10计测（1）班指导教师：李建

VB编程实训报告

课程设计成绩评定

小组成果自我评定：□优□良□中□及格□不及格

序号姓名123黄国新温友银学号1127角色组长组员具体承担的任务界面设计，代码编写界面设计，代码编写自评分成绩8585教师评语：教师签名：

VB编程实训报告

目录

1概述....................................................................1

1.1编写角度测量计算程序的意义和目的......................................11.2角度测量计算程序的开发语言............................................12角度测量计算程序的主要功能.................................................1

2.1主要功能..........................................................12.2角度测量的作业方法...................................................22.3角度测量的限差要求...................................................23四等水准测量计算程序的界面设计.............................................3

3.1程序主界面........................................................33.2菜单界面.........................................错误！未定义书签。4程序核心代码............................................................4

4.1盘左，盘右计算的代码.................................................44.2方位角计算的代码....................................................85经验与教训.............................................................11

5.1核心功能的技术处理...............................................115.2困难与解决途径...................................................115.3程序扩展解决思路.................................................116结语...................................................................12参考文献.................................................................12黄国新课程设计总结.......................................................13温友银课程设计总结.......................................................14

VB编程实训报告

1概述

角度计算程序主要针对角度测量中的测量数据进行计算，主要对水平角和竖直角的数据的计算，和一些角度的弧度的换算，坐标方位角以及三角高程测量计算等进行一系列的计算。

1.1编写角度测量计算程序的意义和目的

编写角度测量计算程序有助于加深理解和掌握角度测量的操作步骤及计算方法，并且可以严格按照测量的精度要求对测量数据进行检测，提高测量成果的准确度，同时该程序也有利于工程现场技术人员工程及时检查测量数据。

1.2

角度测量计算程序的开发语言

角度测量计算程序使用VisualBasic6.0编程语言开发。VisualBasic6.0编程语言具有方便，便捷等特点，主要体现为：界面整洁美观给人一种温馨的感觉，程序操作人性化等。

2角度测量计算程序的主要功能

2.1主要功能

角度测量计算程序主要能实现以下功能：

(1)水平角的盘左，盘右的读数求解半测回值和一测回值，并且对盘左，盘右读数的限差进行检查，若超限则进行提示.

(2)竖直角的盘左，盘右的读数求解指标差和竖直角的角度，并且对盘左，盘右读数的限差进行检查，若超限则进行提示.

(3)角度弧度换算的互换，可以进行角度换弧度或弧度进行换角度，方便使用者操作。（4）用已知两点的坐标计算，可以求得两点之间的距离和两点连线的方位角。（5）三角高程测量计算，可以用已知仪器高，目标高，尺间隔和竖直角，可以求得平距和高差。

VB编程实训报告

2.2角度测量的作业方法(1)每站观测程序

首先进行盘左观测》然后进行盘右观测，盘左和盘右结合计算，求出半测回值和一测回值。

2.3角度测量的限差要求

VB编程实训报告

3四等水准测量计算程序的界面设计

3.1程序主界面，点击后直接进入总菜单。

3.2菜单界面，可以选择你所需要的功能，直接点击就可以进入了，方便您的使用！！！

VB编程实训报告

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)/3600IfduRB

halfR=(duRB-duRA)+(fenRB-fenRA)/60+(miaoRB-miaoRA)/3600IfAbs(halfL-halfR)*3600>40Then

MsgBox"半测回差超限,请检查观测和输入是否正确!",,"角差超限"ExitSubEndIf

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

VB编程实训报告

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=""

VB编程实训报告

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/3600B=duR+fenR/60+miaoR/3600D=(A+B-360)/2C=(A-B+180)/2duS=Fix(C)C=(C-duS)*60fenS=Int(C)C=(C-fenS)*60miaoS=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=""

VB编程实训报告

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.14159265A=Text1.TextB=Text2.TextC=Text3.Text

D=A+B/60+C/3600D=D*PI/180

Text4.Text=Format(D,"0.000000")EndSub

PrivateSubCommand3_Click()

VB编程实训报告

DimA%,B%,C%,D#ConstPI=3.14159265D=Text4.TextD=D*180/PIA=Int(D)D=(D-A)*60B=Int(D)D=(D-B)*600C=Int(D)/10#Text1.Text=AText2.Text=BText3.Text=C4.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/3600A=A*3.14159265/180D=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()

VB编程实训报告

EndEndSub

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.14159265358979Xa=Val(Text1.Text)Ya=Val(Text2.Text)Xb=Val(Text3.Text)Yb=Val(Text4.Text)detX=Xb-XadetY=Yb-Ya

IfAbs(detX)<0.000001Then

MsgBox"除数为零，请检查坐标输入是否正确！！！！！"Text1.SetFocusExitSubEndIf

s=Sqr(detX*detX+detY*detY)

VB编程实训报告

IfAbs(detX)<0.000001ThenIfdetY>0Thenab=90Elseab=270EndIfElse

tana=detY/detXab=Atn(tana)ab=ab*180/PIIfdetX<0Thenab=180+ab

ElseIfdetX>0AnddetY<0Thenab=360+abEndIfEndIfdu=Fix(ab)ab=(ab-du)*60fen=Fix(ab)ab=(ab-fen)*60miao=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"

VB编程实训报告

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程序扩展解决思路

首先，我们应该先明确我们要扩展的方向，然后，对我们进行扩展的具体步骤和方法，最后，在根据实际的情况来实行我们程序的扩展。从而，使得我们的程序在界面上更加的美观、整洁，使用上更加的快捷和简单明了。

VB编程实训报告

6结语

通过这周的实训，我们两才是真真正正的接触VB编程，实训不仅使我们学到了知识，

也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对VB这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。

参考文献

[1]龚沛曾.《VB程序设计简明教程（第二版）》，高等教育出版社，201*.8[2]

[3]《VisualBasic课程设计案例精编》中国水利水电出版社佟彪等编著[4]《VisualBasic使用大全》

VB编程实训报告

《VB语言与测量程序设计》课程设计

个人总结

黄国新(100313111)

万事开头难，实训的第一天，我们接到任务时，我们感到一头雾水，不知道如何开展工作，但慢慢听老师讲，我们慢慢可以开始展开工作了。虽然我们小组只有两个人，但我们的成果不比别人差，我们计划好每一步要怎么走。在编程的过程中我们同样的遇到了好多问题，一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，我很后悔没有尝试过自己编写过程序。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行，这里也耽误了我们很多宝贵的时间，直接导致了我们在项目调试上速度不够快。在这里我们也麻烦了好多同学，特别是老师。感谢他们的帮助、、、

我们尝试过做四等水准计算，我们花了两天在这个上面，我们错的太多了，有由于时间的紧迫，我们只好放弃了。代码我们真的含不明白，我们也很惭愧，我们在这周实训中也学到不少东西，我们改成了做角度计算，总的来说，这次实训还是比较成功的。最

后出来的结果，我们两都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到的成果。实训不仅使我们学到了知识，也帮助我们缩小了实践和理论结合的重要性，通过这次实训让我们两好好复习了上课时没听到的东西，再次感谢帮助我们两的同学们和老师，感谢你们给以的帮助、、、

通过这次实训，让我懂得了在接下来的VB课程里，要好好掌握老师讲授的每一个要点。

VB编程实训报告

《VB语言与测量程序设计》课程设计

个人总结

温友银(100313127)

在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。

第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现“查找”运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。经过一番努力，程序终于做完了。

后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大悟。“是错误，那么就要改正的！”于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习.

总之，在此次的VB程序设计中，如果没有足够的耐心，就不可能完成的很好。所以此次VB程序设计，让我做事情更加有耐心，更加细心，学习更加认真仔细。

友情提示：本文中关于《广东水利电力学院“我爱我班”主题班会总结报告》给出的范例仅供您参考拓展思维使用，广东水利电力学院“我爱我班”主题班会总结报告：该篇文章建议您自主创作。

来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。

《广东水利电力学院“我爱我班”主题班会总结报告》由互联网用户整理提供,转载分享请保留原作者信息,谢谢!
链接地址：http://www.bsmz.net/gongwen/684840.html

• 上一篇：爱国主义教育主题班会总结
• 下一篇：献爱心班会总结