PB中实现CODE128码使用源代码
3星 · 超过75%的资源 需积分: 18 198 浏览量
2016-08-05
10:25:48
上传
评论
收藏 14KB DOCX 举报 
//CODE128 条码基础知识
//CODE128 有三个版本
//CODE128A: 标准数字和字母, 控制符, 特殊字符
//CODE128B: 标准数字和字母, 小写字母, 特殊字符
//CODE128C: [00]-[99]的数字对集合, 共 100 个
//本函数采用 CODE128B 版本
//条码由开始位、数据位、校验位、停止位组成
//计算过程：
//1.取各字符 ASC 码乘以字符序号之和（以 ASC=32 为分界点，大于 32 减 32，小于 32 加
64）
//2.计算校验码
//3.组合条码：开始位+数据位+校验位+停止位
int li_asc_total = 104
int li_asc_tmp,i
char lc_start=char(204)//采用 CODE128B 版本
char lc_stop=char(206)
int li_check_digit
string ls_check_digit
//1.取各字符 ASC 码乘以字符序号之和（以 ASC=32 为分界点，大于 32 减 32，小于 32 加
64）
For i = 1 To len(as_sourcetext)
li_asc_tmp = Asc(mid(as_sourcetext,i, 1))
If li_asc_tmp >= 32 Then
li_asc_total = li_asc_total + (li_asc_tmp - 32) * i
Else
li_asc_total = li_asc_total + (li_asc_tmp + 64) * i
End If
Next
//2.计算校验码
li_check_digit = mod(li_asc_total,103)
If li_check_digit >= 95 Then//特殊字符
li_check_digit = li_check_digit + 100
Else
li_check_digit = li_check_digit + 32
end if
ls_check_digit = char(li_check_digit)
//3.组合条码：开始位+数据位+校验位+停止位
Return lc_start + as_sourcetext + ls_check_digit + lc_stop
资源评论
Koyori每天都想转行2018-11-02都假的，骗人的，浪费积分
wangzhenjun20142017-10-27没下载成功
滴水沧海2019-01-07没下载成功
afen07682023-04-15谢谢啦，很有用
