vb实验报告.docx
- 文档编号:15296921
- 上传时间:2023-07-03
- 格式:DOCX
- 页数:16
- 大小:333.99KB
vb实验报告.docx
《vb实验报告.docx》由会员分享,可在线阅读,更多相关《vb实验报告.docx(16页珍藏版)》请在冰点文库上搜索。
vb实验报告
VB程序设计
专业:
测绘工程
班级学号:
1102601-33
编写人:
杨军富
指导老师:
唐争气
日期:
2013.12.15
实验一:
用户登录
1.实验目的和要求
设计一个用户登录窗口界面,实现模拟用户登录系统时的各种情况。
2.实验内容及过程
1.能够输入用户名和密码;
2.原始的用户名和密码用代码编写。
3.当单击“登录”按钮后,能够对输入的用户名和密码进行验证,若输入的用户名和密码与编写的代码相符,显示“恭喜你密码正确”;用户名或密码错误时,系统自动提醒“账号密码错误”,并给与三次操作机会,如超过三次,程序自动退出。
3.部分代码
PrivateSubCommand1_Click()
StaticaAsInteger
IfText1.Text="123"AndText2.Text="123"Then
MsgBox"恭喜你密码正确"
Else
MsgBox"帐号密码错误"
a=a+1
Ifa=3Then
MsgBox"3次出现错误,程序将自动退出"
End
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Text2.PasswordChar="*"
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Text2.SetFocus
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Command1.Enabled=True
Command1.Visible=True
Command1.SetFocus
EndIf
EndSub
PrivateSubTimer1_Timer()
Labe3.Top=Label3.Top+100
EndSub
4.运行界面
五.心得体会
对vb操作有一个简单的认识,了解了简单的模拟登陆系统。
实验二:
导线
1.实验目的和要求
用vb程序将各点展在窗体上,并连接成导线
2.实验内容及过程
先将点的坐标用代码编写出来,应用print语句显示在窗体上,再用line语句将各点连接起来
三.部分代码
PrivateSubCommand1_Click()
CurrentX=1900:
CurrentY=2000
Print"1"
CurrentX=1800:
CurrentY=4000
Print"2"
CurrentX=4000:
CurrentY=8000
Print"3"
CurrentX=8000:
CurrentY=2500
Print"4"
Line(2000,2000)-(2000,4000)
Line(2000,4000)-(4000,8000)
Line(4000,8000)-(8000,2500)
Line(8000,2500)-(2000,2000)
CurrentX=1500:
CurrentY=3000
Print"2000"
CurrentX=2300:
CurrentY=6000
Print"4472.136"
CurrentX=6000:
CurrentY=5250
Print"6800.735"
CurrentX=5000:
CurrentY=2000
Print"6020.797"
EndSub
4.运行界面
五.心得体会
对vb界面的熟悉,更是对测量知识的一个加深记忆,能在vb窗口上进行简单的设计。
实验三:
度分秒转换
一·实验目的和要求
角度和弧度之间的换算是测量学中经常用到的计算。
由于一般测量仪器观测得到的值都是度分秒形式,而vb的三角函数用弧度进行计算,因此有必要设计角度和弧度换算的程序。
在输入时,将度分秒的形式化为弧度表示,为程序计算做准备;在输出时,将弧度换算成度分秒形式,以利于显示输出。
2.实验内容及过程
设一个角用角度表示为A(度),弧度表示为R(弧度),程序需要4个文本框分别输入显示度数、分数、秒数、以及弧度值,相应有5个辅助说明标签,还有2个命令按钮触发角度弧度换算事件。
另外设计一个清零按钮和一个退出按钮。
3.部分代码
Dima%,b%,c%,d#
Constpi=3.14159265
PrivateSubCommand1_Click()
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
PrivateSubCommand2_Click()
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
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
四.运行界面
五.心得体会
对vb界面的更深认识和了解,对角度和弧度的转换有了更深的印象。
实验四:
测量平差软件
一·实验目的和要求
1.熟悉vb开发环境,掌握vb程序设计步骤
2.理解基本概念:
工程、窗体、属性、事件、方法
3.熟悉窗口使用
2.实验内容及过程
1.创建应用程序界面
2.设置窗体和控件的属性
3.编写代码
4.运行和调试应用程序
3.部分代码
PrivateSubLabel1_Click()
Label1.Caption="欢迎进入此页面"
EndSub
PrivateSubLabel2_Click()
Label2.Caption="湖南城市学院(朝阳校区)"
EndSub
PrivateSubLabel3_Click()
Label3.Caption="杨军富"
EndSub
PrivateSubLabel4_Click()
Label4.Caption="2013年12月17日"
EndSub
PrivateSubLabel5_Click()
Label5.Caption="市政与测绘工程学院1102601-33"
EndSub
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left+200
EndSub
4.运行界面
五.心得体会
熟悉vb开发环境,掌握vb程序设计步骤,理解基本概念,对vb的窗体有了更深认识。
实验五:
方位角计算
1.实验目的和要求
由两个已知点的坐标求这两点间的距离和坐标方位角是测量学中经常用到的计算。
现在用vb程序写出方位角的坐标正反算。
2.实验内容及过程
根据公式已知两点间的距离公式如:
SAB=√(XA-XB)^2+(YA-YB)^2
根据两点坐标求方位角的计算公式如下:
Α=tg^-1((yA-yB)/(xA-xB))
3.部分代码
PublicConstpi=3.14159
PublicFunctiondirectAB(XA#,YA#,XB#,YB#)
DimdetX#,detY#,l#
dx=XB-XA:
dy=YB-YA
Ifdx=0Then
Ifdy=0Then
MsgBox("你的起始点与终点为同一点,方位为任意")
ElseIfdy>0Then
directAB=pi/2
Else
directAB=pi*3/2
EndIf
ElseIfdx>0Then
Ifdy>=0Then
directAB=Atn(dy/dx)
Else
directAB=2*pi+Atn(dy/dx)
EndIf
Else
Ifdy>=0Then
directAB=pi+Atn(dy/dx)
Else
directAB=pi+Atn(dy/dx)
EndIf
EndIf
l=Sqr(dx^2+dy^2)
EndFunction
PrivateSubCommand1_Click()
DimXc#,Yc#,Xd#,Yd#
Xc=Text1(0).Text
Yc=Text1
(1).Text
Xd=Text2(0).Text
Yd=Text2
(1).Text
Text3.Text=directAB(Xc#,Yc#,Xd#,Yd#)*180/pi
dx=Xd-Xc:
dy=Yd-Yc
l=Sqr(dx*dx+dy*dy)
Text4.Text=l
EndSub
PrivateSubCommand2_Click()
l=Text4.Text
direct=Text3.Text*pi/180
XA=Text1(0).Text
YA=Text1
(1).Text
dx=l*Cos(direct)
dy=l*Sin(direct)
XB=XA+dx:
YB=YA+dy
Text2(0).Text=XB
Text2
(1).Text=YB
四.运行界面
五.心得体会
对测量知识的复习以及对用vb进行坐标正反算,能更好的掌握测量原理。
实验六:
等水准计算
1.实验目的和要求
用vb程序编写四等水准计算软件
2.实验内容及过程
1.水准测量成果整理
(1)高差闭合差的计算
(2)高差闭合差的分配
(3)转点高程值的计算
2.程序分析和界面设计
(1)输入
(2)计算(3)输出(4)界面设计
3.主窗体的输入
(1)水准路线类型的输入
(2)已知高程的输入
(3)测站数的输入
(4)显示输入窗体
4.输入窗体的输入
距离之和高差值的输入
5.计算和输出
(1)闭合差计算
(2)闭合差分配
3.部分代码
OptionExplicit
DimiMark%'测站计数器
Dimdist!
dH!
PrivateSubcmdCancel_Click()
'清除已经传给主窗体的数据
Dimi%
Fori=1ToiMark
dis(i)=0
detH(i)=0
Nexti
'清除主窗体的显示
frmMain.txtShowResult.Text="水准计算结果:
"
'卸载输入窗体
UnloadMe
EndSub
PrivateSubcmdOK_Click()
dist=Val(txtDist.Text)
dH=Val(txtDetH.Text)
CallAddData(iMark,dist,dH)
'在主窗体显示本站数据
frmMain.txtShowResult=frmMain.txtShowResult&"第"&Str(iMark)&"站:
"&vbCrLf
frmMain.txtShowResult=frmMain.txtShowResult&"距离:
"&dis(iMark)&"高差中数:
"&detH(iMark)&vbCrLf
IfiMark>=nMarksThen'如果已经输入完所有的测站观测值
frmInput.Hide
Else'若还没有输完,初始化输入界面输入下一个测站
txtDist.Text=""
txtDetH.Text=""
txtDist.SetFocus
EndIf
frmInput.Caption="观测数据输入:
第"&Trim(Str(iMark))&"站"
iMark=iMark+1'测站数加1
EndSub
PrivateSubForm_Load()
iMark=1
EndSub
4.运行界面
五.心得体会
用vb进行简单的四等水准计算软件,让我们更好的对vb有更深的了解,对以后更多软件的编写做一个基础。
实验七:
导线简易平差
一.实验目的和要求
用vb程序编写导线简易平差软件
二.实验内容及过程
1.导线的简易计算
2.程序分析
3.界面设计
(1)菜单的设计
(2)文本框和通用对话框的设计
(3)关于窗体
(4)显示输入窗体
4.输入
5.计算和输出
(1)计算起始方位角和终值方位角,得到坐标方位角的理论值
(2)坐标方位角的推算,得到方位角闭合差
(3)检查角度闭合差是否超限,若合格,则分配角度闭合差,从新计算坐标方位角。
(4)根据边长和坐标方位角求坐标增量。
(5)计算边长精度
(6)如果边长精度符合要求,改正坐标增量
(7)计算最后坐标
三部分代码
四.运行界面
五.心得体会
用vb程序编写导线简易平差软件,不仅是对测量平差知识的更深认识,同时我们也掌握了vb界面以及代码的一些基础知识,方便以后的学习。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 报告