四等水测量.docVIP

平差程序设计 —四等水准测量 一、界面设计 1. 图一：初始界面，显示第一站的默认值。 注：数据来源：《数字册图原理与方法》；P68. 表4-5 四等水准测量观测手薄。 2. 图二：单击“计算”按钮后计算出的第一测站的计算结果。 3. 图三：单击“文件输出”按钮。 图四：将测站1的数据结果全部输出到“输出数据. txt” 4. 图五：单击“下一站”按钮，清空数值，保留“累计视距差”、“累计高差”的值；测站数增加为2；鼠标焦点位于“Text1”（后尺读数—黑面—下丝—文本框）内。 5. 图六：输入第二测站的读数，并通过下拉菜单更改K1、K2的值；单击“计算”按钮后，计算出的第二测站的结果；“累计视距差”、“累计高差”的值为两测站累加值。 6. 图七：单击“文件输出”按钮， 图八：将测站2的数据结果全部添加到“输出数据.txt”文本中。 7.重复步骤4、5、6，直到各测站都计算完毕：并将数据都添加到“输出数据.txt”。 8. 输入数据后,如果超限，则会弹出消息框；单击“确定”按钮，退出消息框。 如：后尺黑红面读数差超限 前后视距累计差超过10m！ 9. 图十八：单击“新建”按钮，清空文本框；测站数为1；鼠标焦点位于“Text1”内。 10. 图十九：单击“退出”按钮，退出程序。 二、vb编码 Dim X(0 To 100) As Single Dim Y(0 To 100) As Single Public Sub clean() 清空 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = Text1.SetFocus 使鼠标焦点在Text1上 End Sub Public Sub start() 起始 Dim i As Integer For i = 0 To 100 X(i) = 0 前后视距差 Y(i) = 0 各站高差中数 Next i End Sub Private Sub Command1_Click() 单击“计算”按钮 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 Zx 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) 后视距 Text12.Text = (e - f) 前视距 Text13.Text = Format((Val(Text11.Text) - Val(Text12.Text)) * 0.1, 0.0) 前后视距差 If Abs((a - b) * 0.1 - (e - f) * 0.1) = 5 Then 前后视距差超限 MsgBox 前后视距差超过5m！, 48, 误差超限 弹出消息框 End If If Abs(c + m - d) 3 Then