串口条码枪vb.net 串口条码枪扫不出码

VB.net 串口传送回数据处理的问题

使用委托方式处理：

创新互联建站10多年成都企业网站定制服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都企业网站定制及推广,对石牌坊等多个方面拥有丰富设计经验的网站建设公司。

Public Class Form1

Dim mSTR As String

Dim strData As String

Dim strDat As String

Dim mRecvByte() As Byte

Dim Hexsj As String

Dim form2 As Form

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim mSize As Integer = Me.SerialPort1.BytesToRead

ReDim mRecvByte(mSize - 1)

SerialPort1.Read(mRecvByte, 0, mSize)

BeginInvoke(New EventHandler(AddressOf ONMLoadA), SerialPort1.BytesToRead()) '使用委托方式显示接收到的字符串

End Sub

Sub ONMLoadA(ByVal sender As System.Object, ByVal e As System.EventArgs) '委托

strDat = ""

TextBox1.Text = ""

Dim i As Integer

For i = 0 To UBound(mRecvByte) 'mSize - 1

strData = strData  IIf(mRecvByte(i)  15, Hex(mRecvByte(i)), "0"  Hex(mRecvByte(i)))  " "

Next

Dim sj As Byte

For i = 1 To Len(strData) Step 3 '处理为ASCII字符

sj = Val("H"  Mid(strData, i, 2))

If sj  32 Or sj  128 Then '当接收字节中有Chr(0)时，其后字符被切割

strDat = strDat  "."

Else

strDat = strDat  Chr(sj)

End If

Next

TextBox1.Text = strDat '显示字符

TextBox2.Text = strData '显示为16进制

TextBox3.Text = Len(strData) / 3

End Sub

VB.NET中，串口接收数大量数据时如果执行SerialPort.close动作，程序会卡死在这里

对同一个串口的操作应该放在单个线程里，你的程序应该将串口接收和串口关闭的执行都放在一个线程里进行，这样在接收数据的间隙就可以正常执行close动作。而不会造成两个线程都在操作串口。

VB。net 串口接收数据，用串口调试助手发数据，只有第一次可以正常接收

你定义的委托需要带参数才行，DataReceived事件中没有接收数据代码，下面的代码经测试可用

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '将收到的数据入接收文字框中

txt_Rect.SelectionStart = txt_Rect.Text.Length

txt_Rect.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

BeginInvoke(d, inData)

End Sub

vb.net 串口接收问题

0x3F表示字符"?"

估计是你的发送指令不正确，设备返回你发送的指令后面加''？""

VB如何获取USB口条码枪的扫描数据？

这么跟你说吧，条码扫描器就相当于自动打字的键盘一样，会把扫描到的条码自动转换为数字然后发送到电脑中。你打开记事本，然后扫描一些条码试试就知道了。

你的条码扫描器的说明书应该还有各种设置方法的说明的，可以给扫描器增添各种功能，比如在条码数字的后面增加一个回车键，这在编程中比较有用。

VB.NET中如何处理串口通信接收的数据？

你可以预先约定一个截止附，读取的字节统统放到缓存区里，直到读到截止附再处理、显示。