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

用 vb.net socket通信

成都創(chuàng)新互聯(lián)2013年開創(chuàng)至今，先為瑯琊等服務(wù)建站，瑯琊等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為瑯琊企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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開發(fā)程序直接通過以太網(wǎng)tcp協(xié)議訪問s7-1200的存儲區(qū)域

tcp協(xié)議是一個(gè)世界公開的協(xié)議，既然你在vb端能搞定如何進(jìn)行數(shù)據(jù)通訊，1200就很簡單了。

在1200側(cè)你只需建立一個(gè)tcp的連接即可，連接類型為未指定，之后按照你自己的要求確定誰是客戶機(jī)，誰是服務(wù)器就好了，具體的建立連接的步驟可以參照1200的文檔，你可以在下面的文檔的通訊一章找到如何建立TCP連接的過程

西門子 S7-1200 PLC Smart Plus 技術(shù)參考Version 1.8

工控行業(yè)一般VB語言用在哪些方面，要怎么學(xué)？

n年前用VB做過幾個(gè)不同形式的工控系統(tǒng)。

1）VB很適合作上位機(jī)的用戶界面（UI）

2）一般地，上位機(jī)與現(xiàn)場設(shè)備或現(xiàn)場控制設(shè)備之間，采用RS232C/485/422通信。所以，掌握串行通信原理，比如，什么是同步傳輸，什么是異步傳輸，什么是奇偶校驗(yàn)，什么是CRC校驗(yàn)，什么是面向字符（字節(jié)）的傳輸，什么是透明傳輸，等等，這些概念對構(gòu)建一個(gè)上位系統(tǒng)非常重要。對于VB6而言，就是掌握MSCOMM控件；對于VB.NET而言，掌握SerialPort

3）有的時(shí)候，上位機(jī)于現(xiàn)場設(shè)備之間的通信，采用特定的接口板塊。例如，在上位機(jī)PCI卡槽中插入特定功能的接口版。VB通過操縱這些接口版，與設(shè)備通信。通常，接口版制造商提供DLL形式的編程接口，VB調(diào)用這些DLL即可操縱這些接口版。所以，需要掌握VB調(diào)用DLL的知識。

4）工業(yè)以太網(wǎng)得到越來越多的應(yīng)用，VB可以通過工業(yè)以太網(wǎng)操縱設(shè)備。這需要掌握Socket編程。對vb6而言，就是WinSock控件；對VB.NET就是SOCKET類

工業(yè)自動化控制用vb.et編程嗎

可以使用vb.net編程。支持串口、以太網(wǎng)接口。

vb對新手來說上手快，容易理解，是最好的選擇了。

vb.net在工業(yè)控制應(yīng)用上是比較多的。

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

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

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

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

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

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

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

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

網(wǎng)頁名稱：vb.net工業(yè)以太網(wǎng),vb以太網(wǎng)通訊程序
網(wǎng)頁地址：http://chinadenli.net/article23/dsepgcs.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、用戶體驗(yàn)、網(wǎng)站內(nèi)鏈、自適應(yīng)網(wǎng)站、微信小程序、定制開發(fā)

廣告

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