编程条形码Word格式文档下载.docx
- 文档编号:7266208
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:21
- 大小:23.93KB
编程条形码Word格式文档下载.docx
《编程条形码Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《编程条形码Word格式文档下载.docx(21页珍藏版)》请在冰点文库上搜索。
将在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)<
strBC=strBC&
循环处理每个要显示的条码字符
Fori=1ToLen(strBC)
确定当前字符在strBarTable中的索引
SelectCaseMid(strBC,i,1)
Case"
intIndex=39
intIndex=38
intIndex=37
intIndex=36
To"
intIndex=CInt(Mid(strBC,i,1))
A"
Z"
intIndex=Asc(Mid(strBC,i,1))-Asc("
)+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)="
Fork=0TointWidthXI-1
Printer.Line(x+k,y)-Step(0,intHeight)
Nextk
x=x+intWidthXI
画宽线
Else
Fork=0TointWidthCU-1
x=x+intWidthCU
EndIf
每个字符条码之间为窄间隙
Ifj=5Then
x=x+intWidthXI*3
ExitFor
窄间隙
IfMid(strBarTable(intIndex),j+5,1)="
宽间隙
x=x+intWidthCU*2
Nextj
Nexti
恢复打印机ScaleMode
Printer.ScaleMode=intOldScaleMode
恢复打印机DrawWidth
Printer.DrawWidth=intOldDrawWidth
恢复打印机Font
SetPrinter.Font=fntOldFont
最理想的情况是将它做成一个控件,在控件中提供一个打印方法,该方法实现与上
那个过程大致相同,只是不能在控件中直接使用VB的Printer对象,否则VB会将你在控件中的打印输出处理为一个单独的页面,而是应该将Printer.hDc传给它,通过调用那些需要指定HDC的WindowsAPI函数实现与容器的打印输出在一个页面上,比如我们可以这样定义这个控件的打印方法:
PrintIt方法将对应的条形码输出到缺省打印机
PublicSubPrintIt(ByValPrintDCAsLong,_
OptionalByValintXPosAsInteger=0,_
OptionalByValintPrintHeightAsInteger=10)
既然不能使用Printer对象,那么画线和输出文字也不能使用Printer对象的Line和Print方法,在我们的程序中至少要申明以下三个WindowsAPI函数:
‘移动画笔的位置
PrivateDeclareFunctionMoveToExLib"
gdi32"
(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,lpPointAsPOINTAPI)AsLong
‘从画笔的当前位置到(x,y)画一条线
PrivateDeclareFunctionLineToLib"
(ByValhdcAsLong,ByValxAsLong,ByValyAsLong)AsLong
‘在(x,y)处输出一个字符串
PrivateDeclareFunctionTextOutLib"
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个字符。
条码的长度可变,对数据的字节数并没有限制。
通常用“*”号作为起始符和终止符。
不用校验码。
代码密度介于每英寸3-9.4个字符。
空白区是窄条的1-10倍,宽条是窄条的2-3倍。
广泛用于工业、图书、以及票证自动化管理。
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所示规则,为编程方便,空白区取一个窄元素的
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 编程 条形码