CODE128碼在PB中的實現(xiàn)源代碼.doc

《CODE128碼在PB中的實現(xiàn)源代碼.doc》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在教育資源-天天文庫。

1、CODE128碼在PB中的實現(xiàn)源代碼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.組合條碼：開始位+數(shù)據(jù)位+校驗位+停止位Returnlc_start+as_sourcetext+ls_check_digit+lc_stop