Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / barcode / barcode / Codabar / codabar.inc

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     DECLARE FUNCTION codabar (tekst AS STRING) AS STRING

     FUNCTION codabar (tekst AS STRING) AS STRING

      DIM bcode  (36 TO 68) AS STRING *11
      DIM telop  AS STRING
      DIM bitmap AS STRING
      DIM x      AS INTEGER
      DIM char   AS INTEGER
      DIM lang   AS INTEGER

'          12345678901
      bcode(36)="1011001010"    '		$
      bcode(43)="10110110110"   '		+ (Plus)
      bcode(45)="1010011010"    '		- (Dash)
      bcode(46)="11011011010"   '		. (Point)
      bcode(47)="11011010110"   '		/ (Slash)
      bcode(48)="1010100110 "    '		0
      bcode(49)="1010110010 "    '		1
      bcode(50)="1010010110 "    '		2
      bcode(51)="1100101010 "    '		3
      bcode(52)="1011010010 "    '		4
      bcode(53)="1101010010 "    '		5
      bcode(54)="1001010110 "    '		6
      bcode(55)="1001011010 "    '		7
      bcode(56)="1001101010 "    '		8
      bcode(57)="1101001010 "    '		9
      bcode(58)="11010110110"   '		: (Colon)
      bcode(65)="10110010010"   '		Start/Stop A
      bcode(66)="10100100110"   '		Start/Stop B
      bcode(67)="10010010110"   '		Start/Stop C
      bcode(68)="10100110010"   '		Start/Stop D
'
      lang=LEN(tekst)

      FOR x =1 TO lang

       char=ASC(MID$(tekst,x,1))
       telop=RTRIM$(bcode(char))
       bitmap=bitmap+telop

      NEXT x

      codabar=bitmap

     END FUNCTION





掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Wed 2024-12-11  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:58:31