欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

这个code39码如何用啊

更新时间: 2014-01-05 02:27:55 责任编辑: Author_N1

 

这个code39码怎么用啊?
从网上下了一个老师的一段代码,生成code39码的,可以在命令窗口中使用,如“=code39('ABCD1234','10','条码1.bmp')”,现在我想用一个循环,比如生成“ABCD0001~ABCD0999”之间的条码,不会用啊,在此请教各位了。
原代码如下:
*function code39
para chrs01,bars_h,bmp_filename     &&输入条码字符,条码高度,生成文件的文件名
private c001,chrs01
dimension sys_code39(2,44)
sys_code39(1,1)='0'
sys_code39(2,1)='101001101101'   && 字符0
sys_code39(1,2)='1'
sys_code39(2,2)='110100101011'   && 字符1
sys_code39(1,3)='2'
sys_code39(2,3)='101100101011'   && 字符2
sys_code39(1,4)='3'
sys_code39(2,4)='110110010101'   && 字符3
sys_code39(1,5)='4'
sys_code39(2,5)='101001101011'   && 字符4
sys_code39(1,6)='5'
sys_code39(2,6)='110100110101'   && 字符5
sys_code39(1,7)='6'
sys_code39(2,7)='101100110101'   && 字符6
sys_code39(1,8)='7'
sys_code39(2,8)='101001011011'   && 字符7
sys_code39(1,9)='8'
sys_code39(2,9)='110100101101'   && 字符8
sys_code39(1,10)='9'
sys_code39(2,10)='101100101101'   && 字符9
sys_code39(1,11)='A'
sys_code39(2,11)='110101001011'   && 字符A
sys_code39(1,12)='B'
sys_code39(2,12)='101101001011'   && 字符B
sys_code39(1,13)='C'
sys_code39(2,13)='110110100101'   && 字符C
sys_code39(1,14)='D'
sys_code39(2,14)='101011001011'   && 字符D
sys_code39(1,15)='E'
sys_code39(2,15)='110101100101'   && 字符E
sys_code39(1,16)='F'
sys_code39(2,16)='101101100101'   && 字符F
sys_code39(1,17)='G'
sys_code39(2,17)='101010011011'   && 字符G
sys_code39(1,18)='H'
sys_code39(2,18)='110101001101'   && 字符H
sys_code39(1,19)='I'
sys_code39(2,19)='101101001101'   && 字符I
sys_code39(1,20)='J'
sys_code39(2,20)='101011001101'   && 字符J
sys_code39(1,21)='K'
sys_code39(2,21)='110101010011'   && 字符K
sys_code39(1,22)='L'
sys_code39(2,22)='101101010011'   && 字符L
sys_code39(1,23)='M'
sys_code39(2,23)='110110101001'   && 字符M
sys_code39(1,24)='N'
sys_code39(2,24)='101011010011'   && 字符N
sys_code39(1,25)='O'
sys_code39(2,25)='110101101001'   && 字符O
sys_code39(1,26)='P'
sys_code39(2,26)='101101101001'   && 字符P
sys_code39(1,27)='Q'
sys_code39(2,27)='101010110011'   && 字符Q
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:55
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10147/
本文WWW.DOC100.NET DOC100.NET版权所有。