CODE128码在PB中的实现源代码.doc

《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