vb.netopc通讯 winccopc通讯

VB.NET和PLC通讯 ，小白有问。

这个圈里的是通讯过程中传送的Asc码，包含了PLc的站号地址、指令、起始符等内容，具体要看你的PLc通讯协议。通讯与开关量是两回事，你得补习下与通讯相关的内容。

创新互联建站长期为上千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为弥勒企业提供专业的成都做网站、成都网站建设、成都外贸网站建设，弥勒网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。

如何使用SIMATIC NET实现OPC UA冗余服务器的通信

1、 OPC服务介绍

西门子提供的最新软件：Simatic Net PC-Software CD 2005为各种组态软件的开发提供了一个统一的平台，它建立的PC站既为一些组态软件，如：WinCC、Protol等提供了与PLC的通讯平台，也提供了一套编程接口，可使用高级语言编程通过Simatic Net访问PLC数据。本文讨论的主要就是这个编程接口,最新版的Simatic NET支持五种编程方式：

1、ActiveX控件

提供了一系列数据访问控件，以便于向VB6这种语言使用控件的方式与PLC通讯。

2、OPC自动化

为VB6、Dephi等语言运用OLE 自动化的方式进行编程。

3、OPC用户接口

这是专门为VC++提供的一种高效编程方式，其灵活程度与执行效率比前面的两种方式均要高得多。

4、针对微软的.NET平台的OPC用户接口

这也是一种非常灵活的编程接口，不过它针对的是.NET平台，其提供了大量的.NET类库，以便于像VC#、VB.NET等高级语言编程。本文将详细的介绍该接口。

5、OPL XML接口

顾名思义，主要是针对XML编程的。

对于2、3、4编程方式，他们各自又可以分为同步访问方式和异步访问方式。按西门子的文档解释：同步通讯指的是当一个客户在访问服务器时，其他客户的访问必须等待，直到服务器处理完该客户的请求，才能继续进行下一个服务，异步访问与之正好相反，本文主要讲的是同步编程篇，异步篇以后再提供。

2、 配置OPC服务器

要进行编程，必须先配置服务器。本文以Prfibus DP网络为例，介绍PC站的配置。其内容主要来自西门子文档。

需要的软件：

Step7 V5.3

Simatic Net PC-Software CD 2005

需要的硬件：

至少为CP5611或以上级别，笔记本可以为CP5511,带DP口的S7-300 PLC(若使用Simatic NET的仿真功能可以不需要这些硬件，后面会介绍到)

1、组态一个S7站，配置Profibus DP网络，其DP地址设为3，并下载到PLC,然后把网线由MPI口转到DP口。S7站的配置这里就不介绍了。

用vb.net实现网络通信

用 vb.net 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