VB实习报告实习报告
一、前言
实习时间
2012年12月21——12月26日
实习地点
杨凌职业技术学院南校区机房
实习目的
1、熟练掌握VisuaBasic语言的语法规则,VisualBasic程序调试一般方法和技巧,并能利用VisuaBasic语言实现简单程序的设计。
2、掌握基本的模块设计与实现数据文件读写、人机界面设计等;
3、熟练运用测量平差及程序设计知识,编写测量程序;
4、进一步巩固《VB程序设计》课程中所学到的知识,熟练掌握并综合运用所学的编程技巧。
实习要求
保持学习态度端正,尽量完善作业达到高质量高数量的作业
二、...
实习
一、前言
实习时间
2012年12月21——12月26日
实习地点
杨凌职业技术学院南校区机房
实习目的
1、熟练掌握VisuaBasic语言的语法规则,VisualBasic程序调试一般方法和技巧,并能利用VisuaBasic语言实现简单程序的设计。
2、掌握基本的模块设计与实现数据文件读写、人机界面设计等;
3、熟练运用测量平差及程序设计知识,编写测量程序;
4、进一步巩固《VB程序设计》课程中所学到的知识,熟练掌握并综合运用所学的编程技巧。
实习要求
保持学习态度端正,尽量完善作业达到高质量高数量的作业
二、实习任务及内容
1、进入主界面面应有登陆界面,类似于“学生成绩查询系统”界面。
2、设计并实现系统的主界面,界面的名称可以自己取,比如测量程序集等
3、编辑如下列表内容:
一级菜单
二级菜单
角度计算
水平角计算
竖直角计算
角度与弧度转换
坐标计算
坐标正算
坐标反算
坐标方位角推算
极坐标放样数据计算
多边形面积与周长计算
距离计算
距离相对误差计算
视距测量计算
高程计算
三角高程计算
闭合水准路线计算
导线计算
附合导线计算
地形图分副与编号
地形图分副与编号
帮助
三、实习过程
编辑主界面
打开VB在form1中添加“用户名”、“密码”、“登陆”、“帮助”控件,以及修改对应的名称,并编辑如图所示的代码:
右单击窗体添加,并添加窗体
;在Visual Basic中,是通过菜单编辑器建立和管理菜单的,其打开方式为:在工具→菜单编辑器中;对form2进行一级、二级菜单编辑,并注意一级菜单和二级菜单的区别
主窗体:
接下来对各个二级菜单中的程序进行编辑:
1、进行对闭合水准路线计算的界面设置如下
点击“输入测站数及测站数”按钮输入基本信息,在点击计算,就和已在界面上显示出计算结果;
分别双击各个按钮进行编程:
2、对于地形图分幅与编号,围绕其核心公式:
Lw=(Z-31)*6°+(d-1) ΔL
Le=Lw+ΔL
Bs=(H-1)*4°+(4°/ΔB -c) ΔB
Bn= Bs+ΔB
其代码为:
3、角度弧度转换:
输入角度的各项数值,点击“角度->弧度”就和显示出弧度值,同理也可实现弧度到角度的转换
4、距离相对误差计算:
5、三角高程界面设置及代码:
根据《地形测量》理论知识所知,在界面中需设置如图所示的控件,在输入已知数据框中输入数值,有核心计算公式h=Dtan(α)+i-V即可算出高差,所以在编写代码时围绕其核心公式进行编程:
6、视距测量:
视距测量分为平整场地和倾斜场地的视距,故有如下设计
视距测量计算同三角高程测量很类似,在此不作过多解释其代码如下:
7、角度计算:
角度是空间点与点相互关系的基本量之一,也是测量的基本量之一。测量角度的目的是为了确定地面点的相互位置关系。角度测量包括两方面的内容:一是水平角测量,二是竖直角测量。水平角用于确定地面点的平面位置,竖直角用于确定地面点的高程,针对此进行如下设置:
a、水平角;
b、竖直角:
8、坐标计算
地形平面控制测量要确定控制点的平面坐标,就必须建立一个平面坐标系统。测量上采用的平面坐标系统是经过高斯投影得到的高斯平面直角坐标系,其计算过程涉及到方位角推算、坐标正算、坐标反算等一些基本计算。
a、坐标正算是由起始坐标、两点间的平距及坐标方位角计算得来:
Xb=Xa+Sab*Cosαab
Yb=Ya+ Sab*Sosαab
由此即可对坐标正算进行编程:
b、坐标反算是根据起点和终点的坐标,计算直线的水平距离和坐标方位角;
Rab=arctan(|Δy|/|Δx|)
Sab=ㄏ((Δy)^2+(Δx)^2)
坐标反算界面设置及编程:
C、方位角推算即由已知方向和相关水平夹角推算直线的坐标方位角;如下图,在工程中输入沿直线前进方向的起始方位角、以起始方向为基准,顺时针到待求直线的夹角,就可推算出待求直线的方位角:
到此为止所需编辑的二级菜单下的工程全部结束,接下来将这些所有的二级下的工程关联在界面主窗体下,这样在主窗体中可实现对所有工程的集中应用。
打开界面工程,在右边窗体中将所有的工程加载进去;然后在form2的代码编辑栏中对加载进来的工程进行关联:
本次实习内容到此结束,希望在以后的学习生活中有一个好的收获!
实习心得
《VB测量程序设计》实训是地信测绘专业必修的一门实践课程。本实训课程的任务是让学生在学习了《Visual Basic程序设计》课程后,能够熟练掌握所学的知识,并能加以综合运用,解决测绘专业实际问题的能力,避免重复性工作,提高工作效率,充分发挥计算机编程语言在测绘工作中的作用。
为期一个星期的VB实习已经结束,在这些天的实习过程中,收获的确不小,熟练的掌握了VB并综合运用所学的编程技巧。时间匆匆转眼间,我们已经完成实习的任务。然而,这次实习让我学习了很多东西,也让我发现了自己的很多不足。通过本次实习,不仅使我在理论上对VB程序设计有了进一步认识,而且在实践能力上也得到了提高,真正的做到了学以致用,亲身感受到理论与实际的相结合,对我来说受益匪浅。我相信这次实训对于我以后的学习、工作都会有很大的帮助。
这次实训的内容是测量基本用算程序的编写,根据地形测量的基本原理,编写代码完成各个程序的计算。在编辑过程中,需要对程序进行多次调试,直至能正确显示结果为止;在实训过程中还必须做到以下几点:
1、必须详细准确的做好用户需求分析,否则做出的东西可能与用户的要求相差甚远。本系统的用户需求分析就不太详细,只是凭自己的浅显知识来做的,因此有许多疏漏。
2、虚心请教,是我此次顺利完成课题的关键,学习别人的先进技术和思想,补己之短,才能开发好软件。
3、通过本次设计,端正了我的学习态度,提高了实践能力。使我认识到应该以严谨的科学态度勇于去实践和探索。
通过这次实习,使我对VB有了更深刻的了解和认识,也是我对以后的VB学习有了信息和兴趣。这次实习使我进一步了解对vb设计的方法和一些小技巧,还有各种控件的使用与实现,都比以前操作更熟练了。但是我还需要继续努力,要更懂得把理论和实践联系起来,才能学到真正的学以致用
这次VB程序系统设计既是一个学习的过程,也是一个实际工作的过程,它使我获得了一些开发系统的经验。但是,由于本人技术水平十分有限,而且在相对来说比较短的时间内不可能进行充分的准备和设计,因此感到有些遗憾和失望,在系统的功能和完善性方面,还存在着很大的不足,相信在以后的学习生活中,定能提高我的水平,为自己撑起一片天!
系名:交通与测绘工程学院
班级:地信11001班
姓名:王莹周
学好:11040630110
附录:
闭合水准路线代码:
Dim a As Integer, b As Double
Dim n() As Double
Dim h() As Double
Dim h0() As Double
Dim h1() As Double
Private Sub Command1_Click()
frontsize = 12
b = InputBox("请输入已知高程")
a = InputBox("请输入测站数")
ReDim n(a, 2)
For i = 1 To a
n(i, 2) = InputBox("请输入观测高差")
Next i
End Sub
Private Sub Command2_Click()
ReDim h(a)
ReDim h1(a)
ReDim h0(a)
s = 0
Print Tab(15); "观测高差"; Tab(25); "实测高差"; Tab(35); "改正数"; Tab(45); "改正高差"; Tab(55); "高程"
For i = 1 To a
h(i) = n(i, 2)
s = s + h(i)
Next i
f1 = Format(-(s / a), "000.0000")
f = (Int(f1 * 1000 + 0.5)) / 1000
For i = 1 To a
h1(i) = h(i) + f
h0(i) = b + h1(i)
Print Tab(15); n(i, 2); Tab(25); h(i); Tab(35); f; Tab(45); h1(i); Tab(55); h0(i)
Next i
guancegaocha = 0: gaocha0 = 0: gaocha1 = 0
Print
For i = 1 To a
guancegaocheng = guancegaocheng + n(i, 2)
gaocha0 = gaocha0 + h(i)
gaocha1 = gaocha1 + h1(i)
Next i
Print "总和"; Tab(15); guancegaocheng; Tab(25); gaocha0; Tab(35); f; Tab(45); gaocha1
End Sub
Private Sub Command3_Click()
Cls
End Sub
Private Sub Command4_Click()
Unload bhszlxjs26
End Sub
视距测量代码:
Const pi As Double = 3.149
Private Sub Command1_Click()
Dim ss, xs As Double
ss = Val(Text2)
xs = Val(Text3)
Text4 = Trim(Str(ss - xs))
Text5 = Label23 * (ss - xs)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
本文档为【VB实习报告】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。