admin 管理员组

文章数量: 887021


2024年1月23日发(作者:dolly)

VB条形码编程实例

--2007-6-8 11:34:46

条形码技术广泛应用于各行各业,你随便拿起一本书、一包薯片都可以在外包装上找到,利用条码读取机便可将这一条条黑白相间、粗细不同的垂直线条识别而转换为具体的数值,并将这个数值返回到计算机中进展处理。正是这样,有了条形码技术,人们很方便就能取得该商品的有关信息如商品名称、规格、价格等,因为每种商品都有其对应的条形码,这个条形码计算机〔终端、效劳器〕中就可以迅速返回用户,从数据库中读取约定的商品,信息使得销售、进货、存货等等管理更有效率,也对防止假冒伪劣又一定的抑制作用。

条码的编码方式有多种,不同行业,不同国家标准也不尽一样。条形码通过线条的粗细来表达其数值。至于接口方式一般也有多种,如键盘口的、串行口的。一般传感装置是光罩式的,也有笔式的。

上面笼笼统统地谈了一些关于条形码的知识,可帮助你更好地阅读以下更深入的内容。条形码有关概念先说到这里,接着是详细具体的编程实现方法。

一、条形码的读取

用过键盘口式的扫条码工具的朋友就知道,它就如同在鍵盘上按下数字鍵一样,根本不需任何编程和处理。但如果你使用的是其它接口的话,可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。

Option Explicit

Dim sData As String

Private Sub Form_Load()

With MSComm1

.CommPort = 3 '设为COM3,试运行的系统而定,你可提供一个Combox让用户选择。

.PortOpen = True '翻开通讯端口

End With

End Sub

Private Sub MSComm1_OnComm()

Dim EndPos As Integer

Select Case ent

Case comEvReceive '当有数据传送过来时

sData = sData & Trim()

'检索回车,通常读卡机每组数据結尾都返回一个回车作为完毕符

EndPos = InStr(1, sData, Chr(13))

If EndPos = 0 Then '如果未完毕就继续努力

Else '读完一组。

n = sData '显示一组条形码

With lstBarCode

.AddItem Mid(sData, 1, EndPos - 1) '添加一组条形码到列表

End With

sData = "" '清空

End If

End Select

End Sub

Private Sub cmdEnd_Click()

en = False '关闭端口

End

End Sub

二、条形码的生成

看完以上关于条码读取的代码是否觉得很容易呢?对,在VB上编程本来就不难。以下关于条形码生成的代码也是很容易理解,只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码,足以满足我们的要求。想起我书架上的一本书中的一篇用Turbo C编写条形码打印程序文章,长篇大论,那时不知看了n天,打了n小时字结果也不尽人意,现在真是幸福多了:)。废话说完,得回归正题。且看条形码生成的代码及有关说明。

源代码主要由两个窗体〔frmMain主窗体和frmOption条码设置窗体〕和两个模块组成(、)。考虑到篇幅,这里只列出局部较为关键的代码。

新建一个标准工程,添加一个名为(Microsoft Access BarCode Control9)的条形码部件,并添加一个条码控件到窗口,并将窗口改名为frmMain,如下图。由于控件比拟多,这里不便细说,详细内容请看源代码。

模块代码如下:

Option Explicit

声明BitBlt、GetDesktopWindow、GetWindowDC、ReleaseDC这几个API函数略

Public RegUser As Boolean

Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1 As PictureBox)

'hDC

Dim hWndDesk As Long

Dim hDCDesk As Long

'区域表达变量

Dim x As Long

Dim y As Long

Dim w As Long

Dim h As Long

x = erPixelX

y = erPixelY

w = erPixelX

h = erPixelY

hDCDesk =

'取出图像

Call BitBlt(, 0, 0, w, h, hDCDesk, x, y, vbSrcCopy)

Call ReleaseDC(hWndDesk, hDCDesk)

End Sub

主窗体局部代码如下:

Private Sub cmdPrint_Click()

'生成条形码图像

Dim r As Long, i As Integer, t As String,c String '临时变量

