您的位置：程序门 -> vb -> 基础类

条码扫描枪如何加入特定前缀让条码枪以后自动识别字符

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

条码扫描枪如何加入特定前缀让条码枪以后自动识别字符

发表于：2007-05-05 09:00:26 楼主

想问下有人知道吗,比如我有一个条码里面内容: "1t3789 "
我怎么设置扫描枪,让他以后读出来就是3789,即去掉前面的1t.不是用软件设置,即硬件直接识别.

发表于：2007-05-05 09:09:531楼得分:0

把不要的字用胶带贴住，哈哈

发表于：2007-05-05 09:13:592楼得分:0

其实办法是有的，写单片机就是了，但单片机里也有软件，算不算违规？

发表于：2007-05-05 11:48:393楼得分:0

把扫描枪的说明书拿来照上面做就可以

发表于：2007-05-05 14:30:534楼得分:0

可以。在keypress事件那裡寫程序.不過首先你要扫描枪的说明對設置掃描儀的讀取格式。
如~開頭表示由掃描儀讀出來的。掃描出來的是~1t3789,然後按照取3789就可以了。
然後在form_load（)事件中設置me.keypreview=true,再
private sub form_keypress（keyascii as integer)
if keyascii=126 then 'keyascii=126表示~
myinput=inputbox（ "掃描 "， "數據掃描 ")
select case instr（1,myinput, "1t ")
case 1
data=right（myinput,4)
case else
msgbox "錯誤 "
end select
end if

end sub

下一篇：帮我查查错误,谢谢
上一篇：text焦点问题成了死循环,找高手解决,40分

其他资讯