串口条码枪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中如何处理串口通信接收的数据？
你可以预先约定一个截止附，读取的字节统统放到缓存区里，直到读到截止附再处理、显示。
文章名称：串口条码枪vb.net 串口条码枪扫不出码
本文URL：http://mswzjz.cn/article/dosecoc.html