13518219792
关于串口通讯的问题：
成都创新互联作为成都网站建设公司，专注网站建设公司、网站设计，有关成都企业网站定制方案、改版、费用等问题，行业涉及广告推广等多个领域，已为上千家企业服务，得到了客户的尊重与认可。
很明显，你还不知道（不会、不习惯）使用事件驱动的方式接收数据。
建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决。
关于以太网通讯：
在TCP通讯中端口确实可以重用，你百度一下“TCP端口重用”能查到很多示例。
但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法。
或者，干脆不用TCP，用UDP解决也可以。
n = SerialPort1.BytesToRead '读取字节数 If n 0 Then '若字节数大于0.则执行以下操作
ReDim rc(n) '重新定义rc的长度，（之前有定义过）
strrc = 0 '变量类型为字符串（string），一开始使它为0
For i = 1 To n
rc(i) = SerialPort1.ReadByte ‘读取数据
strrc += CStr(Hex(rc(i))) '这里Hex 函数 返回表示数的十六进制值的字符串
'CStr 函数 返回已被转换为字符串子类型的变体的表达式。
Next
TextBox1.Text = strrc '将strrc的值付给TextBox1.Text即可
End If
拖一个PictureBox1控件
创建一个Paint事件。在事件中加入
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
' Create pens.
Dim redPen As New Pen(Color.Red, 3)
Dim greenPen As New Pen(Color.Green, 3)
' Create points that define curve.
Dim point1 As New Point(50, 50)
Dim point2 As New Point(100, 25)
Dim point3 As New Point(200, 5)
Dim point4 As New Point(250, 50)
Dim point5 As New Point(300, 100)
Dim point6 As New Point(350, 200)
Dim point7 As New Point(250, 250)
Dim curvePoints As Point() = {point1, point2, point3, point4, _
point5, point6, point7}
' Draw lines between original points to screen.
e.Graphics.DrawLines(redPen, curvePoints)
' Draw curve to screen.
e.Graphics.DrawCurve(greenPen, curvePoints)
End Sub
得到数据后，改point的数据。然后PictureBox1.Refresh()就行了
串口通信最终都是用二进制传输的，你用代码把二进制转化成十六进制就可以了。不需要额外设置。
0x3F表示字符"?"
估计是你的发送指令不正确，设备返回你发送的指令后面加''？""
