基于VB+60局域网监控软件的设计

第０７卷２００７盎第１０期

１０月

中国水运

ｃｈｉｏａＷａｔｅｒＴｒａｎｓｐｏｒｔ

ＶｏＩ．７Ｎｏ．１０

Ｏｃｔｏｂｅｒ２００７

基于ＶＢ６．０局域网监控软件的设计

陈俊

摘要：本文以北京华晟高科过程控制实验系统Ａ３０Ｃ＠为对象，介绍了数据采集与监控系统的原理和实现方法，着重讨论了基于ｖＢ６．０局域网监控软件的设计实现。实际运行表明，该系统运行稳定可靠，数据传送实时性强。

关键词，数据采集与监控系统服务器／客户端远程监控

中图分类号：ＴＰ３９３．１文献标识码：Ａ文章编号；１００６－７９７３（２００７）１０－０１５４－０２

一、系统总体架构

本系统ｒｈ＝个部分组成，第一部分是通过组态王对Ａ３０００系统进行控制。第二部分是蛆态王与ＶＢ进行数据的交换，第三部分是ＶＢ程序将收到的数据发送到与其连接的各个客户端中．使得客户端能够实时监测到现场部分的实际情况。该系

图１系统结构图

＝、ｖＢ与组态王的连接

由于组态王不支持直接对低级设备（如串口）进行操作，所以组态软件和ＶＢ之间的通信不能直接实现，必须利甩ＤＤＥ协议来实现ｏ

ＤＤＥ（ＤｙｎａｍｉｃＤａｔａＥｘｃｈａｎｇｅ）即动态数据交换，它是Ｗｉｎｄｏｗｓ支持的兰种内部通信机制之一，是应用程序间通过共享内存进行进程问通信的一种形式。应用程序间进行数据交换称为哙话“（Ｃｏｎｖｅｒｓａｔｉｏｎ），申请会话端叫客户（Ｃｆｉｅｎｔ），响应申请端叫服务器（Ｓａ－ｖｅｒ）．一旦客户与服务器间建立起ＤＤＥ所需的数据链路就可自动进行数据交换?在本系统中则主要是使用ＶＢ访问组态壬，并向组态王请求数据

图２ＶＢ访问组态王流程图

三、局域网程序

对于远程客户端部分，利甩ＶＢ做了一个口ｅ文件。安装运行后，只要输入ＩＰ和姓名，再点选连接，即可与服务器端相连，从而实时显示并更新相应控制系统的相关参数，其具体过程如下：

当输入ｆｐ和端口号后，点选连接健，客户端程序就会向服务器申请连接，如果此时机器有空闲连接，就会发回一个同意的消息，客户端接收到同意信息后也返回一十消息表示收到，然后开始双方开始连接，服务器端开始向客户端发送数据，在客户端的文本框里以实时更新的方式显示出来吲．下面，将分男Ⅱ介绍服务器端和客户端的程序：

１．服务嚣

服务器工作界面如下图３：

图３服务器端工作界面

在这一部分．使用的是通用的Ｃｌｉｅｎｔ／Ｓｅｒｖｅｒ形式。但是，这样一来就要求作为服务器的主机ｆ即与“组态王。相连的部分）可以同时处理多十客户的请求。因此在编写服务器程序时要添加多十Ｗｉｎｓｏｃｋ控件，这个控件不会显示在正在执行的窗体之中。换旬活说，Ｗｉｎｓｏｃｋ控件是在后台运行

收稿日期：２００７－７－１１

作者简介：陈俊男（１９７６一）朔北工业大学电气与电子工程学院硕士讲师（４３００６８）

研究方向：计算机控制

第１０期陈俊：基于ＶＢ６．０局域网监控软件的设计１５５

的一种控件。在执行过程之中，不会具有任何选用、可见的控件。

在选定网络控件一ｗｌｎｓｏｃｋ控件后。则面临通信胁议的选择…在ＴＣＰ协议和ＵＤＰ协议中选择一个合适的：（１）ＴＣＰ协议是属于面向连接的协议．所谓的面向连接协议是指…“在悠可以交换数据之前，在两个终端设备之间必须涟接成功。”同时，在网络的基础理论中，都会特别强调ＴＣＰ具有错误核对的功能。也就是说，在数据的传送过程忠，如果发生错误或是数据无法传达对方时，ＴＣＰ协议将会重复尝试着重新传送数据。

（２）ＵＤＰ协议是属于无面向连接协议．这种协议为适用在两个设备之间，适用于信息传送以及数据的传输方面。但是在使用时，必须注意当你将信息送出时，对方可能已经离线，因而无法接收到数据，而悠也无法实时察觉到对方已经离线。

考虑到本系统的使用环境，选择了ＴＣＰ协议，程序如下：Ｗｉｎｓｏｃｋ．Ｐｒｏｔｏｃｏｌ＝ｓｃｌｄ＂ＣＰＰｒｏｔｏｃｏｌ

然后加入十六个Ｗｉｎｓｏｃｋ控件。其中第一个取名为Ｌｉｓｔｅｎｅｒ，用来侦听局域网中的请求信号，其程序如下：Ｌｉｓｔｅｎｅｒ．ＬｏｃａｌＰｏｒｔ；６０００确定侦听端口号Ｌｉｓｔｅｎｅｒ．Ｌｉｓｔｅｎ开始侦听

