欢迎来到天天文库
浏览记录
ID:57687128
大小:12.50 KB
页数:2页
时间:2020-09-01
《CODE128码在PB中的实现源代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、CODE128码在PB中的实现源代码intli_asc_total=104intli_asc_tmp,icharlc_start=char(204)//采用CODE128B版本charlc_stop=char(206)intli_check_digitstringls_check_digit//1.取各字符ASC码乘以字符序号之和(以ASC=32为分界点,大于32减32,小于32加64)Fori=1Tolen(as_sourcetext)li_asc_tmp=Asc(mid(as_sourcetext,i,1))Ifli_asc_tmp>=32Thenl
2、i_asc_total=li_asc_total+(li_asc_tmp-32)*iElseli_asc_total=li_asc_total+(li_asc_tmp+64)*iEndIfNext//2.计算校验码li_check_digit=mod(li_asc_total,103)Ifli_check_digit>=95Then//特殊字符li_check_digit=li_check_digit+100Elseli_check_digit=li_check_digit+32endifls_check_digit=char(li_check_digi
3、t)//3.组合条码:开始位+数据位+校验位+停止位Returnlc_start+as_sourcetext+ls_check_digit+lc_stop
此文档下载收益归作者所有