Vb编写潮位遥报仪数据接受软件设计与实现.docVIP

Vb编写潮位遥报仪数据接受软件设计与实现 　　摘要：该文介绍了VB开发“遥报仪数据记录器v1”软件编写的原理，通过该软件将潮位遥报仪的原始数据及接收数据的时间及潮位信息一同显示，并可以保存数据中的接受时间，潮位和站台信息，从而减少了使用潮位遥报仪时的工作量。 　　关键词：VB；潮位遥报仪；功能原理 　　中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2018）01-0110-02 　　1 概述 　　局技术中心开发的潮位遥侧系统（岸台）通过水位传感器（超声波或压力式）能自动测量潮位变化，同时经由数传电台构成的无线通讯网络，向各接收机（船台）发送潮位信息。船台只要连接好设备，打开电源就可以直接使用，比人工验潮简单方便。 　　但是潮位遥报仪船台使用时必须要手工记录潮位，加大了外业测量的工作量。潮位遥报仪自带有数据输出接口，通过编写应用程序来接受并记录潮位遥报仪的数据，以减少外业记录的工作量。 　　本程序开发采用由微软公司开发的时间驱动的变成语言VB，它拥有方便的图形用户界面开发工具和控件，程序员可以轻松的使用VB提供的组件创建自己的应用程序，本文介绍的便是Vb编写的“遥报仪数据记录器v1”这个自己编写的小程序用来自动记录潮位。 　　2 潮位遥报仪数据传输方式和数据格式 　　潮位遥报仪采用RS-232串口数据输出。计算机进行串口通信时，必须打开串口并进行初始化后才能开始数据的发送和接收，通信完成后才能开始数据的发送和接受处理，通信完成后应及时关闭串口。 　　VB读取串口数据使用自带的MSCOMM控件。简单设置通讯串口号，通讯参数，通讯状态，就可以直接读取串口数据，使用十分方便。潮位遥报仪的数据通讯参数为：波特率4800bit/s，数据位8bit/s，停止位1bit，检验位，无。 　　潮位遥报仪的数据输出格式如下： 　　“蝌 WHHH0612181710#05+00.79M” 　　以上的数据为例，以“HHH”作为数据判断的符号，后面的06年12月18日17时05分，站台号：05号，潮位0.79M。 　　3 软件系统设计与主要功能 　　本软件是单一功能的应用软件，只能设计一个窗口，如图1。 　　窗口的功能分区为：串口通讯设计（左）功能操作按钮（中），数据显示窗口（右和右下）三大部分。 　　串口通讯设置部分，由于潮位遥报仪的通讯参数已知，所以主要的操作是更改连接设备所用的串口号就可以正常使用了。 　　功能操作区，主要有打开，关闭串口，保存潮位信息等。当软件用来连续工作时，且数据较多时，可以在此处设置只显示部分数据。 　　数据显示窗口，分为上下两个窗口，上面的窗口主要用来显示串口接收到的所有信息，下面的窗口显示经过去除乱码后提取出的有用的潮位信息和相应的接收到信息的时间，输出的数据便是潮位数据显示窗口所显示的信息数据。 　　4 关键技术与算法实现 　　4.1 串口通讯设置中的串口号的确定 　　本软件中参考部分电脑串口相关资料，使用一定的算法将使用的串口编号通过一个combobox的下拉列表显示出来，此部分的程序代码如下[2]； 　　For I= 1 To 100 列出所有可以使用的串口号 　　On Error Resume Next 当运行发生错误时，控件转到下一个循环 　　MSCm Port=I 　　MSComm1.PortOpen=True 　　Select Case Err.Number 　　Case0 　　Commbo5.AddItem“COM”Trim（I） 　　MSComm1 Port Open=False 　　Case 8005 　　MSComm1 Port Open=False 　　End Select 　　Err=0 　　Next 　　4.2 串口数据信息的识别 　　串口数据中有部分有部分乱码数据，所以需要识别出可用的信息：如站台号和潮位值。 　　本软件使用的是查找数据位的标志的方法来识别，如查找到数据中有数据头“HHH”和数据尾“M”的标志时，就截取出中间包括有站台号和潮位的信息数据并显示在数据显示窗口中。 　　详细的代码如下： 　　If InStr（1，r_tide，“HHH”）Then ‘ 判断并取出潮位数据 　　If InStr（1，r_tide，“M”）Then 　　r_data=Mid（r_tide，Instr（1，r_tide，“#”，vb_TextCompare），10） 　　If tide_oldr_data Then’ 只?@示最新数据 　　Text2.Text=text2.Text+Format（Time，“hh：mm：ss”）+“，”+r_data+vbCrLF 　　tide_old=r_