在线会议
论坛
专题
工控直播
新闻中心
子站
技术
社区
分布式系统中通信的设计与实现是至关重要的环节控制工程网版权所有，它的数据采集站可直接与现场带有标准 ＲＳ — ２３２Ｃ 接口的智能仪表、ＰＬＣ和单片机等链接，并可通过扩展控制卡形成一个数据采集子网控制工程网版权所有，以高速准确地获取数据。ＶＢ 的 ＭＳＣＯＭＭ 通信控件具有完善的串口数据发送和接受功能，利用它可以屏蔽对硬件的操作，简易快捷地进行串行通信编程。
一、实例分析
本文举分布式系统中两个节点间连接的实例，其中节点 Ａ（ＩＰ地址１９２．１６８．０．１）作为服务器负责某一区域的数据采集与处理，程序内有一名为ＴＣＰＳｅｒｖｅｒ的Ｗｉｎｓｏｃｋ控件；节点Ｂ（ＩＰ地址１９２．１６８．０．２）是同级或上一级的某一节点，作为客户机控制工程网版权所有，其程序内有一名为 ＴＣＰＣｌｉｅｎｔ 的 Ｗｉｎｓｏｃｋ 控件。
节点Ａ 服务器核心程序如下：
（１）初始化程序 （２）发送数据程序 ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＳｅｎｄＤａｔａ Ｔｅｘｔ１．Ｔｅｘｔ （３）处理客户机连接请求程序 Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＳｅｒｖｅｒ＿ＣｏｎｎｅｃｔｉｏｎＲｅｑｕｅｓｔ（Ｉｎｄｅｘ ＡｓＩｎｔｅｇｅｒwww.cechina.cn， ＢｙＶａｌ ｒｅｑｕｅｓｔＩＤ Ａｓ Ｌｏｎｇ） Ｌｏａｄ ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ） ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．Ａｃｃｅｐｔ ｒｅｑｕｅｓｔＩＤ Ｅｎｄ Ｓｕｂ （４）客户机数据到达处理程序 Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＳｅｒｖｅｒ＿ＤａｔａＡｒｒｉｖａｌ（Ｉｎｄｅｘ Ａｓ Ｉｎｔｅｇｅｒ， （５）关闭连接程序 节点 Ｂ 客户机核心程序如下： 设置判断是否连接标志 远程计算机ＩＰ地址 远程计算机端口 （２）申请连接程序 （３）数据到达处理程序 （４）发送数据程序 （５）关闭连接程序
ｔｃｐｓｅｒｖｅｒ（０）．ＲｅｍｏｔｅＨｏｓｔＩＰ ＝ １９２．１６８．０．２
ｔｃｐｓｅｒｖｅｒ（０）．ＬｏｃａｌＰｏｒｔ ＝ １００１ ＇ｔｃｐｓｅｒｖｅｒ
（０）专用于侦听
ｔｃｐｓｅｒｖｅｒ（０）．Ｌｉｓｔｅｎ
ＢｙＶａｌ ｂｙｔｅｓＴｏｔａｌ Ａｓ Ｌｏｎｇ） Ｄｉｍ ＲＤ Ａｓ Ｓｔｒｉｎｇ ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＧｅｔＤａｔａ ＲＤ， ｖｂＳｔｒｉｎｇ ｔｘｔＲＤ．ｔｅｘｔ＝ＲＤ
ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＳｅｎｄＤａｔａ ＲＤ Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＳｅｒｖｅｒ＿Ｃｌｏｓｅ（Ｉｎｄｅｘ Ａｓ Ｉｎｔｅｇｅｒ）
ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．Ｃｌｏｓｅ
Ｕｎｌｏａｄ ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）
Ｅｎｄ Ｓｕｂ
以上程序着重说明Ｗｉｎｓｏｃｋ控件的主要属性、方法和事件CONTROL ENGINEERING China版权所有，如要实现多进程（多个客户程序同时运行），可应用创建控件数 组来代表已连接的控件实例的方法处理。
Ｐｒｉｖａｔｅ ＣｏｎｎｅｃｔＦｌａｇ Ａｓ Ｂｏｏｌｅａｎ ’
（１）初始化程序
ＴＣＰＣｌｉｅｎｔ．ＲｅｍｏｔｅＨｏｓｔ ＩＰ＝ １９２．１６８．０．１
ＴＣＰＣｌｉｅｎｔ．ＲｅｍｏｔｅＰｏｒｔ ＝ １００１
ＣｏｎｎｅｃｔＦｌａｇ ＝ Ｆａｌｓｅ
Ｉｆ Ｎｏｔ ＣｏｎｎｅｃｔＦｌａｇ Ｔｈｅｎ
ＴＣＰＣｌｉｅｎｔ．Ｃｌｏｓｅ
ＴＣＰＣｌｉｅｎｔ．Ｃｏｎｎｅｃｔ
Ｄ ｏ
ＤｏＥｖｅｎｔｓ
Ｌｏｏｐ Ｕｎｔｉｌ ＴＣＰＣｌｉｅｎｔ．Ｓｔａｔｅ ＝ ｓｃｋＣｏｎｎｅｃｔｅｄ
ＣｏｎｎｅｃｔＦｌａｇ ＝ Ｔｒｕｅ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＣｌｉｅｎｔ＿ＤａｔａＡｒｒｉｖａｌ（ＢｙＶａｌ ｂｙｔｅｓＴｏｔａｌ
Ａｓ Ｌｏｎｇ）
Ｄｉｍ ＲＤ Ａｓ Ｓｔｒｉｎｇ
ＴＣＰＣｌｉｅｎｔ．ＧｅｔＤａｔａ ＲＤ， ｖｂＳｔｒｉｎｇ
ｔｘｔＲＤ．ｔｅｘｔ ＝ ＲＤ
Ｅｎｄ Ｓｕｂ
ＴＣＰＣｌｉｅｎｔ．ＳｅｎｄＤａｔａ ｔｘｔＳＤ．Ｔｅｘｔ
&nb
.jpg)
AVEVA InTouch Unlimited试用版下载
福禄克三大“法宝”帮您搞定过程仪表校准难题
2024年度最佳产品奖颁奖典礼会后报道
2024全球自动化和制造主题峰会会后报道
阿自倍尔液体检测产品有奖试用
