vbnet串口实例的简单介绍

VB.NET串口通讯怎么发送和接收十六进制？

串口通信最终都是用二进制传输的，你用代码把二进制转化成十六进制就可以了。不需要额外设置。

创新互联公司是一家集网站建设,勐腊企业网站建设,勐腊品牌网站建设,网站定制,勐腊网站建设报价,网络营销,网络优化,勐腊网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

vb串口通信程序实例

我也是自己摸索开发出来的每一款VBtoCOM通讯，有具体的思路如下：

给你推荐一个工具“com串口测试工具 ComTone V1.0 中文绿色版”

1、打开你的噪音计的测试软件，调整好串口号、通讯频率等等，我用温度计举例说明。

开始查询后有返回数值，这个Receive：就是返回的数值000304012200004b05,

打开串口监视精灵，监视软件的com口事件：

这里面的Write是测试软件发出的查询指令，read是设备返回的数据指令

Private Sub Command1_Click() '发送指令

If Not MSComm1.PortOpen Then

MSComm1.CommPort = 7 '串口为7

MSComm1.Settings = "9600,n,8,1"

MSComm1.InBufferCount = 0 '清除接收缓冲区

MSComm1.OutBufferCount = 0 '清除发送缓冲区

MSComm1.InputMode = comInputModeBinary '二进制接收

MSComm1.InputLen = 0 '读取接收缓冲区的所有字符

MSComm1.PortOpen = True  '打开串口

MSComm1.RTSEnable = False '置为发送状态

End If

Dim pu() As Byte

Dim strdata  As String

Dim crc_js() As Byte

ReDim pu(7)  '这个数组是8位的查询指令

pu(0) = "H00" '温度计地址

pu(1) = "H03" '查询指令

pu(2) = "H00" '2、3为温度计地址

pu(3) = "H00" '2、3为温度计地址

pu(4) = "H00" '4、5为读取寄存器长度

pu(5) = "H02" '4、5为读取寄存器长度

pu(6) = "HC5" '6、7为CRC校验码 因为我们不知道设备的CRC校验规则所以用测试软件产生的校验码

pu(7) = "HDA" '6、7为CRC校验码

MSComm1.Output = pu

'不做任何事情，仅仅允许其它应用程序处理它们的事件。

DoEvents

MSComm1.InBufferCount = 0 '清除接收缓冲区

MSComm1.RThreshold = 9 '所要接收的数据长度，我们通过COM检测精灵看到了回传数据一共是9字节

MSComm1.RTSEnable = True '转为接收状态

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Form_Unload(Cancel As Integer)

If MSComm1.PortOpen Then

MSComm1.PortOpen = False  '关闭串口

End If

Timer1.Enabled = False

End Sub

Private Sub MSComm1_OnComm() 'COM事件

Dim PA() As Byte

Dim PB As String

Select Case MSComm1.CommEvent

Case comEvReceive

MSComm1.InputLen = 0 '读取接收缓冲区的所有字符

PB = MSComm1.Input

PA() = PB

For i = 0 To UBound(PA())

'Print "PA("  i  ")"; PA(i)

If Len(Hex(PA(i))) = 1 Then

strdata = strdata  "0"  Hex(PA(i))

Else

strdata = strdata  Hex(PA(i))

End If

Next

'回传的数据串：000304012600000AC4，这9字节根据通讯协议我们进行拆分

'00为协议内回传机号，03为读命令，04为返回的数据长度 0126 为我要的温度数据为十六进制表达，下面我进行数据处理

wd = CLng("H"  Left(Right(strdata, 12), 4)) / 10  "℃"   '根据通讯协议换算成温度

Text1 = Text1  vbCrLf  strdata  "  "  wd

strdata = ""

MSComm1.PortOpen = False  '关闭串口

End Select

End Sub

Private Sub Timer1_Timer()

Call Command1_Click

End Sub

这是我的测试结果。

下面是通讯协议

这个是我的软件用检测精灵检测的结果

VB与VB.NET串口及以太网通迅

关于串口通讯的问题：

很明显，你还不知道（不会、不习惯）使用事件驱动的方式接收数据。

建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决。

关于以太网通讯：

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

但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法。

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

请教用VB.NET向串口发送16进制的数的方法

应该是你的转换格式不正确，下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03

Dim TestArray() As String = Split(TextBox1.Text)

Dim hexBytes() As Byte

ReDim hexBytes(TestArray.Length - 1)

Dim i As Integer

For i = 0 To TestArray.Length - 1

hexBytes(i) = Val("h" TestArray(i))

Next

SerialPort.Write(hexBytes, 0, hexBytes.Length)

如果有问题可以再联系。