誰有VB和OMRON PLC 通信例子啊？能否發(fā)個(gè)原始代碼？ 再次特別感謝！

提供一個(gè)VB.NET與OMRON以太網(wǎng)通訊的代碼，是我項(xiàng)目里面復(fù)制出來的：

為公主嶺等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及公主嶺網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站建設(shè)、公主嶺網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

Dim?Handle1?As?Int32?'PLC的連接句柄

Dim?EntLink?As?Boolean?'連接標(biāo)志

Dim?PLC?As?New?FinsTcp.PlcClient?'引用OMRON的通訊組件

Private?Sub?butLink_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?butLink.Click

Dim?re?As?Short

Dim?restr?As?String?=?""

re?=?PLC.EntLink(Trim(txtLocalIP.Text),?Val(txtLocalPort.Text),?Trim(txtRemoteIP.Text),?Val(txtRemotePort.Text),?"DEMO",?Handle1)

txtReLink.Text?=?re.ToString

If?re?=?0?Then

EntLink?=?True

MsgBox("PLC聯(lián)接成功!?")

Else

EntLink?=?False

MsgBox("PLC聯(lián)接失敗:?"??restr)

End?If

End?Sub

Private?Sub?butClose_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?butClose.Click

Dim?re?As?Short

EntLink?=?False

re?=?PLC.DeLink(Handle1)

txtReClose.Text?=?re.ToString

End?Sub

Private?Sub?butRead_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?butRead.Click

Dim?re?As?Short

Dim?i?As?Short

Dim?RD()?As?Object

ReDim?RD(Val(txtReadCnt.Text?-?1))

If?Not?EntLink?Then

MsgBox("還未與PLC建立聯(lián)接！")

Exit?Sub

End?If

Dim?mry?As?FinsTcp.PlcClient.PlcMemory?=?cmbReadMry.SelectedIndex?+?1

Dim?typ?As?FinsTcp.PlcClient.DataType?=?cmbReadType.SelectedIndex?+?1

re?=?PLC.CmdRead(Handle1,?mry,?typ,?CUShort(Val(txtReadAdd.Text)),?CUShort(Val(txtReadCnt.Text)),?RD)

txtReRead.Text?=?re.ToString

lstRead.Items.Clear()

For?i?=?0?To?UBound(RD)?Step?1

If?Not?IsNothing(RD(i))?Then?lstRead.Items.Add(RD(i))

Next?i

If?re??0?Then

Timer1.Enabled?=?False

butScan.Text?=?"Cycle?R/W"

End?If

End?Sub

Private?Sub?butWrite_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?butWrite.Click

Dim?re?As?Short

Dim?i?As?Short

Dim?temp()?As?String

Dim?WD()?As?Object

If?Not?EntLink?Then

MsgBox("還未與PLC建立聯(lián)接！")

Exit?Sub

End?If

ReDim?WD(Val(txtWriteCnt.Text)?-?1)

temp?=?Split(txtWrite.Text,?vbCrLf)

For?i?=?0?To?UBound(WD)?Step?1

If?i??UBound(temp)?Then

WD(i)?=?0

Else

WD(i)?=?Trim(temp(i))

End?If

Next?i

Dim?mry?As?FinsTcp.PlcClient.PlcMemory?=?cmbWriteMry.SelectedIndex?+?1

Dim?typ?As?FinsTcp.PlcClient.DataType?=?cmbWriteType.SelectedIndex?+?1

re?=?PLC.CmdWrite(Handle1,?mry,?typ,?CUShort(Val(txtWriteAdd.Text)),?CUShort(Val(txtWriteCnt.Text)),?WD)

txtReWrite.Text?=?re.ToString

If?re??0?Then

Timer1.Enabled?=?False

butScan.Text?=?"Cycle?R/W"

End?If

End?Sub

用vb.net實(shí)現(xiàn)網(wǎng)絡(luò)通信

用 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

VB與VB.NET串口及以太網(wǎng)通迅

關(guān)于串口通訊的問題：

很明顯，你還不知道（不會(huì)、不習(xí)慣）使用事件驅(qū)動(dòng)的方式接收數(shù)據(jù)。

建議你仔細(xì)看看串口組件（無論VB6還是VB.net）的OnComm事件，你的問題很容易解決。

關(guān)于以太網(wǎng)通訊：

在TCP通訊中端口確實(shí)可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數(shù)情況下不推薦端口重用，而應(yīng)該采取服務(wù)器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。

VB.Net 關(guān)于路由器后TCP或UDP通訊問題 假設(shè)一臺(tái)電腦192.168.0.1位于路由1.

端口不NAT，兩個(gè)子網(wǎng)中的兩端之間不可能通信。至少要有一方處在公網(wǎng)下或有路由端口映射，不必雙方都映射。

建議題主找本計(jì)算機(jī)網(wǎng)絡(luò)的書研讀一下子網(wǎng)劃分這塊兒。