边长两差改正程序的设计.docVIP

边长两差改正程序的设计 　　[摘要]从《工程测量规范》中对坐标系的规定入手，对平面控制网的坐标系统内的投影长度变形分析，设计了Visual Basic 6.0程序从而计算出合理的测量坐标系的方法。 　　[关键词]坐标系 投影长度变形 计算方法 　　[中图分类号] G354.46 [文献码] B [文章编号] 1000-405X（2014）-5-187-2 　　0引言 　　式中D1为归算到参考椭球面上的测量边改正，其每公里改正后的值；D2为测边在高斯投影面上的改正，其每公里改正后的值；Hm为测量边的平均高度，YM为测量边平均横坐标（减去500公里后），R为参考椭球体在测距边方向截弧的曲率半径（地球半径），单位均为米。 　　1程序设计 　　在WindowsXP平台下启动Visual Basic 6.0程序，在窗体上进行可视化界面设计。编写代码： 　　编写代码： 　　Private Sub Command1_Click（） 　　Form2.Hide 　　Form3.Show 　　End Sub 　　Private Sub Command2_Click（） 　　Form2.Hide 　　Form1.Show 　　End Sub 　　编写代码： 　　Private Sub Command1_Click（） 　　If Option1 Then 　　Form4.Show 　　Else 　　Form3.Hide 　　End If 　　If Option2 Then 　　Form5.Show 　　Else 　　Form3.Hide 　　End If 　　End Sub 　　Private Sub Command2_Click（） 　　Form3.Hide 　　Form2.Show 　　End Sub 　　Private Sub Command1_Click（） 　　Const R As Single = 6378245 　　Dim H1 As Single 　　Dim H2 As Single 　　Dim Hm As Single 　　H1 = Val（Text1.Text） 　　H2 = Val（Text2.Text） 　　Hm = Val（Text3.Text） 　　Text3.Text = Str（（H1 + H2） / 2） 　　Text4.Text = R 　　Text5.Text = （1-Hm/（R+Hm））*10^3-1000 　　Text6.Text = Str（（1 - Hm / （R + Hm）） * 10 ^ 3 - 1000） 　　End Sub 　　Private Sub Command2_Click（） 　　Text1.Text = 　　Text2.Text = 　　Text3.Text = 　　Text4.Text = 　　Text5.Text = 　　Text6.Text = 　　End Sub 　　Private Sub Command3_Click（） 　　Form4.Hide 　　Form3.Show 　　End Sub 　　Private Sub Command4_Click（） 　　Form4.Hide 　　Form6.Show 　　End Sub 　　编写代码： 　　Private Sub Command1_Click（） 　　Const R As Single = 6378245 　　Dim Y1 As Single 　　Dim Y2 As Single 　　Dim Ym As Single 　　Y1 = Val（Text1.Text） 　　Y2 = Val（Text2.Text） 　　Ym = Val（Text3.Text） 　　Text3.Text = Str（Y1 + Y2） / 2 　　Text4.Text = R 　　Text5.Text = （1+Ym^2 /（2*R^2））*10^3-1000 　　Text6.Text = Str（（1 + Ym ^ 2 / （2 * R ^ 2）） * 10 ^ 3 - 1000） 　　End Sub 　　Private Sub Command2_Click（） 　　Text1.Text = 　　Text2.Text = 　　Text3.Text = 　　Text4.Text = 　　Text5.Text = 　　Text6.Text = 　　End Sub 　　Private Sub Command3_Click（） 　　For