引言
随着计算机技术的发展,PDA具有存储量大、小巧方便、供电时间长等优点,越来越广泛的被测绘人员采用。目前市场上也有成熟的PDA测绘软件,但这些软件都较为昂贵,更为重要的是商业软件并不一定能满足自身工作的需要。编制适合自身工作的PDA软件已成为测绘编程人员的共识。
查阅了一些测绘期刊,大多数采用C++来开发PDA通讯程序,大多对关键部分点到为止。笔者采用eMbedded Visual Basic 3.0编制了徕卡1800、拓普康GTS601、尼康DTM452C全站仪的PDA通讯程序,调试通过并在Hp iPAQ 2400掌上电脑上运行。有感于资料收集的艰难,编程的艰辛,特将通讯部分源程序提供EVB编程爱好者,供大家参考与交流。
徕卡TCA1800全站仪与PDA通讯源程序
Private Sub Command1_Click()’设置通讯协议命令按键
Comm1.Settings = “4800,e,7,1”
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End If
Comm1.RThreshold = 1
Comm1.InBufferCount = 0
End Sub
Private Sub Comm1_OnComm()
Dim i, tb
receivestring = receivestring + Comm1.Input
Comm1.InBufferCount = 0
If Len(receivestring) > 126 Then
tb = receivestring
receivestring = ""
For i = 1 To 100
If Mid(tb, i, 6) = "11...." Then
Exit For
End If
Next
Text1.text = Mid(tb, i, Len(tb) - i + 1)
End If
End sub
运行程序后首先点击Command1设置协议按键,设置仪器与程序的通讯协议保持一致,按仪器的测量键和保存键即可接收到测量数据。本程序在TCA1800、T1610+DI2002上调试通过。经本程序处理后的源数据字符为一定长,读者可根据相关索引提取相应的数值。
拓普康GTS601全站仪与PDA通讯源程序
1、几个测量模式的指令
拓普康仪器与徕卡、尼康仪器不同之处在于PDA必须向仪器发送相关测量指令,仪器接收到指令后进行测量并传输数据。各种不同的测量模式返回的字符串长度是不同的。测角模式指令为“Z10091”,测平距模式指令为“Z44090”,测坐标模式的指令为“Z64088”,启动测量指令为“C067”。
2、源程序
Private Sub Command1_Click()’设置通讯协议命令按键
程序与徕卡TCA1800相同,此处略
End Sub