编程条形码.docx
《编程条形码.docx》由会员分享,可在线阅读,更多相关《编程条形码.docx(21页珍藏版)》请在冰豆网上搜索。
![编程条形码.docx](https://file1.bdocx.com/fileroot1/2023-2/22/c6d43bd0-3a9d-4137-8f5e-c28faa436d67/c6d43bd0-3a9d-4137-8f5e-c28faa436d671.gif)
编程条形码
VB应用程序中打印条形码的两种方法
条形码作为一种机器可识别的图形,它能快速、准确地标识某种产品或商品,在许多数据库应用中起作很重要的作用,如超市收银、车站售票等场合。
当某件物品上带有的条形码被条码扫描器正确解读后,将会得到该物品的唯一标识字符串,通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。
虽然在Internet上能找到许多免费和不免费的条形码打印控件,但是这些控件除了使用不方便外,还有一个最大的缺点:
它们的打印输出不能和我们的程序共存在一个打印页面上,比如说在一个过程中,我们先向系统Printer中输出一些内容,然后再调用控件的条形码打印方法,最后打印的结果为两页!
,如果现在我们要处理一张车票,上面不仅要打印条形码,还要有终点站和票价等信息,那么控件就变得不可用。
对程序员来说,可能还是希望能了解条形码打印的原理,本文提出两种打印方法与同行们探讨。
一、直接利用有条形码打印功能的打印机
有许多打印机能够直接打印条形码,但在VB中,我们在DOS时代熟悉的LPRINT语句已经不能再使用了,打印操作被Windows的Spool系统完全接管,输出是以“页”为单位,所有的打印输出都被Windows转换为图形发送给打印驱动程序。
而要使打印机打印条形码就必须将对应的ESC序列直接发送给它,因此我们就要想办法避开Windows的Spool系统,也就是说再程序中不能使用Printer对象和Printers集合处理打印输出,在VB中要将ESC指令直接发送给打印机至少有三种方法,前两种方法是调用WindowsAPI函数:
Escape()和SpoolFile(),第三种是最容易的方法:
打开打印机端口进行二进制存取,我们主要考虑这种方法。
即使在Windows时代,”LPT1:
”和”PRN”仍然是可用的,下面我们先作一个试验:
打开一个DOS窗口,在提示符下输入COPYCONLPT1:
回车,然后随便输入一些字符,最后按F6键,打印机就开始工作了,它将打印出你输入的那些字符!
下面的代码演示了直接将指令和字符发送给打印机:
PrivateSubCommand1_Click()
DimstrOutAsString
StrOut=“这是直接发送到打印机端口的字符串”
‘打开打印机端口,其中的”LPT1:
”可能需要根据你的打印机设置而改变
Open“LPT1:
”ForBinaryAccessWriteAs#1
‘发送给打印机,注意语句的最后一个参数必须是变量
Put#1,,strOut
‘关闭打印机端口
Close#1
EndSub
各种打印机打印条形码的指令可能不同,比如将上面的变量strOut赋值为:
strOut=Chr(28)&“P”&Chr(5)&Chr
(2)&Chr(3)&Chr(3)&Chr(6)&“012345”
将在AR2400打印机上打印出内容为”012345”的CODE39格式的条形码。
具体的打印控制指令请参考打印机手册。
用这种方法的缺点:
一是过份依赖打印机本身,而有条形码打印功能的打印机通常要比普通打印机昂贵,这会使构造应用系统不够经济;二是所有的打印输出都必须你自己处理,比如打印定位就很浪费时间。
二、利用画图方式输出到普通打印机
条形码的编码规则不外乎是通过线条和线条间间隙的宽窄不同来表示二进制的1和0,只要我们了解了条形码的编码规则,完全可以用画图的方式在普通打印机上得到可以接受的效果。
下面我们就使用最普遍的CODE39码进行讨论。
CODE39码的编码规则是:
1、每五条线表示一个字符;
2、粗线表示1,细线表示0;
3、线条间的间隙宽的表示1,窄的表示0;
4、五条线加上它们之间的四条间隙就是九位二进制编码,而且这九位中必定有三位是1,所以称为39码;
5、条形码的首尾各一个*标识开始和结束
在我们的程序中,给常用的字符都进行编码,解读时先取线条粗细,再取间隙宽窄,如:
上图中的字符*就可以解读为001101000,字符3解读为110000100
下面就是我们给出的子过程:
注释:
将字符串strBarCode对应的条形码输出到缺省打印机
PrivateSubPrintBarCode(_
ByValstrBarCodeAsString,_
OptionalByValintXPosAsInteger=0,_
OptionalByValintYPosAsInteger=0,_
OptionalByValintPrintHeightAsInteger=10,_
OptionalByValbolPrintTextAsBoolean=True_
)
注释:
参数说明:
注释:
strBarCode -要打印的条形码字符串
注释:
intXPos,intYPos-打印条形码的左上角坐标(缺省为(0,0),坐标刻度为:
毫米)
注释:
intHeight -打印高度(缺省为一厘米,坐标刻度为:
毫米)
注释:
bolPrintText -是否打印人工识别字符(缺省为true)
注释:
"0"-"9","A-Z","-","%","$"和"*"的条码编码格式,总共40个字符
StaticstrBarTable(39)AsString
注释:
初始化条码编码格式表
strBarTable(0)="001100100" 注释:
0
strBarTable
(1)="100010100" 注释:
1
strBarTable
(2)="010010100" 注释:
2
strBarTable(3)="110000100" 注释:
3
strBarTable(4)="001010100" 注释:
4
strBarTable(5)="101000100" 注释:
5
strBarTable(6)="011000100" 注释:
6
strBarTable(7)="000110100" 注释:
7
strBarTable(8)="100100100" 注释:
8
strBarTable(9)="010100100" 注释:
9
strBarTable(10)="100010010" 注释:
A
strBarTable(11)="010010010" 注释:
B
strBarTable(12)="110000010" 注释:
C
strBarTable(13)="001010010" 注释:
D
strBarTable(14)="101000010" 注释:
E
strBarTable(15)="011000010" 注释:
F
strBarTable(16)="000110010" 注释:
G
strBarTable(17)="100100010" 注释:
H
strBarTable(18)="010100010" 注释:
I
strBarTable(19)="001100010" 注释:
J
strBarTable(20)="100010001" 注释:
K
strBarTable(21)="010010001" 注释:
L
strBarTable(22)="110000001" 注释:
M
strBarTable(23)="001010001" 注释:
N
strBarTable(24)="101000001" 注释:
O
strBarTable(25)="011000001" 注释:
P
strBarTable(26)="000110001" 注释:
Q
strBarTable(27)="100100001" 注释:
R
strBarTable(28)="010100001" 注释:
S
strBarTable(29)="001100001" 注释:
T
strBarTable(30)="100011000" 注释:
U
strBarTable(31)="010011000" 注释:
V
strBarTable(32)="110001000" 注释:
W
strBarTable(33)="001011000" 注释:
X
strBarTable(34)="101001000" 注释:
Y
strBarTable(35)="011001000" 注释:
Z
strBarTable(36)="000111000" 注释:
-
strBarTable(37)="100101000" 注释:
%
strBarTable(38)="010101000" 注释:
$
strBarTable(39)="001101000" 注释:
*
IfstrBarCode=""ThenExitSub注释:
不打印空串
注释:
保存打印机ScaleMode
DimintOldScaleModeAsScaleModeConstants
intOldScaleMode=Printer.ScaleMode
注释:
保存打印机DrawWidth
DimintOldDrawWidthAsInteger
intOldDrawWidth=Printer.DrawWidth
注释:
保存打印机Font
DimfntOldFontAsStdFont
SetfntOldFont=Printer.Font
Printer.ScaleMode=vbTwips注释:
设置打印用的坐标刻度为缇(twip=1)
Printer.DrawWidth=1 注释:
线宽为1
Printer.FontName="宋体"注释:
打印在条码下方字符的字体和大小
Printer.FontSize=10
DimstrBCAsString 注释:
要打印的条码字符串
strBC=Ucase(strBarCode)
注释:
将以毫米表示的X坐标转换为以缇表示
DimxAsInteger
x=Printer.ScaleX(intXPos,vbMillimeters,vbTwips)
注释:
将以毫米表示的Y坐标转换为以缇表示
DimyAsInteger
y=Printer.ScaleY(intYPos,vbMillimeters,vbTwips)
注释:
将以毫米表示的高度转换为以缇表示
DimintHeightAsInteger
intHeight=Printer.ScaleY(intPrintHeight,vbMillimeters,vbTwips)
注释:
是否在条形码下方打印人工识别字符
IfbolPrintText=TrueThen
注释:
条码打印高度要减去下面的字符显示高度
intHeight=intHeight-Printer.TextHeight(strBC)
EndIf
ConstintWidthCUAsInteger=30注释:
粗线和宽间隙宽度
ConstintWidthXIAsInteger=10注释:
细线和窄间隙宽度
DimintIndexAsInteger 注释:
当前处理的字符串索引
DimiAsInteger,jAsInteger,kAsInteger 注释:
循环控制变量
注释:
添加起始字符
IfLeft(strBC,1)<>"*"Then
strBC="*"&strBC
EndIf
注释:
添加结束字符
IfRight(strBC,1)<>"*"Then
strBC=strBC&"*"
EndIf
注释:
循环处理每个要显示的条码字符
Fori=1ToLen(strBC)
注释:
确定当前字符在strBarTable中的索引
SelectCaseMid(strBC,i,1)
Case"*"
intIndex=39
Case"$"
intIndex=38
Case"%"
intIndex=37
Case"-"
intIndex=36
Case"0"To"9"
intIndex=CInt(Mid(strBC,i,1))
Case"A"To"Z"
intIndex=Asc(Mid(strBC,i,1))-Asc("A")+10
CaseElse
MsgBox"要打印的条形码字符串中包含无效字符!
当前版本只支持字符注释:
0注释:
-注释:
9注释:
注释:
A注释:
-注释:
Z注释:
注释:
-注释:
注释:
%注释:
注释:
$注释:
和注释:
*注释:
"
EndSelect
注释:
是否在条形码下方打印人工识别字符
IfbolPrintText=TrueThen
Printer.CurrentX=x
Printer.CurrentY=y+intHeight
Printer.PrintMid(strBC,i,1)
EndIf
Forj=1To5
注释:
画细线
IfMid(strBarTable(intIndex),j,1)="0"Then
Fork=0TointWidthXI-1
Printer.Line(x+k,y)-Step(0,intHeight)
Nextk
x=x+intWidthXI
注释:
画宽线
Else
Fork=0TointWidthCU-1
Printer.Line(x+k,y)-Step(0,intHeight)
Nextk
x=x+intWidthCU
EndIf
注释:
每个字符条码之间为窄间隙
Ifj=5Then
x=x+intWidthXI*3
ExitFor
EndIf
注释:
窄间隙
IfMid(strBarTable(intIndex),j+5,1)="0"Then
x=x+intWidthXI*3
注释:
宽间隙
Else
x=x+intWidthCU*2
EndIf
Nextj
Nexti
注释:
恢复打印机ScaleMode
Printer.ScaleMode=intOldScaleMode
注释:
恢复打印机DrawWidth
Printer.DrawWidth=intOldDrawWidth
注释:
恢复打印机Font
SetPrinter.Font=fntOldFont
EndSub
最理想的情况是将它做成一个控件,在控件中提供一个打印方法,该方法实现与上
那个过程大致相同,只是不能在控件中直接使用VB的Printer对象,否则VB会将你在控件中的打印输出处理为一个单独的页面,而是应该将Printer.hDc传给它,通过调用那些需要指定HDC的WindowsAPI函数实现与容器的打印输出在一个页面上,比如我们可以这样定义这个控件的打印方法:
注释:
PrintIt方法将对应的条形码输出到缺省打印机
PublicSubPrintIt(ByValPrintDCAsLong,_
OptionalByValintXPosAsInteger=0,_
OptionalByValintYPosAsInteger=0,_
OptionalByValintPrintHeightAsInteger=10)
既然不能使用Printer对象,那么画线和输出文字也不能使用Printer对象的Line和Print方法,在我们的程序中至少要申明以下三个WindowsAPI函数:
‘移动画笔的位置
PrivateDeclareFunctionMoveToExLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,lpPointAsPOINTAPI)AsLong
‘从画笔的当前位置到(x,y)画一条线
PrivateDeclareFunctionLineToLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong)AsLong
‘在(x,y)处输出一个字符串
PrivateDeclareFunctionTextOutLib"gdi32"Alias"TextOutA"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,ByVallpStringAsString,ByValnCountAsLong)AsLong
‘MoveToEx()函数需要的参数
PrivateTypePOINTAPI
xpAsLong
ypAsLong
EndType
DimpapiAsPOINTAPI
画线操作为(原来的Printer.Line函数):
MoveToExPrintDC,x+k,y,papi
LineToPrintDC,x+k,y+intHeight+1
打印字符为(原来的Printer.Print函数):
TextOutPrintDC,x,y+intHeight,Mid(strBC,i+1,1),1
用VB编程设计39条形码打印系统的方法
湖南 刘玉平 (lyp1205@)
条形码是一种图形识别输入技术,具有快速、准确、低廉等优点,被广泛应用于工业、医药、商品流通、图书馆管理以及票证等众多的自动化管理系统中。
下面面首先对条形码作一个简单的介绍,然后详细介绍用VB编程打印39码的设计方法。
一、条形码技术简介
条形码是利用条(着色部份)、空(非着色部份)及其宽、窄的交替变换来表达符号信息的“图形符号”,每一种编码都有一个遵循的标准,只要遵循这一标准打印出来的条、空交替排列的“图形符号”,就包含了字符信息;通过条码识别仪器可解码出它包含的字符信息。
常用的条形码有好几种,国际规格的 POS 符号,用于出版物、商品的JAN-13码(如图1是娃哈哈饮用纯净水的条形码,图2是牛津高阶英汉双解词典的条形码);广泛用于工业、图书、以及票证自动化管理的39码(如图3、4条形码表示《软件报》的网址WWW.SWEEK.COM、国内统一代码CN51-0106)等。
想了解条形码更多的知识可阅读相关资料,这里只对最常用的39码进行较详细的介绍:
1、39码的特点
l 能表示字母(A-Z)、数字(0-9)和其它一些特殊符号(-,.,$,/,+,%,空格)共43个字符。
l 条码的长度可变,对数据的字节数并没有限制。
l 通常用“*”号作为起始符和终止符。
l 不用校验码。
l 代码密度介于每英寸3-9.4个字符。
l 空白区是窄条的1-10倍,宽条是窄条的2-3倍。
l 广泛用于工业、图书、以及票证自动化管理。
2、编码规则
39码可表示的字符多达43个,每一字符,使用9个元素,其中3个宽元素、6个窄元素,故名39码,这3个宽元素中必须有两个是条(有四个特殊用途的字符除外)。
如果用0表示窄元素,1表示宽元素,奇数位为条元素,偶数位为空元素,字符“1”的编码规则为:
“100100001”,对应的条码如图5,字符“A”的编码规则为:
“10001001”,对应的条码如图6,字符“*” 的编码规则为:
“010010100”,对应的条码如图7, 43个字符的编码规则如表1。
一串字符的条码就是由对应的字符的条码排列而成,中间用空白隔开,如图8是字符串“1A”的条码,通常用“*”作起、终止符,以便于条码识别仪识别,如图9。
图5 对应1
二、用VB编程思路
根据表1所示规则,为编程方便,空白区取一个窄元素的