03测图控制测量 - 1全站仪三维导线布设和实的施 数据通讯.ppt

测绘工程教研室 四、通信程序的设计 2）利用Visual Basic中MSComm控件实现SOKKIA全站仪串口通讯示例 启动Visual Basic 6.0，通过Components引用，将MSComm控件添加到工具箱（toolbox）内，这样就可以利用该控件进行串行通信程序的设计。 ①开启一个新的VB项目，并于窗体上安排一个MSComm控件，作为串行 通讯的信道。 ②安排一个Label控件，在其Caption属性填入“**接收区**”，作为提醒使 用者之用。 ③安排一个文本框，对应到接收区，作为接收讯息的显示区域。 ④安排两个按纽，在其Caption属性内分别填入“测量”与“结束”，作为执 行此两个命令的按键。 程序源代码如下： 测绘工程教研室 程序源代码如下： Private Declare Sub Sleep Lib kernel32 (ByVal dwmilliseconds As Long) 声明 Private Sub Form_Load( ) MSComm1.CommPort = 1 设置通信端口为Com1 If MSComm1.PortOpen = False Then MSComm1.Settings = 1200,n,8,1 设置串行通信协议 MSComm1.PortOpen = True 打开串行端口 End If …… MSComm1.OutBufferCount = 0 清空发送缓冲区 MSComm1.InBufferCount = 0 清空接收缓冲区 MSComm1.RThreshold = 1 一旦外界传送字符串，随即引发事件 End Sub Private Sub MSComm1_OnComm () Select Case MSComm1.CommEvent Case comEvCD CD线的状态发生变化 Case comEvCTS CTS线的状态发生变化 Case comEvDSR DSR线的状态发生变化 Case comEvRing Ring Indicator变化 Case comEvReceive 收到RThreshold个字符 txtReceive.Text = txtReceive.Text + Trim(MSComm1.Input) Case comEvSend 传送缓冲区有Sthreshold个字符 End Select End Sub Private Sub Send_Click() MSComm1.Output = chr(17)+ chr(13) 发送测量命令 Sleep (50) 适当延时 End Sub Private Sub Endsoft_Click() MSComm1.PortOpen = False 关闭串行端口 End End Sub END ! 数字测图 测绘工程学院 Principle and Methods of Digital Mapping 数字测图原理及方法 数据通讯 测绘工程教研室 §4.6 数据通讯 一、 数据通讯的基本概念 1、数据信息的表示 2、数据通讯方式 3、同步传输与异步传输 4、数据信息的校验 5、数据传输的应答方式 6、数据传输速度 7、终止符(换行标志) 二、全站仪的数据通讯方式 三、全站仪通讯参数的设置 四、全站仪的数据格式及控制指令格式 五、通信程序的设计 测绘工程教研室 数据通讯是把实现数字信息的处理、传输、接收和存储，并对信息流加以控制、校验和管理的一种通讯形式。 数字测图的数据通讯是指数据采集设备（全站仪、GPS接收机等）、图形输出设备与计算机（包括PDA）间的数据处理与传输。本节主要介绍全站仪与计算机间的数据通讯。 数据通讯 测绘工程教研室 1 . 数据信息的表示 数据通讯所要传输的信息是由一系列字母和数字组成的。而沿着传 输线传送时，信息以电信号形式传送。因此，实际上先要把传送的字符信息转换为二制形式，再把二进制信息转换为一系列离散的电子脉冲信号，用于表示二进制信息。 用二进制来表示字母、数字和一些特殊符号，国际上