测绘程序设计教案VB版第十一章.docx
- 文档编号:3601045
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:215
- 大小:70.61KB
测绘程序设计教案VB版第十一章.docx
《测绘程序设计教案VB版第十一章.docx》由会员分享,可在线阅读,更多相关《测绘程序设计教案VB版第十一章.docx(215页珍藏版)》请在冰豆网上搜索。
测绘程序设计教案VB版第十一章
第十一章演示源程序
§11-1VB6.0测量程序菜单总体演示
VERSION5.00
BeginVB.FormForm1
Caption="Form1"
ClientHeight=3195
ClientLeft=165
ClientTop=855
ClientWidth=7545
LinkTopic="Form1"
ScaleHeight=3195
ScaleWidth=7545
StartUpPosition=3'窗口缺省
BeginVB.MenuWYJL
Caption="外业记录"
BeginVB.MenuSZCLJL
Caption="水准测量观测记录"
BeginVB.MenuPTSZJL
Caption="普通水准记录"
End
BeginVB.MenuSDSZJL
Caption="四等水准记录"
End
End
BeginVB.MenuSPFXJL
Caption="水平方向观测记录"
BeginVB.MenuJ6FXGCJL
Caption="J6方向观测法记录"
End
BeginVB.MenuJ6CHFJL
Caption="J6测回法记录"
End
BeginVB.MenuLZF6
Caption="-"
End
BeginVB.MenuJ2FXGCJL
Caption="J2方向观测法记录"
End
BeginVB.MenuJ2CHFJL
Caption="J2测回法记录"
End
End
End
BeginVB.MenuNYJS
Caption="内业计算"
BeginVB.MenuZBZS
Caption="坐标正算"
End
BeginVB.MenuZBFS
Caption="坐标反算"
End
BeginVB.MenuLZF1
Caption="-"
End
BeginVB.MenuJSPC
Caption="近似平差"
BeginVB.MenuJHDD
Caption="交会定点"
BeginVB.MenuCJDSJXZJS
Caption="测角单三角形之计算"
End
BeginVB.MenuCJQFJH1ZJS
Caption="测角前方交会1之计算"
End
BeginVB.MenuCJQFJH2ZJS
Caption="测角前方交会2之计算"
End
End
BeginVB.MenuJWYDXJSPC
Caption="经纬仪导线近似平差"
End
BeginVB.MenuDSJSJSPC
Caption="单三角锁近似平差"
End
BeginVB.MenuXXSJSPC
Caption="线形锁近似平差"
End
BeginVB.MenuLZF2
Caption="-"
End
BeginVB.MenuDDSBXJSPC
Caption="大地四边形近似平差"
End
BeginVB.MenuZDDBX1JSPC
Caption="中点多边形1近似平差"
End
BeginVB.MenuZDDBX2JSPC
Caption="中点多边形2近似平差"
End
BeginVB.MenuBWJSPC
Caption="半网近似平差"
End
BeginVB.MenuLZF3
Caption="-"
End
BeginVB.MenuDYSZLXJSPC
Caption="单一水准路线近似平差"
BeginVB.MenuBHSZLXJSPC
Caption="闭合水准路线近似平差"
End
BeginVB.MenuFHSZLXJSPC
Caption="附合水准路线近似平差"
End
BeginVB.MenuZSZLXJSPC
Caption="支水准路线近似平差"
End
End
End
BeginVB.MenuYMPC
Caption="严密平差"
BeginVB.MenuSZWYMPC
Caption="水准网严密平差"
End
BeginVB.MenuSJGCWYMPC
Caption="三角高程网严密平差"
End
BeginVB.MenuLZF4
Caption="-"
End
BeginVB.MenuDXWYMPC
Caption="导线网严密平差"
End
BeginVB.MenuLZF5
Caption="-"
End
BeginVB.MenuCJSJWYMPC
Caption="测角三角网严密平差"
End
BeginVB.MenuCBSJWYMPC
Caption="测边三角网严密平差"
End
BeginVB.MenuBJTCSJWYMPC
Caption="边角同测三角网严密平差"
End
End
End
BeginVB.MenuSGFY
Caption="施工放样"
BeginVB.MenuJZBFDWFYYSZJS
Caption="极坐标法点位放样元素之计算"
End
End
BeginVB.MenuGSTY
Caption="高斯投影"
BeginVB.MenuGJLQ3DDDH
Caption="根据一点经度求3度投影带带号"
End
BeginVB.MenuGJLQ6DDDH
Caption="根据一点经度求6度投影带带号"
End
BeginVB.MenuLZF7
Caption="-"
End
BeginVB.MenuHDJS
Caption="换带计算"
BeginVB.MenuY3DDD3DD
Caption="由3度带到3度带"
End
BeginVB.MenuY3DDD6DD
Caption="由3度带到6度带"
End
BeginVB.MenuLZF8
Caption="-"
End
BeginVB.MenuY6DDD3DD
Caption="由6度带到3度带"
End
BeginVB.MenuY6DDD6DD
Caption="由6度带到6度带"
End
End
End
BeginVB.MenuFFBH
Caption="分幅编号"
BeginVB.MenuYBYBWBLC
Caption="1:
100万比例尺"
End
BeginVB.MenuYBSWBLC
Caption="1:
10万比例尺"
End
BeginVB.MenuYBYWBLC
Caption="1:
1万比例尺"
End
BeginVB.MenuLZF9
Caption="-"
End
BeginVB.MenuGJYFTTHQQZWBFTTH
Caption="根据一幅图图号求其周围八幅图图号"
End
End
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
OptionExplicit
PrivateSubform_load()
Rem*****此为第一个窗体Form1.frm*****
Form1.Height=Screen.Height:
'****设置窗体高占整个屏幕
Form1.Width=Screen.Width:
'****设置窗体宽占整个屏幕
Form1.Left=0:
'*****设置窗体位置距离屏幕左端的距离值为零
Form1.Top=0:
'*****设置窗体位置距离屏幕上端的距离值为零
EndSub
PrivateFunctionNNN(NMAsDouble,BBAsInteger)AsDouble
Rem*****奇进偶舍函数(新版),2002/8/2****
Rem*****NM为需要奇进偶舍的变量,BB为NM这个变量需要保留的小数点后面的位数*****
Rem*****分别用NM=PI()、BB=1、2、......
Rem*****NM=1.2225、BB=3
Rem*****NM=1.2235、BM=3来验证该FUNCTION过程的正确性*****
DimBNMAsDouble
DimCAsInteger
DimJAsInteger
DimKAsInteger
DimIAsDouble
C=Sgn(NM)
BNM=Abs(NM)
I=(BNM*10^(BB+1)+10^(-11))-10*Fix(BNM*10^BB+10^(-11))
I=(Fix(I*10^10))/10^10
J=Fix(BNM*10^BB+10^(-11))-10*Fix(BNM*10^(BB-1)+10^(-11))
IfI>5Then
K=1
ElseIfI<5Then
K=0
ElseIf(I=5AndJ=2*Fix(J/2))Then
K=0
Else
K=1
EndIf
NNN=C*Fix(BNM*10^BB+K)/10^BB
EndFunction
PrivateFunctionPI()AsDouble
Rem******计算值*****
PI=4*Atn
(1)
EndFunction
PrivateSubPTSZJL_Click()
Rem*****普通水准记录(演示)*****
DimAAsInteger
DimIAsInteger
PrintSpc(6);"PI=";PI()
Rem*****分别用NM=PI的值、BB=1、2、......
Rem*****NM=1.2225、BB=3
Rem*****NM=1.2235、BM=3来验证该FUNCTIONNNN(NM,BB)过程的正确性*****
ForA=1To15
IfA<=9Then
I=10
ElseIfA>=10Then
I=9
EndIf
PrintSpc(6);A;Spc(I);"NNN=";NNN(PI(),A)
NextA
EndSub
Rem*****VB中三个取整函数的用法*****
Rem*****INT(X):
返回小于或等于X的第一个(负)整数*****
Rem*****FIX(X):
截断X小数点右边的所有位,返回小数点左边的值*****
Rem*****CINT(X):
通过小数部分的四舍五入,将X转换为整数*****
Rem*****注意:
在上述各取整函数中,X为必需参数,应为双精度数据或任何有效的数值表达式*****
Rem*****举例如下:
*****
Rem*****CINT(45.449)=45*****
Rem*****CINT(-2.89)=-3*****
Rem*****FIX(45.67)=45*****
Rem*****FIX(-2.89)=-2*****
Rem*****INT(45.67)=45*****
Rem*****INT(-2.89)=-3*****
Rem*****取整函数FIX(X)与INT(X)之间的关系式如下:
*****
Rem*****FIX(X)=SGN(X)*INT(ABS(X))*****
Rem*****测量程序中常使用FIX(X)函数*****
§11-2演示用Image控件Picture属性装入
一个图片后,满屏显示的实现方法
VERSION5.00
BeginVB.FormForm1
Caption="演示用Image控件Picture属性装入一个图片后,满屏显示的实现方法"
ClientHeight=3105
ClientLeft=60
ClientTop=435
ClientWidth=4680
FillColor=&H000000FF&
LinkTopic="Form1"
Picture="Form1.frx":
0000
ScaleHeight=3105
ScaleWidth=4680
StartUpPosition=3'窗口缺省
BeginVB.CommandButtonCommand2
Appearance=0'Flat
BackColor=&H80000016&
Caption="退出"
BeginPropertyFont
Name="华文新魏"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=495
Left=9720
TabIndex=1
Top=7320
Width=1215
End
BeginVB.CommandButtonCommand1
Appearance=0'Flat
Caption="继续"
BeginPropertyFont
Name="宋体"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=495
Left=6720
TabIndex=0
Top=7320
Width=1215
End
BeginVB.LabelLabel2
Alignment=2'Center
AutoSize=-1'True
BackStyle=0'Transparent
Caption="高平和编2001年9月25日"
BeginPropertyFont
Name="宋体"
Size=21.75
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FF00FF&
Height=870
Left=3480
TabIndex=3
Top=5760
Width=6450
WordWrap=-1'True
End
BeginVB.LabelLabel1
AutoSize=-1'True
BackStyle=0'Transparent
Caption="测量平差计算程序"
DragMode=1'Automatic
BeginPropertyFont
Name="华文新魏"
Size=72
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
ForeColor=&H000000FF&
Height=1470
Left=240
TabIndex=2
Top=1800
Width=11520
End
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
OptionExplicit
PrivateSubCommand1_Click()
'*****用鼠标左键点击“继续”按钮,则进入该子过程。
这时,可组织其它功能调用,完善程序的各项功能*****
Form1.ScaleMode=0:
'*****初始化绘图坐标系的坐标单位
Form1.ScaleMode=6:
'*****设置绘图坐标系的坐标单位以毫米为单位
Line(0,0)-(210,145),RGB(255,2550,255),BF
ForeColor=&HFF&:
'*****设置下面显示字符串的颜色
Form1.FontSize=16:
'*****设置下面显示字符串的大小
CurrentX=1:
'*****在指定的位置显示字符串,CurrentX为横坐标,CurrentY为纵坐标
CurrentY=60
PrintSpc(6);"这是一个用Image控件Picture属性装入一个图片后,满屏显示的演示程序。
"
EndSub
PrivateSubCommand2_Click()
UnloadMe
'End:
'*****退出系统
EndSub
PrivateSubForm_Load()
'*****以下演示用Image控件Picture属性装入一个图片后,满屏显示的实现方法*****
Form1.ScaleMode=1:
'*****设置窗体坐标系
Form1.Height=Screen.Height:
'*****设置窗体高占整个屏幕高
Form1.Width=Screen.Width:
'*****设置窗体宽占整个屏幕宽
Form1.Left=0:
'*****设置窗体位置距离屏幕左端的距离值
Form1.Top=0:
'*****设置窗体位置距离屏幕上端的距离值
EndSub
§11-3演示一个工程包含两个窗体
按要求依次显示的实现方法
VERSION5.00
BeginVB.FormForm1
Caption="演示用Image控件Picture属性装入一个图片后,满屏显示的实现方法"
ClientHeight=3105
ClientLeft=60
ClientTop=435
ClientWidth=4680
FillColor=&H000000FF&
LinkTopic="Form1"
Picture="Form1.frx":
0000
ScaleHeight=3105
ScaleWidth=4680
StartUpPosition=3'窗口缺省
BeginVB.CommandButtonCommand2
Appearance=0'Flat
BackColor=&H80000016&
Caption="退出"
BeginPropertyFont
Name="华文新魏"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=495
Left=9720
TabIndex=1
Top=7320
Width=1215
End
BeginVB.CommandButtonCommand1
Appearance=0'Flat
Caption="进入"
BeginPropertyFont
Name="宋体"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=495
Left=6720
TabIndex=0
Top=7320
Width=1215
End
BeginVB.LabelLabel2
Alignment=2'Center
AutoSize=-1'True
BackStyle=0'Transparent
Caption="高平和编2001年9月25日"
BeginPropertyFont
Name="宋体"
Size=21.75
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FF00FF&
Height=870
Left=3480
TabIndex=3
Top=5760
Width=6450
WordWrap=-1'True
End
BeginVB.LabelLabel1
AutoSiz
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 测绘 程序设计 教案 VB 第十一
![提示](https://static.bdocx.com/images/bang_tan.gif)