廣東水利電力學院“我愛我班”主題班會總結報告

“我愛我班”主題班會總結報告

為了培養(yǎng)學生集體榮譽感和責任感，形成強大的班級凝聚力。加深學生對班級管理的參與意識，從而激發(fā)同學們的主人翁熱情。學會與同學們和睦相處，使班級形成和諧、溫馨、團結向上的氛圍，從而團結同學，共同進退，共創(chuàng)輝煌，引導學生努力爭創(chuàng)優(yōu)秀班集體,201*年12月10日晚上,市政園林班開展了“我愛我班”的主題班會活動。本次班會活動得到了學生會評委、師兄師姐和同學們的高度評價。

當天，在我們邁入活動課室時，可以發(fā)現(xiàn)，空中懸掛著五顏六色的氣球，四周用彩帶裝飾一新，黑板上寫著醒目的班會主題－－“我愛我班”，為了配合班會中的表演，桌椅也重新布置了一翻，讓人有一種喜慶的感覺。

等兩位學生會評委代表及我們的兩位師兄師姐入座后，本次班會在主持人激昂的宣布下正式開始。首先由班長給大家介紹了我們班的現(xiàn)況，解讀了市政園林專業(yè)的開設意義。本次班會以時間為線索，用幻燈片的形式與大家一起分享了從開學到現(xiàn)在，3個多月里，大家一起走過的日子。軍訓、中秋游園、新生杯籃球賽，一路走來，我們有歡聲和笑語，也有汗水和淚水。在這個大家庭里，我們一起學習，一起生活，一起成長，慢慢的由一名高中生轉變成真正意義上成熟的大學生。此時，在我的腦海里，跟大屏幕里播放的幻燈片一樣，閃過這些日子里我們在一起的點點滴滴

在班會的“回想錄”中還穿插了幾個好玩的互動游戲，其中“大家一起聽聽看”更是將班會推向了高潮，主持人播放一段由我們班同學用方言錄制的聲音，由大家來“憑音辨人”。從游戲中我們可以看出，在這說長不長，說短不短的三個月里，大家已經從陌生到認識再到了解，現(xiàn)在已經可以“憑音辨人”了。說明同學們可以在學習生活中融洽相處，成為好同學，好朋友。

在不知不覺中，班會已經接近尾聲，最后由班長上臺總結，并帶領同學們一起宣誓：“我們相信，我們的未來一定是輝煌的，我們的明天一定是最棒的，我們絕對不會讓對我們寄予厚望的人們失望，因為我們是市政工程系的新起之秀”。洪亮的誓言讓在場的所有人都為之振奮，本次主題班會到此圓滿結束。

班級的凝聚力是班級存在的必要條件，也是使班級發(fā)揮潛能的催化劑。凝聚力離不開人與人之間相互認識、相互信任、相互尊重、相互理解、相互協(xié)作以及真誠的愛。雖然凝聚力說起來很虛，看不見又摸不著，但它卻總能讓班級以外的其他人真切感受到，也能讓身處這個班級的成員共同進步，時刻煥發(fā)出屬于這個班的特殊氣質。而集體活動是最能培養(yǎng)學生的凝聚力、集體榮譽感的了。本次主題班會也不例外，從策劃到會場的布置，大家分工合作，相信團結就是力量，才有了今天班會的成功的舉辦。在此，要感謝所有有參與到這個班會的同學們，感謝他們對班集體無償?shù)姆瞰I。

馬克思說：“人的生活離不開友誼，但要得到真正的友誼是不容易的。友誼需要忠誠去播種，有熱情去澆灌，用諒解去護理。”可以肯定的說，本次主題班會活動的開展對培養(yǎng)同學們的集體榮譽感，形成班級凝聚力，對推動同學之間的了解起到了積極的作用。相信，在今后的學習生活中，同學們會更加融洽，集體會更加和諧，園林班將是同學們和諧的集體溫馨的家。

廣東水利電力職業(yè)技術學院12市政園林班鄒世鵬201*年12月20日

擴展閱讀：廣東水利電力職業(yè)技術學院Visual Basic課程設計報告書-樣本

VB編程實訓報告

工程測量技術專業(yè)

課程設計報告書

VB編程實訓報告

課程名稱：VB語言與測量程序設計課程設計題目：角度計算程序

課程設計日期：201*年6月20號學生姓名：11黃國新27溫友銀班級：10計測（1）班指導教師：李建

VB編程實訓報告

課程設計成績評定

小組成果自我評定：□優(yōu)□良□中□及格□不及格

序號姓名123黃國新溫友銀學號1127角色組長組員具體承擔的任務界面設計，代碼編寫界面設計，代碼編寫自評分成績8585教師評語：教師簽名：

VB編程實訓報告

目錄

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

