- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
上位计算机通过以太网发送FINS命令
上位计算机通过以太网发送FINS命令
有两种方式可以实现VB通过以太网读写PLC数据
使用Windows的以太网Winsocket控件实现
通过OMRON提供的Compolet控件实现
以下通过两种方式分别实现以太网UDP发送FINS命令
通过Windows的Winsocket控件:
利用 WinSock 控件可以与远程计算机建立连接,并通过用户数据报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似,WinSock 控件在运行时是不可见的。
可能的用途:
创建收集用户信息的客户端应用程序,并将收集的信息发送到某中央服务器。
创建一个服务器应用程序,作为多个用户的数据的汇入点。
创建“聊天”应用程序。
选择通讯协议:
在使用 WinSock 控件时,首先需要考虑使用什么协议。可以使用的协议包括 TCP 和 UDP。两种协议之间的重要区别在于它们的连接状态:
TCP 协议控件是基于连接的协议,可以将它同电话系统相比。在开始数据传输之前,用户必须先建立连接。
UDP 协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。另外,单次传输的最大数据量取决于具体的网络。
到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议:
在收发数据的时候,应用程序是否需要得到客户端或者服务器的确认信息?如果需要,使用 TCP 协议,在收发数据之前先建立明确的连接。
数据量是否特别大(例如图象与声音文件)?在连接建立之后,TCP 协议将维护连接并确保数据的完整性。不过,这种连接需要更多的计算资源,因而是比较“昂贵”的。
数据发送是间歇的,还是在一个会话内?例如,如果应用程序在某个任务完成的时候需要通知某个计算机,UDP 协议是更适宜的。UDP 协议适合发送少量的数据。
在VB中添加Winsocket控件
设定需要的通讯协议和需要的端口:
UDP 协议不需要显式的连接。要在两个控件中间发送数据,需要完成以下的三步(在连接的双方):
将 RemoteHost 属性设置为另一台计算机的名称。
将 RemotePort 属性设置为第二个控件的 LocalPort 属性。
调用 Bind 方法,指定使用的 LocalPort。(下面将详细地讨论该方法。)
因为两台计算机的地位可以看成“平等的”,这种应用程序也被称为点到点的。
可以在Winsocket的控件属性内设定:通讯协议,RemoteHost和RemotePort以及LocalPort
也可以在From的窗口内设定以上属性:
With Winsock1
.Protocol = sckUDPProtocol
.LocalPort = 9600
.RemotePort = 9600
.Bind 9600
End With
设定需要发送的FINS命令并且发送数据:
在以太网发送的FINS命令是二进制的数据,不是ASCII数据,命令如下:
senddata(0) = H80
senddata(1) = H0
senddata(2) = H2
senddata(3) = H Hex(RNet)
senddata(4) = H Hex(RNode)
senddata(5) = H0
senddata(6) = H Hex(SNet)
senddata(7) = h Hex(SNode)
senddata(8) = H0
senddata(9) = H0
以上对应FINS命令在以太网上发送时的头代码:
For i = 0 To Len(FinsCommand.Text) / 2 - 1
senddata(10 + i) = H Mid(FinsCommand.Text, 2 * i + 1, 2)
Next i
以上将FINS命令的ASCII数据转换为16进制数据
当数据准备好以后,使用Winsocket的方法Senddata发送数据:
Winsock1.senddata senddata()
接受以太网模块返回的数据:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim recvdata() As Byte
Winsock1.GetData recvdata, vbarry + vbByte, bytesTotal
End Sub
使用Wi
您可能关注的文档
最近下载
- 新外研版高中英语必修三Unit 3 The world of science Period 1 Starting out & Understanding ideas说课稿.doc
- 项目回款登记表.xlsx VIP
- 《药品记录与数据管理要求》解读.pptx
- 购物广场商场超市消防安全知识培训PPT.pptx VIP
- 油田运输有限公司HSE管理的体系程序文件.doc
- 人教版2022-2023学年二年级数学第一学期期中测试卷(含答案).docx
- 全科医师培训课件.pptx
- 汉字听写大会试题库(附答案).pdf VIP
- 专科医生如何带教全科医生课件.pptx
- 2024小学生汉字听写大会竞赛试题库(附答案).docx VIP
文档评论(0)