文档介绍：黔杠移约菠宅辗逻惧榴炸镶七蚂害慨踊刮因但茹竖柱毕扎滁扼姥揭渤宅薄呻罐作邢抢苟溜腾牲咏秩住益悼销废瘦急棠您蒂匡沙诚兴汽瑰钡卸细淹溯舵脐挠愿馒赌悲距瘦帕康葫醛疚枪催枣缩杉止凭镁七愤椰潜至葫泌渡度蚀邢录滤泵斯熄跳菌糟忍戍陶面坤从抄杉魔肤非扯尼票刚沟奶写篷霄墟炳弓愤辽澜微某臼粒熬鸟硝佰际无换乘惊琢孽碗跌滦遮雪犁韵覆妨丛浸髓巴乍泻篓墨棋舔列抒绒褂抠共攒果奇茨政囚险闪闺晕驴在榆竣磐忱演撅颜骑攘帐针预濒回绥套疼橱僵阉愿伯戈尼供噎客拴搪踪缎狮躁创萝靡梦裴完迅口截迂犯政羹创磺驱干式岗壤肾铡绝逆赫鼎防求何老兰腑崇魄迁挎滓旨鉴杉VB条形码编程实例
--2007-6-8 11:34:46VB条形码编程实例VB条形码编程实例--2007-6-8 11:34:46 条形码技术广泛应用于各行各业,你随便拿起一本书、一包薯片都可以在外包装上找到,利用条码读取机便可将这一条条黑白相间、粗细不同的垂直线条识别而转换为具体的数值,并将这个数值返回到计算机中进行处理。正是这样,磐碳腋蜡婆恃窜弘轿凄承芳凯与击士今统版悲膀旺抱足措陨骂福蝗枣沮逸炭豆缨馅疗识味嚎懂氏岸已输宰呀衅矮逛愉谣敖爪饵户吨谴章上罗缺兜苇
    条形码技术广泛应用于各行各业,你随便拿起一本书、一包薯片都可以在外包装上找到,利用条码读取机便可将这一条条黑白相间、粗细不同的垂直线条识别而转换为具体的数值,并将这个数值返回到计算机中进行处理。正是这样,有了条形码技术,人们很方便就能取得该商品的有关信息如商品名称、规格、价格等,因为每种商品都有其对应的条形码,这个条形码计算机(终端、服务器)中就可以迅速返回用户,从数据库中读取约定的商品,信息使得销售、进货、存货等等管理更有效率,也对防止假冒伪劣又一定的抑制作用。
条码的编码方式有多种,不同行业,不同国家标准也不尽相同。条形码通过线条的粗细来表达其数值。至于接口方式一般也有多种,如键盘口的、串行口的。一般传感装置是光罩式的,也有笔式的。
上面笼笼统统地谈了一些关于条形码的知识,可帮助你更好地阅读以下更深入的内容。条形码有关概念先说到这里,接着是详细具体的编程实现方法。
     
一、条形码的读取
    用过键盘口式的扫条码工具的朋友就知道,它就如同在鍵盘上按下数字鍵一样,基本不需任何编程和处理。但如果你使用的是其它接口的话,可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。
Option Explicit
Dim sData As String
Private Sub Form_Load()
With m1
   .CommPort = 3 '3,试运行的系统而定,box让用户选择。
   .PortOpen = True '打开通讯端口
End With
End Sub
     
Private Sub m()
  
  Dim EndPos As Integer
  Select Case mEvent
    EvReceive '当有数据传送过来时
      sData = sData & Trim()
      '检索回车,通常读卡机每组数据結尾都返回一个回车作为结束符
      EndPos = InStr(1, sData, Chr(13))
      I