成都创新互联网站制作重庆分公司

vb.net条码扫描枪,vb扫码枪串口编程

如何用VB做个简单的条码验证器,,扫描枪输入。。详情见图

我用过的扫描枪的输入是用的com输入,在VB里添加MSComm控件即可。视设备管理器里识别为com几就选com几。

站在用户的角度思考问题,与客户深入沟通,找到玉泉网站设计与玉泉网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站设计制作、网站设计、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖玉泉地区。

扫描的时候,MSComm控件有comEvReceive事件,可以作为触发事件的,比如控件名是MSComm1

那这个MSComm1_OnComm()里,如果有这个触发事件,就可以声明一个字符型来接受MSComm1.input

这个输入可能根据不同扫描枪不同要进行些处理以得到你需要的条码实值

当然条码枪具体给你什么你可以去Windows自带的Hyper Terminal里看到

有个了这个条码值,在你图里对应的第二个表里其他的Textbox或者label控件就可以写相应的Caption了,无非是if,case判断了

不加数据库连接的话就没那么复杂了

空口说白话也不行,以下是基于Motolora Symbol P370/470型对条码值的一些处理,直接写在OnComm里了,process_no就是看到这个号码做相应处理的判断,可以另起炉灶写一个到时候调用就是

Private Sub MSComm1_OnComm()

Dim st As String

If MSComm1.CommEvent = comEvReceive Then

st = MSComm1.Input

If st Chr(3) Then

st_all = st_all + st

Else

Txt_Pt.Text = Trim(Mid(st_all, InStr(st_all, Chr(2)) + 1, 10))

st_all = ""

Process_no

End If

End If

End Sub

以上只是com接收事件和取值的例子,判断不必参考的,关键无非是把接收值读入st,再对st_all这个全局变量赋值(不然你一会用那个条码值可没有个地方记录了)

非com输入恕在下暂时无能为力

VB.NET如何操作条码扫描枪,如何设置,如何进行条形码的设置及打印

这个要看扫描枪的通讯接口和通讯协议,以及接口程序是否支持VB.NET等。

vb.net 问题

不需要监控接口,扫描枪应该是直接扫描出数字的,直接用一个Textbox显示扫描结果就可以了

VB.NET 有4个TEXTBOX,4个扫码枪,怎么在指定TEXTBOX对应到指定的扫码枪

如果是usb扫描枪,是焦点在哪它就输入在哪,不能自动对应到相应的文本框

如果是串口扫描枪可以实现你的功能,在代码里判断相应的串口对应文本框

谁有用手机摄像头扫描条码的程序呀...用.net程序做的..给一点思路也行呀..

利用手机摄像头扫描识别条码,简化数据输入,可以扫描识别常见的一维码,二维码,识别解码迅速,准确。开放的API接口,不超过10句代码让你的项目集成条码扫描功能。

经过优化的扫描引擎,识别更迅速

完善的 API接口:

完全开放的API参数,直接引用DLL

完全集成了Camera的开发,直接从摄像头内存buffer扫描条码

C#,VB.NET直接调用,简化你的项目开发进度

C#,VB.NET范例

记不清,好像是 安徽天冠信息产业有限公司开发的 如果商业应用你可以去找他们。很成熟,我以前在别的公司用过。

公司有一个vb 软件是通过扫描枪扫描条形码获得信息,但用扫描枪扫描后Text中的条形码一闪就没了。

我用的metrologio扫描枪

扫描枪工作流程 1.扫描条型码 2.编绎条型码 3.模拟键盘输入: 条型码字符 + 回车

可以看出,当出现回车时就代表输入结束,可以执行代码了

用keydown ,keyup 或者keypress 事件

下面用keypress举例:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then ‘回车键的asc键值为13

'省略要执行的代码

text1.text="" '清空文本框

'上面这个是最简单的,要想保留条型码只要删除上这行了

End If

End Sub

'我觉得还是清空文本框比较好,方便多次扫描

因为没有代码,所以不能确定是不是这样,能达到同样效果还有别的方法,基本上都差不多的,就不说了


分享文章:vb.net条码扫描枪,vb扫码枪串口编程
文章转载:http://cxhlcq.com/article/dsijshj.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部