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

刺骨的言语ヽ痛彻心扉 2022-05-13 09:38 207阅读 0赞

随着计算机在生产、销售、管理上应用水平的提高以及Internet 、Intranet 的普及，条码技术在生产管理、销售管理上的使用越来越多，条码的编码技术和识别技术也得到了较快的发展。我单位因建设信息管理系统的需要，使用条码识别生产中的光纤，并用来管理光纤，需要给多台客户机配备条码打印功能。但普通的条码打印机价格比较昂贵，功能比较单一，给每台计算机配条码打印机是很不合算的，也给工作带来不便。  
  
\---- 我们利用MIS系统的前台开发工具PowerBuilder 6.0 设计了一套程序，在普通激光打印机上实现了条码打印，圆满的解决了生产管理上的条码问题。  
  
\---- 现在条码编码使用较多的是39码，日常商品上随处可见。它包括识别的代码和前后各一个'\*'区别条码的起始和结束，其编码方法是，每个字符的编码由5条黑线和相邻黑线之间的间隙来表示。宽的黑线表示 1 ，窄则表示 0，同样黑线之间的间隙宽的表示 1，窄的表示 0 。这样的一个9位的二进制数就用来表示一个字符，例如，001100100 （前面5位由线表示，后4位为空格）表示十进制的 0。在39码的规则里，9位数中必须有3位是1。由此规则，键盘上的26个字母和10个数字，以及常用的一些符号都有一一对应的39码编码。我们就是利用此规则进行程序设计的。  
  
\---- Powerbuilder 提供了一个printline()函数：  
  
\---- PrintLine ( printjobnumber, x1, y1, x2, y2, thickness )在一个printjobnumber中可以打印多条直线，线的位置由指定坐标确定，线宽由Thickness 决定，这样就可以由程序实现我们预定的功能。  
  
\---- 在PB中定义一个函数，这里举例为窗口函数:  
  
wf\_barprint(long job, integer x\_pos ,  
integer y\_pos,bar\_width as intger,string code )  
returns integer  
// x\_pos ，y\_pos 为条码打印的起始位置  
//Bar\_Width 条码窄线的宽度  
//code ,要打印的字符串  
  
char Bar\_Card\[20\],Bar\_Print\[22\]  
char Temp\_Card\[12\]  
string Bar\_Table\[40\]  
int i,j,X\_Scan,Cal\_Card,y\_scan  
  
x\_scan = x\_pos  
y\_scan = y\_pos  
  
  
Bar\_Table\[1\]='00110-0100' // 0  
Bar\_Table\[2\]='10001-0100' // 1  
Bar\_Table\[3\]='01001-0100' // 2  
Bar\_Table\[4\]='11000-0100' // 3  
Bar\_Table\[5\]='00101-0100' // 4  
Bar\_Table\[6\]='10100-0100' // 5  
Bar\_Table\[7\]='01100-0100' // 6  
Bar\_Table\[8\]='00011-0100' // 7  
Bar\_Table\[9\]='10010-0100' // 8  
Bar\_Table\[10\]='01010-0100' // 9  
Bar\_Table\[11\]='10001-0010' // A  
Bar\_Table\[12\]='01001-0010' // B  
Bar\_Table\[13\]='11000-0010' // C  
Bar\_Table\[14\]='00101-0010' // D  
Bar\_Table\[15\]='10100-0010' // E  
Bar\_Table\[16\]='01100-0010' // F  
Bar\_Table\[17\]='00011-0010' // G  
Bar\_Table\[18\]='10010-0010' // H  
Bar\_Table\[19\]='01010-0010' // I  
Bar\_Table\[20\]='00110-0010' // J  
Bar\_Table\[21\]='10001-0001' // K  
Bar\_Table\[22\]='01001-0001' // L  
Bar\_Table\[23\]='11000-0001' // M  
Bar\_Table\[24\]='00101-0001' // N  
Bar\_Table\[25\]='10100-0001' // O  
Bar\_Table\[26\]='01100-0001' // P  
Bar\_Table\[27\]='00011-0001' // Q  
Bar\_Table\[28\]='10010-0001' // R  
Bar\_Table\[29\]='01010-0001' // S  
Bar\_Table\[30\]='00110-0001' // T  
Bar\_Table\[31\]='10001-1000' // U  
Bar\_Table\[32\]='01001-1000' // V  
Bar\_Table\[33\]='11000-1000' // W  
Bar\_Table\[34\]='00101-1000' // X  
Bar\_Table\[35\]='10100-1000' // Y  
Bar\_Table\[36\]='01100-1000' // Z  
Bar\_Table\[37\]='00011-1000' // -  
Bar\_Table\[38\]='10010-1000' // %  
Bar\_Table\[39\]='01010-1000' // $  
Bar\_Table\[40\]='00110-1000' // \*  
  
Bar\_Card = upper(code)  
if left(bar\_card,1) < > '\*' then  
Bar\_Print = '\*' + Bar\_Card // 添加起始符  
end if  
if right(bar\_card,1) < > '\*' then  
Bar\_Print = Bar\_Card + '\*' // 添加结束符  
end if  
j = 1  
  
  
do  
if (Bar\_Print\[j\] = '\*') then  
Cal\_Card = 40  
elseif (Bar\_Print\[j\] = '-') then  
Cal\_Card = 37  
elseif (Bar\_Print\[j\] >= 'A') then  
Cal\_Card = 11 + asc(Bar\_Print\[j\])  
\- asc('A')  
elseif (Bar\_Print\[j\] >= '0') then  
Cal\_Card = 1 + asc(Bar\_Print\[j\])  
\- asc('0')  
end if  
Temp\_Card = Bar\_Table\[Cal\_Card\]  
for i = 1 to 5  
if (Temp\_Card\[i\] = '0') then  
X\_Scan = X\_Scan + Bar\_Width / 2  
PrintLine(Job,X\_Scan,y\_scan,  
x\_Scan,y\_scan + 550,Bar\_Width)  
X\_Scan = X\_Scan + Bar\_Width / 2  
else  
X\_Scan = X\_Scan + Bar\_Width \* 3 / 2  
PrintLine(Job,X\_Scan,y\_scan + 6,  
x\_Scan,y\_scan + 544,3 \* Bar\_Width)  
X\_Scan = X\_Scan + Bar\_Width \* 3 / 2  
end if  
if (Temp\_Card\[6 + i\] = '1') then  
X\_Scan = X\_Scan + 4 \* Bar\_Width  
else  
X\_Scan = X\_Scan + 3 \* Bar\_Width /2  
end if  
next  
j = j + 1  
loop while (Bar\_Print\[j\] < > '')  
  
printtext(job,code,X\_scan - 1200,y\_scan + 600)  
  
return 1  
  
\---- 通过调用以上自定义函数与PrintBitmap ( printjobnumber, bitmap, x, y, width, height )、printtext()等函数配合可以在普通激光打印机上方便的打印出漂亮的条码和辅助图案。之所以在调用时直接确定printjobnumber，是为了方便在出报表时同一个printjobnumber下将报表和条码打印在一张纸，这样使您的报表显得非常专业，也很漂亮。