四等水准测量报告.doc.docVIP

2009-2010学年第1学期 平差程序设计报告 课 程 号：024003 学 号班 级：07级测绘工程2班 姓 名：蔡地 成 绩： 2010年 1 月 5 日 实验名称：四等水准测量测站计算 实验目的：接合课上所学知识和以前的数字测图知识，设计程序来实现四等水准测量测站计算（可进行几个测站的各要素计算，并输出到文件）。 设计思路 输入后尺前尺8个数据，并按照要求设置尺长常数。然后需要算出后视距、前视距、后距差、每站高差及总高差。误差提示用msgbox函数显示。因为输入的数据按习惯是mm单位的，但结果是m来显示的，所以要注记单位。按钮的设计要满足数据计算的需要，比如计算是算本测站的，下一站的数据要累积上一站的数据，清除是在数据输入错误的时候清除用的，打开输出文件可以直接打开保存数据的文本，退出即可退出程序。 四、设计过程 1、设计界面 然后修改各文本框及标签的属性等，根据数据要求设置。然后调整字体颜色等，增加可视化效果。便于检验，附初始值。 2、编写代码并调试过程 点计算按钮后，结果如下图 点击下一站后，测站数变为2，其它清空 视距差和总高差是需要累积的，所以不要清空。若点清除按钮除了测站数都会清空，重新输入。 输入下一站数据后,如有误差，则会有误差提示。 点退出按钮，即退出程序。 3,代码 Dim x(0 To 500) As Single Dim y(0 To 500) As Single Dim z(0 To 500) As Single Public Sub clear() 清零过程 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text11.Text = Text12.Text = Text14.Text = End Sub Public Sub first() End Sub Dim i As Integer For i = 0 To 100 x(i) = 0 视距差 y(i) = 0 每站高差 z(i) = 0 累计差 Next End Sub Public Sub sideng() Dim a As Single 后尺 黑面上丝 Dim b As Single 后尺 黑面下丝 Dim c As Single 后尺 黑面中丝 Dim d As Single 后尺 红面中丝 Dim e As Single 前尺 黑面上丝 Dim f As Single 前尺 黑面下丝 Dim g As Single 前尺 黑面中丝 Dim h As Single 前尺 红面中丝 Dim m As Single 后尺 尺长常数 Dim n As Single 前尺 尺长常数 Dim Zy As Single 总高差 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) e = Val(Text5.Text) f = Val(Text6.Text) g = Val(Text7.Text) h = Val(Text8.Text) m = Val(Combo1.Text) n = Val(Combo2.Text) Text11.Text = (a - b) * 0.1 后视距 Text12.Text = (e - f) * 0.1 前视距 If Abs((a - b) * 0.1 - (e - f) * 0.1) = 5 Then MsgBox 视距差超限, , 误差超限 End If If Abs(g + n - h) 5 Then MsgBox 误差超限:后尺黑红面高差之差超过5mm, , 误差显示 End If If Abs(c + m - d) 5 Then MsgBox 误差超限:前尺黑红面高差之差超过5mm, , 误差显示 End If If m n Then T