1.1編寫角度測量計算程序的意義和目的......................................11.2角度測量計算程序的開發(fā)語言............................................12角度測量計算程序的主要功能.................................................1

2.1主要功能..........................................................12.2角度測量的作業(yè)方法...................................................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概述

角度計算程序主要針對角度測量中的測量數(shù)據(jù)進行計算，主要對水平角和豎直角的數(shù)據(jù)的計算，和一些角度的弧度的換算，坐標方位角以及三角高程測量計算等進行一系列的計算。

1.1編寫角度測量計算程序的意義和目的

編寫角度測量計算程序有助于加深理解和掌握角度測量的操作步驟及計算方法，并且可以嚴格按照測量的精度要求對測量數(shù)據(jù)進行檢測，提高測量成果的準確度，同時該程序也有利于工程現(xiàn)場技術人員工程及時檢查測量數(shù)據(jù)。

1.2

角度測量計算程序的開發(fā)語言

角度測量計算程序使用VisualBasic6.0編程語言開發(fā)。VisualBasic6.0編程語言具有方便，便捷等特點，主要體現(xiàn)為：界面整潔美觀給人一種溫馨的感覺，程序操作人性化等。

2角度測量計算程序的主要功能

2.1主要功能

角度測量計算程序主要能實現(xiàn)以下功能：

(1)水平角的盤左，盤右的讀數(shù)求解半測回值和一測回值，并且對盤左，盤右讀數(shù)的限差進行檢查，若超限則進行提示.

(2)豎直角的盤左，盤右的讀數(shù)求解指標差和豎直角的角度，并且對盤左，盤右讀數(shù)的限差進行檢查，若超限則進行提示.

(3)角度弧度換算的互換，可以進行角度換弧度或弧度進行換角度，方便使用者操作。（4）用已知兩點的坐標計算，可以求得兩點之間的距離和兩點連線的方位角。（5）三角高程測量計算，可以用已知儀器高，目標高，尺間隔和豎直角，可以求得平距和高差。

VB編程實訓報告

