vb程序如何编写 用扫码q每次扫的一串字符如何自动保存在csv（或excel）中

扫码q产生的结果似乎是一串文本加一个回车

所以程序需要做的只是启动时使焦点处在文本框中，然后文本框里遇到回车就保存和清空就可以了(或者不清空，而是回车后接受第一个字符时就清空)

vba写的存在当前excel表格中的代码，实际保存语句按需改写即可瞎尺中

Dim bcr As Boolean

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    磨山If KeyCode = 13 Then

        bcr = True

        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox1.Text

    ElseIf bcr = True Then

      困喊  bcr = False

        TextBox1.Text = ""

    Else

        

    End If

End Sub

条码q 就兄并是个输入设备，跟键盘没啥两样么。羡稿迹

画两个textbox上去做敬亩对比就行了啊。

if (text1.text == text2.text)

{

//正确

}

else

{

//警报

}

【准备条件】

1.安装扫q驱动程序HSMUSBSerialDriver1900.zip

2.安装解密插件TmriPrintOcx_WEB.exe

3.安装扫q接收数据监控程序VehDrvClient.exe

【终端使用配置步骤】

1.将扫q插到电脑上，系统设备管理器中会显示这个扫q皮轮设备，并且后面有个串口号

2.打开扫q监控程序，点击“设置”，在设置界面中勾选“使用条码扫描仪”，品牌选择“Honeywell”，端口选择上一步显示的串口号，勾选“自动启动”后，点击“确定”保存即可。

3.如果前两步配置正燃耐信常，那么监控程序主界面回显示“等待扫描仪发送信息”

4.进入检测站终端主目录下找到setup.ini文件并打开。

5.在“[流程单设置]”段节点下，找到“注册登记使用扫q”关键字

6.运行检测站终端程序，选择“车辆登录”，在车辆登录界面中检验类别选择“00-注册登记检验”，然后用扫q亩仔去扫描一个合格证二维码，等待1秒左右右侧对应的信息栏中就会有提取出的数据。

————————————————

版权声明：本文为CSDN博主「幸福官」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/th_gsb/article/details/105192229

---