2013-06-19 07:58

     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

2013-06-19 07:58