基于EVB3.0实现三款全站仪与掌上电脑通讯
唐 彬，霍炀，欧阳小安，高钦强
中冶成工上海五冶检测分公司 201900
Communicative Method of Three Kinds of Total Stations
with PDA Based on EVB3.0
TANG Bin，Huo Yang,Ou Yang Xiao An
The Surveying and Examing Filiale of
MCC Chenggong Shanghai Wuye Construction Co., Ltd
摘要：掌上电脑(PDA)具有存储量大、小巧方便、供电时间长等优点，越来越广泛的被测绘人员采用。掌上电脑采用Windows ce系统，PDA软件在台式机上开发，采用同步软件安装至PDA上运行。PDA与全站仪通讯技术成为软件开发的一个难点。本人编制了三款全站仪通讯程序，供相关人员参考。
关键词：EVB、PDA、通讯
引言
随着计算机技术的发展，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
Private Sub Command2_Click()’根据选择不同的测量模式启动测量 基于EVB3.0实现三款全站仪与掌上电脑通讯(一)相关范文