另外十五个为连接口。将其设置为动态数组形式，依次取名为Ｓｏｃｋ（０）到Ｓｏｃｋ（１４）。其中令Ｓｏｃｋ（０，为初始连接口，这样，以后当客户增多时，可在这个控件基础上动态增加．由于受资源限制，在本系统中只设定最多可以同时接纳１５个客户。程序如下：

Ｓｏｃｋｌｎｄｅｘ＝ＦｉｎｄＦｒｅｅＳｏｃｋｅｔＯ查找空闺的ｓｏｃｋＩｆＳｏｃｋｌｎｄｅｘ）ＳｏｃｋＮｕｍＴｈｅｎ

Ｌｏａｄｓｏｃｋ（Ｓｏｃｋｌｎｄｅｘ｝

ＥｎｄＩｆ

ＣｏｎｎｅｃｔＳｔａｔｅ（Ｓｏｃｋｌｎｄｅｘ）?ＢＵＳＹ

ｓｏｃｋ（ＳｏｃｋＩｎｄｅｘ）．Ｔａｇ＝Ｓｏｃｋｌｎｄｅｘ

如果已有的ｓｏｃｋ都忙，而且ｓｏｃｋ数不超过１５个，动态添加ｓｏｃｋ

ｓｏｃｋ（Ｓｏｃｌｄｎｄｅｘ）．ＡｃｃｅｐｔｒｃｑｕｅｓｔＩＤ接受请求然后就是数据的传精了，作为一个远程监控系统。实时性是对它最大的要求，只有保持同步数据更新，监控才有意义．所以使用了一个ＴｅｘｔＢｏｘ控件ｓｅｎｄ来作为暂存器，然后通过ｓｅｎｄ．ｔｅｘｔ的变化来发送数据ｆ３】，其程序如下：ＰｒｉｖａｔｅＳｕｂｓｅｎｄｃｈａｎｇｅ（）

Ｆｏｒｉ－０Ｔｏｓｏｃｋ．Ｃｏｕｎｔ一１

Ｉｆｓｏｃｋ｛０．Ｓｔａｔｅ‘＞ｓｃｋＣｌｏｓｃｄＴｈｅｎｓｏｃｋ｛”．ＳｅｎｄＤａｔａｓｅｎｄ．Ｔｅｘｔ

ＤｏＥｖｅｎｔｓ‘执行上一条指令

Ｎｅｘｔ

ＢｎｄＳｕｂ

通过ｆｏｒ循环语句进行信息的广播，这样就可以保证每个与服务器相连的客户端都船收到信息。

２客户端

客户端的界面如下圈４：

图４客户端工作界面

客户机一般只与一个主机相连，因此客户端程序只须一十Ｗｉｎｓｏｃｋ进行连接就足够了。其连接部分程序如下：ＰｒｉｖａｔｅＳｕｂＣｏｎｎｅｃＬｃｌｉｃｋ０

ｃＨｅｎｔ．ＲｅｍｏｔｅＨｏｓｔ＝ｉｐｔｅｘｔ．Ｔｅｘｔ服务器ＩＰ等于输入的ＩＰ

ｃｌｉｅｎｔ．ＲｅｍｏｔｅＰｏｒｔ＝６０００端口号６０００

ｃＨｅｎｔ．ｃｏｎｎｅｃｔ连接

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂｓｅｎｄ＿Ｃｌｉｃｋ（）

ＤｉｍｓｔｒＡｓＳｔ丑ｎｇ

ｓｔｒ－”ｄ”＋Ｆｏｒｍｌ．ｎａ／Ⅱｅ．Ｔｅｘｔ＋ｐｌｃｔｅｍｓｅｎｄ．Ｔｅｘｔ

ＦｏｒｍＩ．ｃＩｉｅｎＬＳｅｎｄＤａｔａｓｉｒ发送数据

ｐｌｃｔｅｍｓｅｎｄ．Ｔｅｘｔ＝“。清空

ＥｎｄＳｕｂ

四、结束语

本系统在实验室使用效果良好，提高了设备的使用效率，同时为进一步开发远程监控系统积累了经验。

参考文献

【１１Ｉ江剑，牵永新，牛国柱基于纽态软件与ＶＢ的远程通信的实现Ⅱ１．接口与通信技术应用２００例．２００２

【２】梁芳．ＶｉｓｕａｌＢａｓｉｃ程序设计案例教：＇Ｙ－［ＭＩ．北京：清华大学出版社．２００６

ｐ１声春艳，李傻民，刘彬彬ＶｉｓｕａｌＢａｓｉｃ程序开发范倒宝典【Ｍ】．

北京：人民邮电出版社，２００６

基于VB 6.0局域网监控软件的设计

作者：陈俊， Chen Jun

作者单位：湖北工业大学电气与电子工程学院,430068

刊名：

中国水运(学术版)

英文刊名：CHINA WATER TRANSPORT

年，卷(期)：2007，7(10)

被引用次数：0次

参考文献(3条)

1.高春艳;李俊民;刘彬彬Visual Basic程序开发范例宝典 2006

2.梁芳Visual Basic程序设计案例教程 2006

3.江剑;李永新;牛国柱基于组态软件与VB的远程通信的实现[期刊论文]-微计算机信息(测控仪表自动化) 2002(9)

本文链接：https://www.360docs.net/doc/766654173.html,/Periodical_zgsy-xsb200710067.aspx

授权使用：青岛科技大学(qdkjdx)，授权号：54e1331a-57e4-447c-a93f-9f00009ce799

下载时间：2011年6月12日