四等水准测量报告.doc(5)

测量实习报告

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

Text14.Text = (((c - g) + (d - h)) - 100) / 2 / 1000

Else:

Text14.Text = (((c - g) + (d - h)) + 100) / 2 / 1000 End If End Sub

Private Sub Command1_Click() Form1.sideng '调用四等

x(Text9.Text) = Val(Text11.Text) - Val(Text12.Text) z(Text9.Text) = z(Text9.Text - 1) + x(Text9.Text) y(Text9.Text) = Val(Text14.Text)

For n = 1 To Val(Text9.Text) '计算总高差 Zy = Zy + y(n) '总高差 Zx = Zx + x(n) '总视距差差 Next n

Text13.Text = Zx Text15.Text = Zy

If Zx > 5 Then MsgBox "视距差超过5m", , "视距差超限" '如果视距差大于5，则以提示框显示 视距差大于5m

Open "c:\123.txt" For Append As 1

Write #1, "经测站" & n - 1 & "测得高差为" & Text15.Text Close 1