PB程序中在普通激光打印機上實現條碼打印

 PB程序中在普通激光打印機上實現條碼打印    
  返回   主頁    
   
  ----   隨着計算機在生產、銷售、管理上應用水平的提高以及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下將報表和條碼打印在一張紙，這樣使您的報表顯得非常專業，也很漂亮。    
   
  計算機世界報：武漢郵電科學研究院光纖光纜部   譚國華