PB程序中在普通激光打印机上实现条码打印讲解

1、PB程序中在普通激光打印机上实现条码打印随着计算机在生产、销售、管理上应用水平的提高以及In ternet、Intranet的普及，条码技术在生产管理、销售管理上的使用越来越多，条码的编码技术和识别技 术也得到了较快的发展。我单位因建设信息管理系统的需要，使用条码识别生产中 的光纤，并用来管理光纤，需要给多台客户机配备条码打印功能。但普通的条码打 印机价格比较昂贵，功能比较单一，给每台计算机配条码打印机是很不合算的，也 给工作带来不便。-我们利用MIS系统的前台开发工具PowerBuilder 6.0设计了一套程序，在 普通激光打印机上实现了条码打印，圆满的解决了生产管理上的条码问题。-现在条

2、码编码使用较多的是 39码，日常商品上随处可见。它包括识别的 代码和前后各一个'*'区别条码的起始和结束，其编码方法是，每个字符的编码由5条黑线和相邻黑线之间的间隙来表示。宽的黑线表示1，窄则表示0,同样黑线之间的间隙宽的表示1,窄的表示0。这样的一个9位的二进制数就用来表示一个字 符，例如，001100100 （前面5位由线表示，后4位为空格）表示十进制的0。在 39码的规则里，9位数中必须有3位是1。由此规则，键盘上的26个字母和10个 数字，以及常用的一些符号都有一一对应的39码编码。我们就是利用此规则进行程序设计的。- Powerbuilder 提供了一个 printl

3、ine（函数：-PrintLine （ printjobnumber, x1, y1, x2, y2, thickness 在个 printjobnumber 中 可以打印多条直线，线的位置由指定坐标确定，线宽由 Thick ness决定，这样就可 以由程序实现我们预定的功能。-在PB中定义一个函数，这里举例为窗口函数：wf_barpri nt（l ong job, in teger x_pos ,in teger y_pos,bar_width as in tger,stri ng codereturns in teger/ x_pos , y_pos为条码打印的起始位置Bar_Width条

4、码窄线的宽度/code要打印的字符串char Bar_Card20,Bar_Pri nt22char Temp_Card12stri ng Bar_Table40int i,j,X_Sca n,Cal_Card,y_sca nx_sca n = x_posy_sca n = y_posBar_Table1='00110-0100' / 0 Bar_Table2='10001-0100' / 1 Bar_Table3='01001-0100' / 2 Bar_Table4='11000-0100' / 3 Bar_Table5=&#

5、39;00101- 0100' / 4 Bar_Table6='10100-0100' / 5 Bar_Table7='01100-0100' / 6 Bar_Table8='00011-0100' / 7 Bar_Table9='10010-0100' / 8 Bar_Table10='01010- 0100' / 9 Bar_Table11='10001-0010' / A Bar_Table12='01001-0010' / B Bar_Table13='110

6、00-0010' / C Bar_Table14='00101-0010' / D Bar_Table15='10100-0010' / E Bar_Table16='01100-0010' / F Bar_Table17='00011-0010' / G Bar_Table18='10010-0010' / H Bar_Table19='01010-0010' /I Bar_Table20='00110-0010' / J Bar_Table21='10001-00

7、01' / K Bar_Table22='01001-0001' / L Bar_Table23='11000-0001' / M Bar_Table24='00101-0001' / N Bar_Table25='10100-0001' / O Bar_Table26='01100-0001' / P Bar_Table27='00011-0001' / Q Bar_Table28='10010-0001' / Rue£ 5- A V L-peoleq)一七P8)ddn H Peole8* = -ooovo Loopo寸0)_qe_LIe8 S = -ooovooopoear-qelljea M -000V0E0-HEIHJS -OOOVLOOO-'I卜 ea)_qe_LIe8 Z 一一ooovOOLopoear-qe-IJea -oooT7oooL-''gea)_qe_LIe8 X = -000 V 500丄寸 ea)_qe_LIe8 § = -ooovooo LLPoea)_qe_LIe8 7 一