测绘程序设计教案VB版第十一章Word文件下载.docx
《测绘程序设计教案VB版第十一章Word文件下载.docx》由会员分享，可在线阅读，更多相关《测绘程序设计教案VB版第十一章Word文件下载.docx（215页珍藏版）》请在冰豆网上搜索。
BeginVB.MenuLZF6
-"
BeginVB.MenuJ2FXGCJL
J2方向观测法记录"
BeginVB.MenuJ2CHFJL
J2测回法记录"
BeginVB.MenuNYJS
内业计算"
BeginVB.MenuZBZS
坐标正算"
BeginVB.MenuZBFS
坐标反算"
BeginVB.MenuLZF1
BeginVB.MenuJSPC
近似平差"
BeginVB.MenuJHDD
交会定点"
BeginVB.MenuCJDSJXZJS
测角单三角形之计算"
BeginVB.MenuCJQFJH1ZJS
测角前方交会1之计算"
BeginVB.MenuCJQFJH2ZJS
测角前方交会2之计算"
BeginVB.MenuJWYDXJSPC
经纬仪导线近似平差"
BeginVB.MenuDSJSJSPC
单三角锁近似平差"
BeginVB.MenuXXSJSPC
线形锁近似平差"
BeginVB.MenuLZF2
BeginVB.MenuDDSBXJSPC
大地四边形近似平差"
BeginVB.MenuZDDBX1JSPC
中点多边形1近似平差"
BeginVB.MenuZDDBX2JSPC
中点多边形2近似平差"
BeginVB.MenuBWJSPC
半网近似平差"
BeginVB.MenuLZF3
BeginVB.MenuDYSZLXJSPC
单一水准路线近似平差"
BeginVB.MenuBHSZLXJSPC
闭合水准路线近似平差"
BeginVB.MenuFHSZLXJSPC
附合水准路线近似平差"
BeginVB.MenuZSZLXJSPC
支水准路线近似平差"
BeginVB.MenuYMPC
严密平差"
BeginVB.MenuSZWYMPC
水准网严密平差"
BeginVB.MenuSJGCWYMPC
三角高程网严密平差"
BeginVB.MenuLZF4
BeginVB.MenuDXWYMPC
导线网严密平差"
BeginVB.MenuLZF5
BeginVB.MenuCJSJWYMPC
测角三角网严密平差"
BeginVB.MenuCBSJWYMPC
测边三角网严密平差"
BeginVB.MenuBJTCSJWYMPC
边角同测三角网严密平差"
BeginVB.MenuSGFY
施工放样"
BeginVB.MenuJZBFDWFYYSZJS
极坐标法点位放样元素之计算"
BeginVB.MenuGSTY
高斯投影"
BeginVB.MenuGJLQ3DDDH
根据一点经度求3度投影带带号"
BeginVB.MenuGJLQ6DDDH
根据一点经度求6度投影带带号"
BeginVB.MenuLZF7
BeginVB.MenuHDJS
换带计算"
BeginVB.MenuY3DDD3DD
由3度带到3度带"
BeginVB.MenuY3DDD6DD
由3度带到6度带"
BeginVB.MenuLZF8
BeginVB.MenuY6DDD3DD
由6度带到3度带"
BeginVB.MenuY6DDD6DD
由6度带到6度带"
BeginVB.MenuFFBH
分幅编号"
BeginVB.MenuYBYBWBLC
1：
100万比例尺"
BeginVB.MenuYBSWBLC
10万比例尺"
BeginVB.MenuYBYWBLC
1万比例尺"
BeginVB.MenuLZF9
BeginVB.MenuGJYFTTHQQZWBFTTH
根据一幅图图号求其周围八幅图图号"
End
AttributeVB_Name="
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<
K=0
ElseIf（I=5AndJ=2*Fix（J/2））Then
Else
EndIf
NNN=C*Fix（BNM*10^BB+K）/10^BB
EndFunction
PrivateFunctionPI（）AsDouble
Rem******计算值*****
PI=4*Atn
（1）
PrivateSubPTSZJL_Click（）
Rem*****普通水准记录（演示）*****
DimAAsInteger
DimIAsInteger
Print
PrintSpc（6）;
"
PI="
;
PI（）
Rem*****分别用NM=PI的值、BB=1、2、......
Rem*****NM=1.2235、BM=3来验证该FUNCTIONNNN（NM,BB）过程的正确性*****
ForA=1To15
IfA<
=9Then
I=10
ElseIfA>
=10Then
I=9
A;
Spc（I）;
NNN="
NNN（PI（）,A）
NextA
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属性装入
一个图片后，满屏显示的实现方法
演示用Image控件Picture属性装入一个图片后，满屏显示的实现方法"
ClientHeight=3105
ClientLeft=60
ClientTop=435
ClientWidth=4680
FillColor=&
H000000FF&
Picture="
Form1.frx"
:
0000
ScaleHeight=3105
ScaleWidth=4680
BeginVB.CommandButtonCommand2
Appearance=0'
Flat
BackColor=&
H80000016&
退出"
BeginPropertyFont
Name="
华文新魏"
Size=12
Charset=134
Weight=400
Underline=0'
False
Italic=0'
Strikethrough=0'
EndProperty
Height=495
Left=9720
TabIndex=1
Top=7320
Width=1215
BeginVB.CommandButtonCommand1
继续"
宋体"
Left=6720
TabIndex=0
BeginVB.LabelLabel2
Alignment=2'
Center
AutoSize=-1'
True
BackStyle=0'
Transparent
高平和编2001年9月25日"
Size=21.75
ForeColor=&
H00FF00FF&
Height=870
Left=3480
TabIndex=3
Top=5760
Width=6450
WordWrap=-1'
BeginVB.LabelLabel1
测量平差计算程序"
DragMode=1'
Automatic
Size=72
Height=1470
Left=240
TabIndex=2
Top=1800
Width=11520
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
这是一个用Image控件Picture属性装入一个图片后，满屏显示的演示程序。
"
PrivateSubCommand2_Click（）
UnloadMe
End:
*****退出系统
PrivateSubForm_Load（）
*****以下演示用Image控件Picture属性装入一个图片后，满屏显示的实现方法*****
Form1.ScaleMode=1:
*****设置窗体坐标系
*****设置窗体高占整个屏幕高
*****设置窗体宽占整个屏幕宽
*****设置窗体位置距离屏幕左端的距离值
*****设置窗体位置距离屏幕上端的距离值
11-3演示一个工程包含两个窗体
按要求依次显示的实现方法
进入"
AutoSiz
升级会员 