- 博客(0)
- 资源 (5)
空空如也
vb水准测量代码
Dim imarks%
Private Sub form_load()
imark = 1
End Sub
Private Sub cmdcancel_Click()
Dim i%
For i = 1 To imark
dis(i) = 0: deth(i) = 0
Next i
frmmain.txtshow.Text = "水准计算结果"
Unload Me
End Sub
Private Sub cmdok_Click()
dist = Val(txtdist.Text): dh = Val(txtdeth.Text)
Call adddata(imark, dist, dh)
Public Sub adddata(imark As Integer, dist As Single, dh As Single)
dis(imark) = dist: deth(imark) = dh
frmmain.txtshow.Text = frmmain.txtshow.Text & "第" & Str(imark) & "站:" & vbCrLf
frmmain.txtshow.Text = frmmain.txtshow.Text & " & 距离:" & dis(imark) & " 高差中数:" & deth(imark) & vbCrLf
If imark >= nmarks Then
frminput.Hide
Else
txtdist.Text = "": txtdeth.Text "": txtdist.setfoucs
End If
frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站"
imark = imark + 1
frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站"
End Sub
Private Sub cmdcheckcalc_Click()
Dim totaldeth!, closedeth!, tdist#, i%
End Sub
Private Sub optannex_Click()
txtendpoint.Enabled = optannex.Value
End Sub
Private Sub optclose_Click()
txtendpoint.Enabled = Not optclose.Value
End Sub
Private Sub optspur_Click()
txtendpoint.Enabled = Not optspur.Value
End Sub
Dim startpoint!, ENDPOINT!
Private Sub txtendpoint_LostFocus()
If Not IsNumeric(txtendpoint.Text) Then
MsgBox "输入的高程含有非数字字符!"
txtendpoint.Text = "": txtendpoint.SetFocus
Exit Sub
End If
If Val(txtendpoint.Text) > 5000 Or Val(txtendpoint.Text) < -100 Then
MsgBox "输入的高程有误!"
txtendtpoint.Text = "": txtendtpoint.SetFocus
Exit Sub
End If
ENDPOINT = Val(txtendtpoint.Text)
End Sub
2012-12-13
RTK定位理论及其应用研究
RTK定位理论及其应用研究,目前,RTK技术已广泛地应用于测绘行业,并随着科技的发展,硬软件的发展,它的应用领域还在不断扩展。集计算机网络管理技术、Internet技术、无线通讯技术和GPS定位技术于一身的网络技术的出现更是使的高精度GPS定位技术渗透到社会的各个方面,极大的扩展了它的应用范围。网络RTK已成为学者研究的一个热点。本文对RTK的测量原理,系统组成,误差来源及削弱方法,网络RTK技术的工作原理和系统组成进行了介绍。并对网络RTK的代表VRS和基于VRS技术的CORS系统进行了介绍。
关键字:RTK、网络RTK、虚拟参考站、连续运行卫星定位服务系统
2012-12-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人