58问答库 > 【上下位机通信】：下位机（STM32)通过网口（DM9000之类的.）向上位机PC发送数据。求上位机例子程序~

【上下位机通信】：下位机（STM32)通过网口（DM9000之类的.）向上位机PC发送数据。求上位机例子程序~

2025-03-11 10:22:43

推荐回答（2个）

回答（1）：

用 socket 类 udp tcp 我这给你个最简单的例子 udp

服务器端

Imports System.Net.Sockets

Imports System.Net

Module socketsever

Sub main()

startserver()

End Sub

Private Sub startserver()

'创建服务器端的socket

Dim sServer As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

Dim myip As IPAddress

'制订本地回路的ip地址

myip = IPAddress.Parse("10.13.115.105")

'设置服务器端口号

Dim sServerep As New IPEndPoint(myip, 2001)

'设置客户端的端口号

Dim clientep As New IPEndPoint(myip, 2002)

'将端口与socket绑定

sServer.Bind(sServerep)

While True

Try

Dim bytes(100) As Byte

'等待客户端的请求

sServer.ReceiveFrom(bytes, clientep)

Dim str As String = System.Text.Encoding.ASCII.GetString(bytes)

'将字符转化成大写

str = str.ToUpper

bytes = System.Text.Encoding.ASCII.GetBytes(str)

'返回结果

sServer.SendTo(bytes, clientep)

Catch e As SocketException

End Try

End While

End Sub

End Module

客户端

界面和程序

Imports System.Net.Sockets

Imports System.Net

Public Class Form1

Inherits System.Windows.Forms.Form

Private Sub bsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsend.Click

'创建客户端的socket

Dim cClient As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

'指定本地回路的ip地址

Dim myip, myip1 As IPAddress

myip = IPAddress.Parse("10.13.115.105")

myip1 = IPAddress.Parse("10.13.115.136")

'设置服务器端口号

Dim Serverep As New IPEndPoint(myip1, 2001)

'设置客户端的端口号

Dim clientep As New IPEndPoint(myip, 2002)

'将端口与socket绑定

cClient.Bind(clientep)

Try

Dim str As String = Textinput.Text

Dim bytes() As Byte = System.Text.Encoding.ASCII.GetBytes(str)

'向服务器发出请求

cClient.SendTo(bytes, Serverep)

Dim bytes2(100) As Byte

'接受服务器的响应结果

cClient.ReceiveFrom(bytes2, Serverep)

str = System.Text.Encoding.ASCII.GetString(bytes2)

'将结果显示在文本框中

Textdisplay.Text = Textdisplay.Text & vbNewLine & str

Catch er As SocketException

MsgBox(er.ToString)

End Try

cClient.Close()

End Sub

End Class

回答（2）：

可以看看神舟STM32的开发板资料,里面有网络编程的,可以借鉴一下.

最新问答

独木成林是指什么树？

山东省阳谷县到山东省单县有多少公里

怎样在视频中添加二维码？

曾让商朝头疼不已的鬼方国是何方神圣，后来为何消失了？

电脑设置登陆管理账号时，由于操作失误，导致登陆密码出错，从而无法进入主界面，请问如何恢复，谢谢！

尼康J1相机一调节镜头屏幕就变黑了是怎么回事？