2.2角度測量的作業(yè)方法(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"除數(shù)為零，請檢查坐標輸入是否正確！�。。�！"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編程中，代碼編寫是最重要的一個環(huán)節(jié)，所以在編寫中每一步都要認真的核對和理解。

（3）在VB編程中，在核心功能的技術處理的最關鍵是會在錯誤中，找出錯誤的關鍵所在，從而找出自己錯誤地方和解決的對策。

（4）在VB編程中，界面處理也是一個關鍵，關鍵是要使得界面整潔.、美觀|，使人看起來精神一振，神清氣爽的感覺.

5.2困難與解決途徑

(1)在編寫代碼的時候是最容易出現(xiàn)了困難的，不是對代碼的不理解，就是在編寫的時候沒有注意把代碼寫錯。

(2)在VB編程中，我們遇到困難的時候，一般都會就去翻書看看是哪里出錯了；如果實在是找不出就去問同學；問同學再不行就會去問我們的指導老師。

(3)我們在編寫完代碼的運行的時候，出現(xiàn)了故障，結果我們仔細的檢查和對書本的核對后，是我們忘記了變量的聲明。

5.3程序擴展解決思路

首先，我們應該先明確我們要擴展的方向，然后，對我們進行擴展的具體步驟和方法，最后，在根據(jù)實際的情況來實行我們程序的擴展。從而，使得我們的程序在界面上更加的美觀、整潔，使用上更加的快捷和簡單明了。

VB編程實訓報告

6結語

通過這周的實訓，我們兩才是真真正正的接觸VB編程，實訓不僅使我們學到了知識，

也幫助我們縮小了實踐和理論的差距，通過這次實訓讓我們更深一步的對VB這門課程的知識有更進一步的渴望，同時對自己的專業(yè)，對自己的能力，對自己所學的有正確的認識，并且能在以后的學習工作中不斷提高和完善自己。

參考文獻

[1]龔沛曾.《VB程序設計簡明教程（第二版）》，高等教育出版社，201*.8[2]

[3]《VisualBasic課程設計案例精編》中國水利水電出版社佟彪等編著[4]《VisualBasic使用大全》

VB編程實訓報告

《VB語言與測量程序設計》課程設計

個人總結

黃國新(100313111)

萬事開頭難，實訓的第一天，我們接到任務時，我們感到一頭霧水，不知道如何開展工作，但慢慢聽老師講，我們慢慢可以開始展開工作了。雖然我們小組只有兩個人，但我們的成果不比別人差，我們計劃好每一步要怎么走。在編程的過程中我們同樣的遇到了好多問題，一個小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學了點簡單的vb程序編寫，我很后悔沒有嘗試過自己編寫過程序。所以在做項目的時候我們倍感壓力、更加的團結協(xié)作，可即使如此我們還是出現(xiàn)了錯誤，我們的程序在編寫上存在一些漏洞，導致調試時不能正常運行，后經過老師的指導、我們的調整，終于可以完美的運行，這里也耽誤了我們很多寶貴的時間，直接導致了我們在項目調試上速度不夠快。在這里我們也麻煩了好多同學，特別是老師。感謝他們的幫助、、、

我們嘗試過做四等水準計算，我們花了兩天在這個上面，我們錯的太多了，有由于時間的緊迫，我們只好放棄了。代碼我們真的含不明白，我們也很慚愧，我們在這周實訓中也學到不少東西，我們改成了做角度計算，總的來說，這次實訓還是比較成功的。最

后出來的結果，我們兩都很有成就感，這是我們一步步設計、一步步完善、辛苦付出后得到的成果。實訓不僅使我們學到了知識，也幫助我們縮小了實踐和理論結合的重要性，通過這次實訓讓我們兩好好復習了上課時沒聽到的東西，再次感謝幫助我們兩的同學們和老師，感謝你們給以的幫助、、、

通過這次實訓，讓我懂得了在接下來的VB課程里，要好好掌握老師講授的每一個要點。

VB編程實訓報告

《VB語言與測量程序設計》課程設計

個人總結

溫友銀(100313127)

在課程設計過程中，雖然我對程序設計不是很熟悉，但是通過老師詳細的講解，我按照步驟去做，遇到問題的時候先自己想辦法解決，解決不了的就去問同學，問老師，通過這種學習，收獲很大，學會了自己解決棘手問題，知道了團結的力量。

第一次，在上機課的時候，我根據(jù)老師講的，在機房里做了一次，但沒有做完。于是把東西存在了自己的MP3里面，以便以后上機的時候再來做。但真的沒有想到，我的MP3，在一次上電子閱覽室的時候，忘了拔了。于是乎，我辛辛苦苦做了一大節(jié)課的程序就這樣沒了。心里真的很不舒服，但是，不舒服歸不舒服，這個程序，還是得繼續(xù)做下去，這么以點點小小的失誤不算什么，然后跑到學校機房，繼續(xù)我的VB程序設計。但由于時間問題，做的還是有點粗糙，還是不免存在一定的問題，比如說開始的時候打開不了文件，總是出現(xiàn)錯誤，自己總也找不出來，后來請教了一下同學，結果發(fā)現(xiàn)時代碼的編寫出現(xiàn)了錯誤，把代碼改過來之后，程序終于可以打開運行了。然后，檢查的時候，又發(fā)現(xiàn)“查找”運行錯誤，又是代碼那里出現(xiàn)的黃色的字樣，結果發(fā)現(xiàn)，是代碼拼寫錯誤，于是，拿著同學的代碼對比一下，發(fā)現(xiàn)了錯誤所在之地，然后更正了過來。經過一番努力，程序終于做完了。

后來，室友看了我的程序，她說運行不了的，就是出現(xiàn)了錯誤，出現(xiàn)了錯誤，就應該改過啊，這時的我才恍然大悟�！笆清e誤，那么就要改正的！”于是當天，我就去了學校機房，再一次運行我的程序，仍然出現(xiàn)錯誤情況，需要調試，我回憶起上課的時候，老師是怎么跟我們講的，哪里出現(xiàn)了錯誤，需要怎么樣改正。于是，我就耐著性子，一個一個，一個一個得改正，編輯代碼，一個一個得檢查，終于完成了。完成之后，我在運行一下，一切正常，心里終于舒了一口氣。經過這次的VB程序設計，讓我知道了更多學習的方法。具體如下：(1)保持良好的學習心態(tài)，第一，要有自信，自強，積極主動學習.第二，克服畏難情緒，樹立學好程序設計的信心(2)要了解概念：VB程序設計本身并不復雜，變量，函數(shù)，條件語句，循環(huán)語句等概念較多.要真正能進行程序設計，就要深入理解這些概念.應該重視概念的學習.

總之，在此次的VB程序設計中，如果沒有足夠的耐心，就不可能完成的很好。所以此次VB程序設計，讓我做事情更加有耐心，更加細心，學習更加認真仔細。

友情提示：本文中關于《廣東水利電力學院“我愛我班”主題班會總結報告》給出的范例僅供您參考拓展思維使用，廣東水利電力學院“我愛我班”主題班會總結報告：該篇文章建議您自主創(chuàng)作。

來源：網絡整理 免責聲明：本文僅限學習分享，如產生版權問題，請聯(lián)系我們及時刪除。

《廣東水利電力學院“我愛我班”主題班會總結報告》由互聯(lián)網用戶整理提供,轉載分享請保留原作者信息,謝謝!
鏈接地址：http://www.hmlawpc.com/gongwen/684840.html

• 上一篇：愛國主義教育主題班會總結
• 下一篇：獻愛心班會總結