基于PDA施工放样技术探析.docVIP

基于PDA施工放样技术探析【摘要】 本文对施工放样进行理论分析和程序开发。研究了PDA技术以及开发方法，实现PDA与全站仪建立实时通讯及控制，解决放样数据从文件输入，自动判断放样误差。结合工程实例,介绍了基于PDA的施工放样作业方法以及该方法的意义。 【关键词】PDA ， 全站仪， 串口通讯 ，施工放样 【 abstract 】 this paper construction lofting theoretical analysis and program development. The PDA technology and the development of research method, and realize the PDA and real-time communication and tachometer establish control, solve data from the document lofting input, automatic judgment lofting error. Combined with the engineering practice, this paper introduces the construction lofting based PDA practices and the significance of this method. 【 key words 】 PDA, tachometer, serial communication, construction lofting 中图分类号：TU74文献标识码：A 文章编号： 一、概述 PDA(Personal Digital Assistant)是近年来发展迅速的移动式便携计算机，集中了计算、电话、传真和网络等多种功能，不仅可以用来管理个人信息，还可以上网浏览，收发E-mail，发传真，甚至当做手机来用。这些功能都可以通过无线方式实现。同时，它内置强大的嵌入式操作系统，提供串口（USB口）、红外端口同计算机及相关设备（GPS，全站仪等）连接通信，提供内嵌式开发环境用以程序设计，处理GPS、全站仪等测绘设备获得的空间数据，以用于各种民用工程。 二、 PDA技术与全站仪的数据通信 实现PDA用于施工放样最关键是要实现PDA与测量仪器数据通讯。PDA与全站仪之间的通讯，利用Comm控件的查询法实现通讯，具体是通过一个自定义函数CmdOutIn来完成的。函数的定义如下： Function CmdOutIn(CmdOut As String) As String Dim i As Integer, j As Integer, myArray Dim OutData As Variant, Buffer As String On Error Resume Next If Comm.PortOpen = False Then Comm.CommPort = 1 If CSetting = ““ Then Comm.Settings = “9600,N,8,1” Else Comm.Settings = CSetting End If Comm.PortOpen = True End If Comm.RThreshold = 0 j = 0 While j 5 Then MsgBox “通讯失败” Exit Function End If If i 30000 Then Buffer = ““ Comm.Output = OutData i = 0 j = j + 1 End If Loop Until InStr(Buffer, Chr(HD)) Or InStr(Buffer, Chr(H6)) _ Or InStr(Buffer, Chr(H15)) Or Comm.InBufferCount 512 _ Or i 30000 If Buffer = Chr(H6) Then CmdOutIn = “1” j = 10 ElseIf Buffer = Chr(H15) Then CmdOutIn = “-1” Else CmdOutIn = Buffer j = 10 End If j = j + 1 Wend End Function 通过改变参数CmdOut来实现不同的通讯功能。例如在角度测量时，通过以“Ee” vb