vb点虐 与伺服通信 伺服与plc通讯

求 VB.Net的TCP/IP通讯实例，最好包括客户端请求连接与处理来自服务器的响应相关代码

服务器和客户端都有，但是都是很基本的代码，可以作为参考学习。。。

创新互联建站2013年至今，先为固安等服务建站，固安等地企业，进行企业商务咨询服务。为固安企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

自己用vb或者C++写应用程序采用etherCAT协议与伺服驱动器通讯能实现吗？具体方向是什么？谢谢~

EtherCAT支持几乎所有的拓扑类型,包括线型、树型、星型等,其在物理层可使用100BASE—TX 双绞线、100BASE—FX光纤或者LVDS(Low Volt-

age Differential Signaling,即低压差分信号传输),还可以通过交换机或介质转换器实现不同以太网布线的结合。快速以太网的物理层(100Base—TX)允许两个设备之间的最大电缆长度为100m,而LVDS的物理层只能保障10m的传输间距,适合于近距离站点的连接。整个网络最多可以连接65535个设备。

借助于从站中的EtherCAT专用芯片和主站中读取网卡数据的DMA技术,整个协议处理过程都在硬件中进行。EtherCAT系统可以在30“s内刷新1000个I/O点,它可以在300“s内交换一帧多达1486个字节的协议数据,这几乎相当于12000个数字量输入或输出。控制100个输入输出数据均为8字节的伺服轴只需要100pst21。EtherCAT的高性能使它还可以处理分布式驱动器的电流(转矩)控制。

2EtherCAT数据包结构

EtherCAT以标准以太网技术为基础,在MAC (媒体访问层)增加了一个确定性调度的软件层,该软件层实现了通信周期内的数据帧的传输。EtherCAT采用标准的IEEE802.3以太网帧,帧结构如图2,各部分含义见表1。

EtherCAT没有重新定义新的以太网帧结构,而是在标准以太网帧结构中使用了一个特殊的以太网帧类型0x88A4,采用这种方式可以使控制数据直接写入以太网帧内,并且可以与遵守其他协议的以太网帧在同一网络中并行。一个EtherCAT帧中可以包含若干个EtherCAT子报文,报文结构如图3,各

用vb点虐 实现网络通信

用 vb点虐 socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

VB和三菱Q系列PLC通信

1.0 通讯组件概述

通讯组件用于PC与可编程控制器(PLC)、智能仪表等进行数据通讯，适用于基于PC高级语言的工业自动化控制系统。组件采用动态链接库文件(*.DLL)的形式，在PC系统的项目工程里引用该组件，调用相应的属性与方法函数，即可快速实现PC与PLC的高效数据交换。

DLL通讯组件无须安装，直接复制到工程文件目录，方便打包安装部署；无须任何配置，直接调用函数，与应用开发无缝衔接；多年工程经验的软件团队开发测试，经过本公司及客户的海量实际工程应用检验，稳定可靠；采用稳定高效的内部协议，无须编写PLC内部程序配合，直接访问PLC的内存，通讯响应快速；内建动态管理的多独立线程连接，同时支持外部应用的多线程结构调用；兼容WINDOWS系统下的所有开发环境，包括各种版本的VB.NET、C#、VC++，以及DEIPHI 、VB、LabView等；支持几乎所有PLC的CPU自带通讯口、通讯扩展模块。

你可以在技成看视频教程，这个案例比较经典，看视频更容易理解。