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