工程测量VB实训个人报告（推荐）由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“工程测量实习个人报告”。
VB实训报告
一、实训目的这次实训具有其特殊性，它是在《GIS与测绘程序开发》课程课堂教学结束之后，在机房集中进行的测绘生产实践性教学，是该课程各项课间实验的综合应用，也是巩固和深化课堂所学知识的必要环节，通过实习，不仅能够了解程序开发的全过程，系统的掌握VB应用程序设计、编译和调试等基本技能，而且可为今后从事专门测绘工作或解决实际工程中的有光测量问题打下基础，还能在文档编写能力、逻辑思维能力和实际工作能力等方面得到锻炼。在实习中应该具有严格认真的科学态度、踏实求是的工作作风、吃苦耐劳的献身精神、团结协作的几天观念。
二、实训要求
小组开发附合或者闭合导线水准（高程）平差2个程序 小组2~3人 自备计算机
三、内容
实训中遇到的问题：在调试阶段遇到很多问题，比如说VB默认的科学计数法，怎么转换成常规的计数法，求助于老师，查询了相关资料，确定是用format(XX，“#”)这个函数句型，但是最终还是没有实现，format用法太多了，只有将label标签拉长，让他全部显示完。
在写代码的时候，忘了定义变量，在调试的时候经常提示未定义函数。代码写入的时候排版应按格式来。
最开始的时候保存没有将工程保存完整，后面加载的时候不能加载到form窗体。VB中的窗体设计修改后不能进行撤销，有几次改动时忘保存了，后面就只有重新画窗体。
闭合导线水准平差设计
1、窗体设计（闭合导线）
在窗体设计的时候，参照以给的闭合导线平差范例，结合自己的数据，进行窗体的设计 例如点号，观察角等等表格行，都应用一个label标签只是index不同，同理，观察角 label34（0）label34（1）label34（2）label34（3）label34（4），其中包括了
Form2窗体通过以下这段代码呼出 Private Sub Command2_Click()Form2.show 1 End sub2、代码设计（闭合导线）
以下这是本小组设计的程序代码，和对一些代码的用法解释 Const PI As Double = 3.1415926（定义常量PI）
Private Sub Command1_Click()
（command1单击函数）
Dim dx, dy
（定义程序中所要用的变量）
Dim DS As Double, hb As Double, bhc As Double, bhcSecend As Double, xA1 As Double, yA1 As Double
Dim fw1 As Double, fw2 As Double, fw3 As Double, fw4 As Double, fw5 As Double
Dim fx As Double, fy As Double, A1A2 As Double, b1 As Double Dim fs As Double, qhs As Double, qhx As Double, qhy As Double
DS = Val(Trim(Text7.Text))+ 1
If DS
（IF结构条件语句总点数小于2时，会弹出对话框提示
MsgBox “未知点个数错误！”, vbExclamation, “提示”
“未知点个数错误”）
Exit Sub End If
xA1 = Val(Trim(Text1.Text))
（将text的文本值赋给相应变量）
yA1 = Val(Trim(Text4.Text))
A1A2 = Val(Trim(Text3.Text))
Label34(1).Caption = Text6.Text
（将text的文本值赋给标签名称）观察角值
Label34(2).Caption = Text8.Text
Label34(3).Caption = Text9.Text
Label34(4).Caption = Text10.Text
Label34(5).Caption = Text11.Text
Label5(0).Caption = Text3.Text
fw1 = DEG(Val(Trim(Text6.Text)))
（将text的文本值赋给相应变量和标签）
fw2 = DEG(Val(Trim(Text8.Text)))
fw3 = DEG(Val(Trim(Text9.Text)))
fw4 = DEG(Val(Trim(Text10.Text)))
fw5 = DEG(Val(Trim(Text11.Text)))
hb = DMS(Val(fw1 + fw2 + fw3 + fw4 + fw5))
Label36.Caption = Val(hb)
bhc = Val(DSVal(fw1 + fw2 + fw3 + fw4 + fw5)
bhcSecend = DMS(Val(bhc)/ 5)
（DMS函数为将度转换为度分秒的格式）
Label37(0).Caption = Val(bhcSecend)
（改正数值）
Label37(1).Caption = Val(bhcSecend)
Label37(2).Caption = Val(bhcSecend)
Label37(3).Caption = Val(bhcSecend)
Label37(4).Caption = Val(bhcSecend)'
去掉科学计数法格式（注释）
Label37(5).Caption = DMS(Val(bhc))* 10000
Label38(1).Caption = Val(Label34(1).Caption)+ Val(Label37(0).Caption)
Label38(2).Caption = Val(Label34(2).Caption)+ Val(Label37(1).Caption)
Label38(3).Caption = Val(Label34(3).Caption)+ Val(Label37(2).Caption)
Label38(4).Caption = Val(Label34(4).Caption)+ Val(Label37(3).Caption)
Label38(5).Caption = Val(Label34(5).Caption)+ Val(Label37(4).Caption)
Label5(0).Caption = Text3.Text
Label5(5).Caption = Text3.Text
fw = DEG(Val(Label5(0).Caption))
For ir = 1 To 4
（for循环，数组ir在取1到4的值时所对应其他
b1 = DEG(Val(Label38(ir)))
值的变化）
hb = 0
hb = hb + b1
fw = fw + b1 + 180
If fw > 360 Then
（IF结构条件语句，各边方位角的计算）
fw = fwVal(qhx)* Label39(ir).Caption / Val(qhs))
Label45(ir).Caption = Val(Label41(ir).Captiond1)* 100)
d3 = ded2 / 100
DEG = sign *(d1 + d2 / 60 + d3 / 0.36)End Function
Function DMS(de As Double)As Double
Dim sign As Double, d1 As Double, d2 As Double
sign = Sgn(de)
de = Abs(de)
d1 = Int(de)
d2 =(ded3 * 60
DMS = sign *(d1 + d3 / 100 + d4 / 10000)End Function
三角高程平差设计
1、窗体设计（高程）
2、代码设计（高程）
Private Sub Command1_Click()
Dim ir As Double, HA As Double, HD As Double, i As Double（定义变量）
HA = Val(Trim(Text7.Text))
（将高程值赋于相应变量）
HD = Val(Trim(Text10.Text))
（trim为去掉左右空格）
Label4(1).Caption = Text1.Text
（将距离值赋于相应标签名称）
Label4(2).Caption = Text2.Text
Label4(3).Caption = Text3.Text
Label4(4).Caption = Val(Trim(Text1.Text))+ Val(Trim(Text2.Text))+ Val(Trim(Text3.Text))
（求距离之和）
Label5(0).Caption = Text4.Text
（将高差中数赋于相应标签名称）
Label5(1).Caption = Text5.Text
Label5(2).Caption = Text6.Text
Label5(3).Caption = Val(Trim(Text4.Text))+ Val(Trim(Text5.Text))+ Val(Trim(Text6.Text))
（求高差中数之和）
Label5(3).Caption = Format(Label5(3), “######.###”)
（规定格式）format句型
Label6(3).Caption = Val(Label5(3).Caption)+ HA-HD
Text8.Text = Label6(3).Caption
For i = 0 To 2
（for循环求高差中数改正数）
Label6(i).Caption =-Val(Label4(i + 1))/ Val(Label4(4).Caption)* Val(Label6(3).Caption)
Next i
For i = 0 To 3
Label7(i).Caption = Val(Label5(i).Caption)+ Val(Label6(i).Caption)
Next i
Label8(0).Caption = HA
（求高程）
Label8(1).Caption = HA + Label7(0).Caption
Label8(2).Caption = HA + Label7(0).Caption + Label7(1).Caption
Label8(3).Caption = HA + Label7(0).Caption + Label7(1).Caption + Label7(2).Caption
End Sub
Private Sub Command2_Click()Form2.Show 1
（弹出form2窗口）End Sub
Private Sub Command3_Click()End
（退出）End Sub
四、心得体会
为期两周的VB实习结束了，在这短短的两周，我学到了很多知识，更掌握了新的技能。，更让我对VB有了更深一步的掌握，同时也发现了许多自己在学习方面的不足，取长补短，互相学习，共同进步，同时，我也认识到自己还有很多的知识上的盲点，我们不但学习了知识，还懂得了彼此组员之间应该团结互助，更好的证明了实践是检验真理的唯一标准。培养和提高我们的实际操作和应用能力。
这次的设计是自己第一次全面接触软件的制作过程。以前仅仅是对软件的开发有一个大体的印象，通过这次的课程设计，我对软件的开发有了切身的体会。软件并不像我原来所想的那样十分神秘，而是有着一个相对固定的模式和流程。我们只要按照这个模式和流程，就能够比较规范的完成一个软件的制作。软件的制作是一个系统的工程，需要我们掌握多方面的知识。在这次课程设计中，我觉得自己的知识面还是有欠缺的。需要在以后的学习中加以注意，要全面的提高自己的知识面与知识层次。
在学习VB后，具体的是使我们熟悉并使用各种类和各种VB控件的应用，在编写程序的过程中我们还专门编写了注释以便于修改程序！这些内容使我们更加熟练的应用这门语言，给自己以后能够走上工作岗位打下良好的基础！在编写程序的时候也遇到了很多难懂的问题，有的是实践能力差，有的是对书本上的内容太过于模糊，有的是什么也不知道，当中有说不出口的味道。不过通过这次的实训使我的VB应用能力得到大幅度提高，从以前的糊到运用自如，从不知道到知道等等，一切都变的清楚简单。善于学习和总结，勤于思考，做之前多想想，多向有经验的请教，能帮你降低风险、减少投入、少走弯路，做的时候心里也才有底；做好之后再来想想就是总结，就是经验和教训。有些事只有亲自动手体会了才知道其中的道理，不是口里什么知道一到实际中却又茫然。无论什么都有其自己的规律。通过这次对VB的程序设计和运行，初步掌握了VB程序的规律和设计方法，并从运行时的错误中对VB有了更深一步的了解。
不过，还要继续努力，更要懂得把理论和实践联系起来，学到更多的知识，我相信自己一定可以学好的。
多动手勤动脑，这样才能
西 京 学 院工程测量实训总结报告院、系： 工程技术系 学科专业： 建筑工程管理 学 生： 郭建忠 学 号： 1005102011 指导教师： 陈克凡 2011年 06月23日（一）实训准备 1，实训时间：2011年6......
工程测量实训报告随着个人的文明素养不断提升，大家逐渐认识到报告的重要性，报告具有语言陈述性的特点。那么你真正懂得怎么写好报告吗？下面是小编收集整理的工程测量实训报告，仅......
刀豆文库小编为你整合推荐6篇工程测量实训报告，也许这些就是您需要的文章，但愿刀豆文库能带给您一些学习、工作上的帮助。......
刀豆文库小编为你整合推荐6篇工程测量实训报告，也许这些就是您需要的文章，但愿刀豆文库能带给您一些学习、工作上的帮助。......
工程测量实训报告......
