条码.docx
《条码.docx》由会员分享,可在线阅读,更多相关《条码.docx(17页珍藏版)》请在冰豆网上搜索。
![条码.docx](https://file1.bdocx.com/fileroot1/2023-1/28/0103fc87-49e5-4304-94e7-b288f8194b91/0103fc87-49e5-4304-94e7-b288f8194b911.gif)
条码
VB应用程序中打印条形码的两种方法
-
本站最新推出无须注册直接投稿
投递文章
减小字体
增大字体
条形码作为一种机器可识别的图形,它能快速、准确地标识某种产品或商品,在许多数据库应用中起作很重要的作用,如超市收银、车站售票等场合。
当某件物品上带有的条形码被条码扫描器正确解读后,将会得到该物品的唯一标识字符串,通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。
虽然在Internet上能找到许多免费和不免费的条形码打印控件,但是这些控件除了使用不方便外
-
条形码作为一种机器可识别的图形,它能快速、准确地标识某种产品或商品,在许多数据库应用中起作很重要的作用,如超市收银、车站售票等场合。
当某件物品上带有的条形码被条码扫描器正确解读后,将会得到该物品的唯一标识字符串,通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。
虽然在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
arTable(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