如何用vb點虐 通過以太網(wǎng)使用modulebus協(xié)議讀寫西門子s7-200 smart 能實現(xiàn)嗎？

沒用過modbus通信寫過，但是使用自基旅嫌鎮(zhèn)早由通信可以

專業(yè)領(lǐng)域包括成都網(wǎng)站制作、成都網(wǎng)站建設、商城開發(fā)、微信營銷、系統(tǒng)平臺開發(fā)， 與其他網(wǎng)站設計及系統(tǒng)開發(fā)公司不同，創(chuàng)新互聯(lián)公司的整合解決方案結(jié)合了幫做網(wǎng)絡品牌建設經(jīng)驗和互聯(lián)網(wǎng)整合營銷的理念，并將策略和執(zhí)行緊密結(jié)合，為客戶提供全網(wǎng)互聯(lián)網(wǎng)整合方案。

VB點虐 帶有通信控件，在里面設置波特率、奇偶效驗、數(shù)據(jù)位、COM口

在PLC里做個自由通信搏手就可以

用vb點虐 實現(xiàn)網(wǎng)絡通信

用 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與VB.NET串口及以太網(wǎng)通迅

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

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

建議你仔細看看串口組件（無論VB6還是VB點虐 ）的OnComm事件，你的問渣局早題很容易解決。

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

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

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

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

新聞名稱：vb點虐 以太網(wǎng)通信 verilog以太網(wǎng)通信
當前網(wǎng)址：http://jinyejixie.com/article42/ddpgshc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、域名注冊、建站公司、定制網(wǎng)站、網(wǎng)站制作、App設計

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)