Private Sub Comm1_OnComm()
 receivestring = receivestring + Comm1.Input
 If Combo1.Text = "角度" and  Len(receivestring) > 30 Then
 Comm1.PortOpen = False
      For i = 1 To 100
         If Mid(receivestring, i, 1) = "'" Then
            Exit For
         End If
      Next
      Text1.text= Mid(receivestring, i + 1, Len(receivestring) - i + 1)
 End If

 If Combo1.Text = "距离"  and  Len(receivestring) > 37 Then
 Comm1.PortOpen = False
      For i = 1 To 100
         If Mid(receivestring, i, 1) = "*" Then
            Exit For
        End If
      Next
      Text1.text = Mid(receivestring, i + 1, Len(receivestring) - i + 1)
 End If
 If Combo1.Text = "坐标" and Len(receivestring) > 54 Then
 Comm1.PortOpen = False
      For i = 1 To 100
         If Mid(receivestring, i, 1) = "/" Then
            Exit For
        End If
      Next
      Text1.text = Mid(receivestring, i + 1, Len(receivestring) - i + 1)
 End If
End sub
 运行程序，在Combo1中选择角度、距离或坐标测量模式，设置仪器与程序的通讯协议保持一致后点击Command2命令按键即可自动启动测量并接收到测量数据。
3、拓普康其它型号仪器简介
 在程序开发过程中，感到拓普康仪器通讯较为复杂。不同的模式返回的字符串长度是不同的，同一仪器、同一测量模式下不同的设置返回的字符串长度也不同。如拓普康GTS102N仪器，在测距模式下仪器设置为显示0.2mm状态时返回的字符长度为63，在设置显示1mm状态时返回的字符长度为54。另外，GTS601在波特率1200-9600情况下均可实现通讯，但102N波特率只在1200下才能通讯。
尼康DTM452C全站仪与PDA通讯源程序
Private Sub Command1_Click()’设置通讯协议命令按键
程序与徕卡TCA1800基本相同，只是需将原协议更改为“4800,N,8,1”。此处忽略
End Sub

Private Sub Comm1_OnComm()
 receivestring = receivestring + Comm1.Input
 Text1.Text = receivestring
End Sub
 运行程序与徕卡相同。
 经咨询尼康公司技术服务人员，目前该仪器实时传输数据中不带坐标值，只有一种模式。其字符串长为72。其中SD代表斜距，HA代表水平角，VA代表竖直角。若需要保存平距或坐标则需读者根据水平角、斜距和竖直角等进行计算完成。
五、结束语
 　开发适合自身工作特点的PDA程序可以减少工作量，避免手工记录、计算错误，提高工作效率。本次只对徕卡、拓普康和尼康部分系列全站仪进行了通讯开发，并提供相应的源程序，以供编程爱好者参考。期待有更好的其它系列的通讯源程序出现、交流，可以帮助其他人员少走弯路，提高测绘人员的技术水平。

首页 上一页 1 2 下一页 尾页 2/2/2

相关论文