VB與VB.NET串口及以太網通迅

關于串口通訊的問題：

成都創新互聯公司制作網站網頁找三站合一網站制作公司,專注于網頁設計,網站制作、成都網站建設,網站設計,企業網站搭建,網站開發,建網站業務,680元做網站,已為成百上千服務,成都創新互聯公司網站建設將一如既往的為我們的客戶提供最優質的網站建設、網絡營銷推廣服務!

很明顯，你還不知道（不會、不習慣）使用事件驅動的方式接收數據。

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

關于以太網通訊：

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

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

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

VB.NET與PHP通訊問題

與語言沒有關系, 你需要考慮的是兩個系統直接如何通訊. 選一種通訊協議(一般用http協議), 設計好數據結構, 可以是xml或json. 假設選用http協議傳輸json數據. 你需要做以下工作:

使用php開發一個http接口, 根據參數查詢數據庫, 把結果轉換為json格式后返回. 這是目前最流行的接口格式, 基本上所有語言都可以開發和請求這樣的接口, 很多開放平臺都是這樣設計接口的, 例如微信的這個接口,你可以參考一下?網頁鏈接

使用VB.NET請求這個接口, 獲取返回的數據(json格式, 一個特殊的字符串), 使用VB.NET對json數據進行解碼

所以,要完成這個工作,你需要知道http接口開發和請求, 以及json編碼和解碼的相關知識和技能, 祝你好運

用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

VB.net 窗口通訊問題, 希望你幫幫忙

換成USB是一樣的，只看到COM1可能是因為你的電腦上只有一個COM1或者只用了一個COM1，要想收到數據得有數據網這個串口上發送才行的；并且要保證串口已經打開而且設置了端口號和波特率校驗等參數才行的

文章標題：vb.net323通訊 vb343
URL網址：http://www.yijiale78.com/article36/hgcdsg.html

成都網站建設公司_創新互聯，為您提供App開發、自適應網站、域名注冊、定制網站、網站營銷、定制開發

廣告

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