隨著計(jì)算機(jī)在生產(chǎn)、銷售、管理上應(yīng)用水平的提高以及Internet 、Intranet 的普及，條碼技術(shù)在生產(chǎn)管理、銷售管理上的使用越來越多，條碼的編碼技術(shù)和識(shí)別技術(shù)也得到了較快的發(fā)展。我單位因建設(shè)信息管理系統(tǒng)的需要，使用條碼識(shí)別生產(chǎn)中的光纖，并用來管理光纖，需要給多臺(tái)客戶機(jī)配備條碼打印功能。但普通的條碼打印機(jī)價(jià)格比較昂貴，功能比較單一，給每臺(tái)計(jì)算機(jī)配條碼打印機(jī)是很不合算的，也給工作帶來不便。

---- 我們利用MIS系統(tǒng)的前臺(tái)開發(fā)工具PowerBuilder 6.0 設(shè)計(jì)了一套程序，在普通激光打印機(jī)上實(shí)現(xiàn)了條碼打印，圓滿的解決了生產(chǎn)管理上的條碼問題。

---- 現(xiàn)在條碼編碼使用較多的是39碼，日常商品上隨處可見。它包括識(shí)別的代碼和前后各一個(gè)'*'區(qū)別條碼的起始和結(jié)束，其編碼方法是，每個(gè)字符的編碼由5條黑線和相鄰黑線之間的間隙來表示。寬的黑線表示 1 ，窄則表示 0，同樣黑線之間的間隙寬的表示 1，窄的表示 0 。這樣的一個(gè)9位的二進(jìn)制數(shù)就用來表示一個(gè)字符，例如，001100100 （前面5位由線表示，后4位為空格）表示十進(jìn)制的 0。在39碼的規(guī)則里，9位數(shù)中必須有3位是1。由此規(guī)則，鍵盤上的26個(gè)字母和10個(gè)數(shù)字，以及常用的一些符號(hào)都有一一對(duì)應(yīng)的39碼編碼。我們就是利用此規(guī)則進(jìn)行程序設(shè)計(jì)的。

---- Powerbuilder 提供了一個(gè)printline()函數(shù)：

---- PrintLine ( printjobnumber, x1, y1, x2, y2, thickness )在一個(gè)printjobnumber中可以打印多條直線，線的位置由指定坐標(biāo)確定，線寬由Thickness 決定，這樣就可以由程序?qū)崿F(xiàn)我們預(yù)定的功能。

---- 在PB中定義一個(gè)函數(shù)，這里舉例為窗口函數(shù):

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 + '*' // 添加結(jié)束符
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

---- 通過調(diào)用以上自定義函數(shù)與PrintBitmap ( printjobnumber, bitmap, x, y, width, height )、printtext()等函數(shù)配合可以在普通激光打印機(jī)上方便的打印出漂亮的條碼和輔助圖案。之所以在調(diào)用時(shí)直接確定printjobnumber，是為了方便在出報(bào)表時(shí)同一個(gè)printjobnumber下將報(bào)表和條碼打印在一張紙，這樣使您的報(bào)表顯得非常專業(yè)，也很漂亮。