t = BarCode

For i = 0 To Val(Times) - 1

= BarCode + i

DoEvents

h

GetObjImage1 BarCode1, Conel, Picture1

If RegUser = False Then '如果未注册添加MASK标记

icture e, 300, 300

End If

If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath

SavePath = SavePath & IIf(Right(SavePath, 1) <> "", "", "")

cfile = SavePath & & ".bmp"

SavePicture , cfile '将条形码保存为图像文件以便打印

Next

BarCode = t

End Sub

条形码设置窗体代码如下:

Option Explicit

'条形码设置模块

Private Sub cboBig_Click()

= dex '改变标准

End Sub

Private Sub cboDirection_Click()

ion = dex '改变方向

End Sub

Private Sub cboLine_Click()

ight = dex '改变线宽

End Sub

Private Sub cboSmall_Click()

le = dex '改变样式

End Sub

Private Sub Check1_Click()

ta = '是否显示数据

End Sub

Private Sub cmdChange_Click()

'设置长、宽大小

BarWidth =

BarHeight =

cmdRefresh_Click

End Sub

Private Sub cmdOK_Click()

'传送条形码设定到主界面

With e1

.LineWeight = ight

.Style =

.SubStyle = le

.Direction = ion

.Width =

.Height =

.ShowData = ta

End With

With frmMain

. = .

. = .

. = .

. = .

End With

End Sub

Private Sub cmdRefresh_Click()

= BarWidth

= BarHeight

End Sub

Private Sub Form_Load()

LoadBarInfo

BarWidth =

BarHeight =

End Sub

Sub LoadBarInfo() '初始化选项

LoadBigClass cboBig

LoadSmallClass cboSmall

LoadLineSize cboLine

LoadDirection cboDirection

End Sub

Sub LoadBigClass(cbo As ComboBox) '条码标准

With cbo

.AddItem "UPC-A"

.AddItem "UPC-E"

.AddItem "EAN-13"

.AddItem "EAN-8"

.AddItem "Case Code"

.AddItem "Codabar (NW-T)"

.AddItem "Code-39"

.AddItem "Code-128"

.AddItem "U.S. Postnet"

.AddItem "U.S. Postal FIM"

.AddItem "JP Post"

.ListIndex = 2

End With

End Sub

Sub LoadSmallClass(cbo As ComboBox) '条码样式

With cbo

.AddItem "Standard"

.AddItem "2-Digit Supplement"

.AddItem "5-Digit Supplement"

.AddItem "POS Case Code"

.ListIndex = 0

End With

End Sub

许多人在编写数据库应用程序时,都想要加上条形码功能加强工作效率,尤其是销售管理,图书馆管理这类流量大的应用软件,但由于条形码技术难以掌握、标谁又多以及过去的技术种种原因,使得许多人望而却步。本文介绍的一套简单实用的条形码解决方法,希望能帮助各位完善软件系统的功能。

相关内容

以下内容与条形码,条码编程有着内在的联系,建议您一并阅读。

最近更新

推荐阅读

读者关注

最受关注的是什么?就在下面。

条码碳带介绍

VB条形码编程实例

努力工作加薪,还是工作质量加薪,高学历加薪

条码:39码根本知识介绍

条码条形码编程技术泛谈

RSS订阅

您可以通过RSS订阅各栏目内容。

条码新闻 RSS - 条码业内新闻资讯

条码知识 RSS - 条码知识,条形码知识

RFID技术 RSS - RFID技术应用,RFID知识

条码营销 RSS - 条码营销信息及经历

友情链接

条码 - 星创条码首页

条形码 - 条形码技术网站

条码扫描器 - 条码扫描器设备

条码打印机 - 条码打印机设备

数据采集器 - 数据采集器设备

条码检测仪 - 条码检测仪设备

磁性防盗门 - 磁性防盗门设备

印卡机 - 印卡机设备

条码检签 - 条码检签设备

条码碳带 - 条码碳带设备

RFID - RFID设备

精彩内容


本文标签: 条形码 条码 代码