'interleave the code into a temp string - what'd you think the name meant? 'Check for invalid characters and calculate check sum If Not (Len(Bardata) Mod 2) And Check1(2).Value Then Bardata = '0' & Bardata If Len(Bardata) Mod 2 And Not Check1(2).Value Then Bardata = '0' & Bardata 'make even num of digits by adding a leading 0 '2 of the 5 elements are wide: 0=narrow, 1=wide 'Add Start & Stop characters (must have 'em for valid barcodes) 'Add Check Character? (rarely used, but i put it here anyway.)Ĭhkchr = Mid$('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ. Temp = temp & BC(CurVal) & '0' '0'= add intercharactor gap (1 narrow space) 'Check for invalid characters, build temp string & calculate check sum '3 of the 9 elements are wide: 0=narrow, 1=wideīC(43) = '010010100' '* (used for start/stop character only)
0 Comments
Leave a Reply. |